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'avanceConfiguration: Windows 2003
Internet Explorer 7.0