Verifier que deux celulles sont identiques et les additionn
Hello tout le monde,
Petit blocage dans mon projet,
Voila je resume le probleme:
EN COLONNE A j ai les donnees suivantes:
A
A
B
Z
D
D
D
W
EN COLONNE B J AI LES CHIFFRES SUIVANT
1000
2000
5
7
10
11
20
15
Puis sur ma feuille je place un bouton de commande le but etant quand clickant dessus ma macro identifie les valeur identique en colonne A et additionne leur valeurs correspondantes de la colonne B pour placer le total en colonne C, pour les valeur qui ne sont pas identique je veux juste mettre leur valeur en B dans la colonne C. Ainsi dans mon exemple nous devrions avoir ceci a la fin :
A 1000 3000
A 2000 3000
B 5 5
Z 7 7
D 10 41
D 11 41
D 20 41
W 15 15
Voici mon code qui ne fonctionne pas:
Private Sub CommandButton1_Click()
Dim A As Range
Dim B As Range
Dim C As Range
Dim CELL As Range
Dim i As Integer
Set A = Worksheets("Sheet3").Range("A1:A10")
Set B = Worksheets("Sheet3").Range("B1:B10")
Set C = Worksheets("Sheet3").Range("C1:C10")
For each CELL in A
If CELL.VALUE = CELL.VALUE then
C.cells(i).value = B.cells(i).value + B.cells(i+1).value
Else
C.cells(i).value = B.cells(i).value
End if
Next i
Next CELL
End sub
Si vous avez compris pouvez vous m aider svp?
merci beaucoup
Bonjour,
pas besoin de VBA , tu place en colonne C la formule :
=SOMME.SI($A$1:$A$9;A1;$B$1:$B$9)Bonjour,
Pourquoi mobiliser une macro alambiquée quand une formule simple peut renvoyer rapidement le résultat :
=SOMMEPROD(($A$1:$A$8=A4)*$B$1:$B$8)Quant à la macro : boucle For... Next non initialisée et CELL.Value = CELL.Value (le contraire serait surprenant) [non limitatif].
Cordialement.
ca ne marche pas
mais merci quand meme
d autre par c est un exemple mon projet est beaucoup plus complexe c est pourquoi il me faut une macro et non pas une fonction
merci
Quoi ? qui ne marche pas !