conserver seulement 6 occurrences d'une lm

Bonjour.
J'ai considéré que les données sont en colonne A et que, le cas échéant, la
ligne entière est supprimée :

Sub test()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) > 6 Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel
"Nick" <nick@w.fr> a écrit dans le message de news:
45d9cd0e$0$25934$ba4acef3@news.orange.fr...

Bonjour

J'ai un tableau excel avec une variable en colonne a qui est répétée au
minimum 6 fois ....Je n'aimerais garder que 6 memes occurences de cette
variable meme quand elle est répétée plus de 6 fois
Est ce possible
Merci par avance
Nicolas

Felicitations
Ca marche super !
Maintenant, j'ai un tableau avec 6 occurences de la colonne A avec en
colonnes B 6 dates sur 6 lignes consecutives...J'aimerais maintenant pouvoir
recuperer l'occurence sur une seule ligne avec les 6 dates sur 6 colonnes
(Detruire les 5 lignes suivantes)
Deja un grand merci pour cette aide !
:-)
Nicolas

Est-ce qu'il faut supprimer 5 lignes sur 6 systématiquement ?
Daniel
"Nick" <nick@w.fr> a écrit dans le message de news:
45d9dd50$0$27381$ba4acef3@news.orange.fr...

Felicitations
Ca marche super !
Maintenant, j'ai un tableau avec 6 occurences de la colonne A avec en
colonnes B 6 dates sur 6 lignes consecutives...J'aimerais maintenant
pouvoir
recuperer l'occurence sur une seule ligne avec les 6 dates sur 6
colonnes
(Detruire les 5 lignes suivantes)
Deja un grand merci pour cette aide !
:-)
Nicolas

Oui, c'est cela ...Garder une seule ligne par occurence, avec les 6 colonnes
correspondant aux 6 dates differentes sur cette ligne..Cela revient a
supprimer systematiquement 5 lignes toutes les 6 lignes.
Nicolas

Essaie :

Sub test()
Dim Ligne As Long
Ligne = 1
Do While Cells(Ligne, 1) <> ""
Cells(Ligne, 1).Offset(1, 0).Resize(5, 1).EntireRow.Delete
Ligne = Ligne + 1
Loop
End Sub

Daniel
"nic" <nick@orange.fr> a écrit dans le message de news:
45d9f6e7$0$5110$ba4acef3@news.orange.fr...

Oui, c'est cela ...Garder une seule ligne par occurence, avec les 6
colonnes correspondant aux 6 dates differentes sur cette ligne..Cela
revient a supprimer systematiquement 5 lignes toutes les 6 lignes.
Nicolas

merci..Ca marche comme je le souhaitais
Nicolas
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23HOr1xFVHHA.1364@TK2MSFTNGP06.phx.gbl...

Essaie :

Sub test()
Dim Ligne As Long
Ligne = 1
Do While Cells(Ligne, 1) <> ""
Cells(Ligne, 1).Offset(1, 0).Resize(5, 1).EntireRow.Delete
Ligne = Ligne + 1
Loop
End Sub

Daniel
"nic" <nick@orange.fr> a écrit dans le message de news:
45d9f6e7$0$5110$ba4acef3@news.orange.fr...

Oui, c'est cela ...Garder une seule ligne par occurence, avec les 6
colonnes correspondant aux 6 dates differentes sur cette ligne..Cela
revient a supprimer systematiquement 5 lignes toutes les 6 lignes.
Nicolas