M
Merwan
Guest
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
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
