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
A voir également:
- Boucle pour additionner dans un tableau
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Imprimer un tableau excel - Guide
- Excel additionner plusieurs cellules - Guide
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.
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
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
si le texte est le meme alors il faut additionner les deux cellules d'a coté
Merci de ton aide