Macro Ne marche plus et n'affiche pas d'erreu
argaz01
-
argaz01 -
argaz01 -
Bonjour,
Bonjour tout le monde,
J'ai réalisé une macro (avec l'aide de la communauté) la semaine dernière, cependant cette dernière ne s'applique sur tout mon tableau! La macro en question est censée trier et faire la somme des doublons présents dans mon tableau, le but étant de faire un graphique à la fin. Voici la macro ainsi que le tableau en question en pièce jointe:
Bonjour tout le monde,
J'ai réalisé une macro (avec l'aide de la communauté) la semaine dernière, cependant cette dernière ne s'applique sur tout mon tableau! La macro en question est censée trier et faire la somme des doublons présents dans mon tableau, le but étant de faire un graphique à la fin. Voici la macro ainsi que le tableau en question en pièce jointe:
Sub TriSommeAMF()
Dim ligne As Integer
ligne = 2
Do
If Cells(ligne, 1) = Cells(ligne + 1, 1) And Cells(ligne, 2) = Cells(ligne + 1, 2) Then
Cells(ligne, 3) = Cells(ligne, 3) + Cells(ligne + 1, 3)
Cells(ligne + 1, 3).EntireRow.Delete Shift:=xlUp
Else
ligne = ligne + 1
End If
Loop While Cells(ligne, 1) <> ""
End Sub
2 réponses
-
Salut
Ta macro ne fera que la somme des doublons qui se suivent, (pas de tous, mais si c'est ce que tu veux)
1-Reste à savoir comment est censée démarrer ta macro -
Je veux que ma macro fasse la somme de tous les doublons de mon tableaux et non pas uniquement de ceux qui se suivent!!
Merci de me renseigner sur la modification à faire, car je ne vois pas comment faire.
Cordialement
