Bonjour le forum,
j'ai petit soucis en vba.
je veux faire la somme des nombres de chaque cellule.
J'ai 3 colonnes de A à C puis une 4è colonne D pour le calcul de chaque somme et 20 lignes (A1 à A20);(B1 à B20);(C1 à C20);(D1 : D20)pour le calcul des sommes . Je voudrais que si on saisi des nombres dans les colonnes un bouton commande permette de calculer une somme dans chaque cellule de la colonne D.
voici le code que j'utilise qui me donne des résultats qui se ressembles . Aidez moi à corriger:
J'espère avoir bien donné le code sans erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub somme () Dim A as Range, B as Range, C as Range, somme as Range For Each A in Range ("A1:A20") For Each B in Range ("B1:B20") For Each C in Range ("C1:C20") For Each somme in Range ("D1 : D20") somme =A+B+C Next Next Next Next End sub
Merci pour votre aide.
Partager