Boucle pour additionner dans un tableau
trustpol
Messages postés
36
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
je suis novice en macro et j'avais besoin d'une macro
l'objectif de celle-ci était dans un tableau d'additionner les cases de la colonne B lorsque celle de la A était identique
ex
taxi 23
voiture 25
voiture 25
taxi 12
et je veux avoir
taxi 35
voiture 50
Voila le code que j'ai enregistré mais cela ne marche pas
Private Sub CommandButton2_Click()
Range("A2").Select
Do While Not IsEmpty(ActiveCell.Value)
critere = (ActiveCell.Value = ActiveCell.Offset(1, 0).Value)
If critere = True Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value _
+ ActiveCell.Offset(1, 1).Value
ActiveCell.Offset(1, 1).EntireRow.DeleteShift = xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
en passant par le pas à pas il bloque sur la ligne juste avant le else.
Aidez moi svp Merci d'avance
je suis novice en macro et j'avais besoin d'une macro
l'objectif de celle-ci était dans un tableau d'additionner les cases de la colonne B lorsque celle de la A était identique
ex
taxi 23
voiture 25
voiture 25
taxi 12
et je veux avoir
taxi 35
voiture 50
Voila le code que j'ai enregistré mais cela ne marche pas
Private Sub CommandButton2_Click()
Range("A2").Select
Do While Not IsEmpty(ActiveCell.Value)
critere = (ActiveCell.Value = ActiveCell.Offset(1, 0).Value)
If critere = True Then
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value _
+ ActiveCell.Offset(1, 1).Value
ActiveCell.Offset(1, 1).EntireRow.DeleteShift = xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
en passant par le pas à pas il bloque sur la ligne juste avant le else.
Aidez moi svp Merci d'avance
Configuration: Windows 2003 Internet Explorer 7.0
4 réponses
-
Salut,
tu n'a pas besoin de créer une macro pour ce genre de calcul, tout simplement dans ta feuille de calcul tu colles cette formles et la somme sera calulé si la somme colonne A est identique à la somme colonne B
=SI(SOMME(A:A)=SOMME(B:B);SOMME(B:B);"")
si tu doit coller cette formule dans une autre feuille la formule est la même en stipulant le nom de la feuille ici feuil1
=SI(SOMME(Feuil2!A:A)=SOMME(Feuil2!B:B);SOMME(Feuil2!B:B);"")
A+
____________________________________________________________________
Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande. -
regardes cette formule
Private Sub CommandButton1_Click()
Range("A2").Select
Do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
If ActiveCell = ActiveCell.Offset(0, 1) Then
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "=R[-1]C[-1]+R[-1]C"
End If
End Sub -
existe-il une requette mysql pour additionner les cases de la colonne B lorsque celles de la A sont identiques?
ex
taxi 23
voiture 25
voiture 25
taxi 12
et je veux avoir
taxi 35
voiture 50
merci -
Bonjour,
Tu met la fonction ci dessous par exemple dans D1=SOMME.SI(A1:A29;"taxi";B1:B30)
et dans D2=SOMME.SI(A1:A29;"voiture";B1:B30)
A+
