Discussion :

[argaz01]

Bonjour,

J'ai un code qui marchait très bien sur un tableau et là quand je veux l'appliquer sur un autre tableau à 2 colonnes pour faire la somme des doublons, il ne donne aucun résultat et ne renvoie pas par ailleurs d'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub SommeDoublonsSGP()
For n = range("A65536").End(xlUp).Row To 2 Step -1
 For m = n - 1 To 1 Step -1
   If range("A" & m) = range("A" & n) Then
      range("B" & m) = range("B" & m) + range("B" & n)
    Rows(n).Delete
   End If
 Next m
Next n
End Sub

Pouvez-vous me renseigner sur le truc qui cloche en sachant que je veux que mon cde fasse la somme de tous les doublons et non uniquement ceux qui se suivent.

En vous remerciant d'avance

Cordialement

[DeaD78]

Bonjour,

Ton code a l'air OK.

Comparé au 1er tableau, qu'est-ce qui change pour le 2ème ? Sur quelles colonnes est-il ? Est-ce sur la même feuille ?

A+

[argaz01]

En fait le 1er tableau comportait 5 colonnes, alors que le présent n'en comporte que 2 (A et B), mais le code ne donne aucun résultat!


Cordialement

[fring]

Bonjour,

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub SommeDoublonsSGP()
For n = Range("A65536").End(xlUp).Row To 2 Step -1
    For m = n - 1 To 1 Step -1
        If Range("A" & m) = Range("A" & n) Then
            Range("B" & n) = Range("B" & m) + Range("B" & n)
            Rows(m).Delete
            n = n - 1
        End If
    Next m
Next n
End Sub