effacer ligne

[julie999]

bonjour j'utilise ce code
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = [e1] Then Cells(i, 1).EntireRow.Delete
Next

cette formule m'efface les lignes si elle contient la meme date que la cellule E1
comment faire pour que au lieu de parcourrir toute les lignes 'next'
le code parcour que 8000 ligne (par exemple)
Julie

 

[flyonets44]

Re : effacer ligne

bonjour
tu définis une variable qui stocke le numéro de la dernière cellule non vide dans ta colonne
Dim K as long
k=range("a65536").end(xlup).row
et en suite for k=1 to k

ton code
next
Cordialement
Flyonets

 

[julie999]

Re : effacer ligne

salut flyonets

Dim K as long
k=range("a65536").end(xlup).row
for k=1 to k
If Cells(i, 1).Value = [e1] Then Cells(i, 1).EntireRow.Delete
Next

ça donnerais ça comme code c'est bien ça et ensuite je peux modifier le nombre de ligne('10000")
Julie