Bonjour
Je recherche à supprimer les lignes dont la valeur en colonne A est vide ou = ""
Voir macro ci jointe.
J'ai 2 problèmes :
- soit la macro ne m'efface pas toutes les ligne
- soit elle tourne en boucle quand j'insère la ligne i = i-1
merci de m'aider à finaliser cette macro.
cdt
nonoTT
Je recherche à supprimer les lignes dont la valeur en colonne A est vide ou = ""
Voir macro ci jointe.
J'ai 2 problèmes :
- soit la macro ne m'efface pas toutes les ligne
- soit elle tourne en boucle quand j'insère la ligne i = i-1
merci de m'aider à finaliser cette macro.
Code:
Sub macro1 ()
Cells.Select
Selection.Copy
Sheets("Sheet1").Select
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
dim i, derlig as long
derlig = Range("A65226").End(xlUp).Row
For i = 2 To derlig
If Range("A" & i) = "" Then
Rows(i).Delete
'i = i-1
End If
Next i
End Sub
cdt
nonoTT