Macro Ne marche plus et n'affiche pas d'erreu

Question

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:

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



Configuration: Windows 2003 / Internet Explorer 6.0

centauria · Answer

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

argaz01 · Answer

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

Macro Ne marche plus et n'affiche pas d'erreu

2 réponses

Votre réponse

Discussions similaires

Newsletters