A tout hasard essaye ce code a mettre dans un module standard
Code:
Sub EssAi()
Dim i As Long, DerLig As Long
DerLig = Range("E" & Rows.Count).End(xlUp).Row
For i = DerLig To 2 Step -1
If Not IsNumeric(Cells(i, 5)) Then Rows(i).EntireRow.Delete
Next i
End Sub
si dans la colonne E à partir de la ligne 6 jusqu'à la dernière ligne de la colonne E, pas de chiffre dans la case alors supprime la ligne, j'espère être plus clair (c pas évident)
Sub EssAi()
Dim i As Long, DerLig As Long
DerLig = Range("E" & Rows.Count).End(xlUp).Row
For i = DerLig To 6 Step -1
If Not IsNumeric(Cells(i, 5)) Or Cells(i, 5) = "" Then Rows(i).EntireRow.Delete
Next i
End Sub
voilà j'ai attaque le VBA il y a 2 mois (donc novice)
Je programme par apprentissage & ça marche par contre ça fait un paquet de ligne
Pouvez-vous regarder ce fichier.
gaudone
Tu as regardé dans les archives du forum (grâce à la loupe en haut à droite)
Car identifier la dernière cellule non vide d'une colonne est une question qui revient souvent sur le forum