macro compter doublons

[Merwan]

Salut, j'ai creer un macro pour compter le nbr de ligne qui se repètent.

Je voudrai juste qu'elle s arrette de compter lorsqu'une ligne est vide (cad à la fin du tableau) et que le resultat soit afficher sur cette ligne.


Il suffit de faire une boucle du genre

do .... until Cell(ligne,2)=null ( ou un truc ds le genre)

voila le code, une fois corriger il ne devrait plus y avoir de for :



Sub compteur()

For ligne = 1 To 2149

j = ligne + 1
If (Cells(ligne, 2) = Cells(j, 2)) Then
compt = compt + 1

End If

Next ligne


Cells(2150, 3) = compt 'affiche le nombre de lignes inutiles dans la cellule 2150 C


End Sub

Merci pour l'aide

 

[Gérard DEZAMIS]

Bonjour Merwan

As tu fait une recherche sur ce Forum en demandant Doublons

Il est souvent inutile de vouloir réinventer la roue !

@+
GD