Code somme doublons [Résolu]

Signaler
Messages postés
37
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
10 avril 2012
-
argaz01
Messages postés
37
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
10 avril 2012
-
Bonjour et merci d'avance,

La macro suivante marchait très bien il y'a quelques jours sur un autre tableau et maintenant elle ne produit aucun résultat et ne renvoie aucune erreur! La macro sert à faire la somme des doublons dans un tableau de 2 colonnnes:
Sub SommeDoublonsAMF()

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)
  Else
    ligne = ligne + 1
  End If
  Loop While Cells(ligne, 1) <> ""
  SuppressionLignesVides
End Sub

Merci de m'éclairer sur cette question
Cordialment

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
63
Salut
"ça ne marche pas" n'est pas très technique.
Que penses-tu qu'on puisse faire ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
37
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
10 avril 2012

C'est bon en fait, là tout marche très bien, merci pour votre temps

Cordialement