Macro en Excel
Répondre à la discussion
Affichage des résultats 1 à 2 sur 2

Macro en Excel



  1. #1
    ami20

    Macro en Excel


    ------

    Bonjour,
    Je veux créer un tableau sous Excel qui continent plusieurs lignes et ajouter un bouton lie à une Macro qui fait plusieurs taches :
    1) Faire la somme de deux colonnes (C et D) pour chaque ligne.
    2) Afficher le résultat en colonne E.
    3) Remplacer la valeur précédente dans C par la valeur de E et mettre la colonne D à zéro.
    4) En cas ou la valeur de la colonne E >= 14 afficher un message.
    Alors, j’ai arrivé à faire la somme pour une seule ligne par les commandes suivantes :
    Sub test()
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2],RC[-1])"
    End Sub
    Mais, lorsque je veux l’appliquer sur les autres lignes ça marche pas et je n’arrive pas à faire les autres taches, et est ce que vous pouvez m’aider à réaliser ce simple projet ?
    Merci en avance.

    -----

  2. #2
    cherbe

    Re : Macro en Excel

    Citation Envoyé par ami20 Voir le message
    Bonjour,
    Je veux créer un tableau sous Excel qui continent plusieurs lignes et ajouter un bouton lie à une Macro qui fait plusieurs taches :
    1) Faire la somme de deux colonnes (C et D) pour chaque ligne.
    2) Afficher le résultat en colonne E.
    Ce serait beaucoup plus efficace avec des fonctions
    Citation Envoyé par ami20 Voir le message
    3) Remplacer la valeur précédente dans C par la valeur de E et mettre la colonne D à zéro.
    Heu, comprends pas trop la manip ?
    Citation Envoyé par ami20 Voir le message
    Alors, j’ai arrivé à faire la somme pour une seule ligne par les commandes suivantes :
    Sub test()
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2],RC[-1])"
    End Sub
    Mais, lorsque je veux l’appliquer sur les autres lignes ça marche pas et je n’arrive pas à faire les autres taches, et est ce que vous pouvez m’aider à réaliser ce simple projet ?
    Code:
    Sub test()
         Range("E2").Select
         do While Cells(0,-1).value<>"" and Cells(0,-2).value<>"" 
              ActiveCell.FormulaR1C1 = "=SUM(RC[-2],RC[-1])"
              cells(1,0).select
         loop
    End Sub
    Dernière modification par cherbe ; 13/01/2016 à 19h50.

Discussions similaires

  1. besoin d'une macro excel
    Par munsterkiler dans le forum Logiciel - Software - Open Source
    Réponses: 8
    Dernier message: 28/01/2012, 15h09
  2. macro excel
    Par invited7c32506 dans le forum Programmation et langages, Algorithmique
    Réponses: 3
    Dernier message: 06/05/2011, 10h54
  3. macro excel
    Par alovesupreme dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 25/01/2009, 18h12
  4. macro Excel
    Par gwendoline dans le forum Logiciel - Software - Open Source
    Réponses: 8
    Dernier message: 11/10/2008, 20h06
  5. macro excel
    Par squall18 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 09/05/2006, 08h55
Découvrez nos comparatifs produits sur l'informatique et les technologies.