Bonjour je voudrais faire une petite macro qui me permette d'effacer des lignes, une sur 2 en fait dans le fichier ci joint, les lignes a effacer sont en bleu c'est juste pour info la couleur...
Merci
Merci
Salutatfcrew à dit:Bonjour je voudrais faire une petite macro qui me permette d'effacer des lignes, une sur 2 en fait dans le fichier ci joint, les lignes a effacer sont en bleu c'est juste pour info la couleur...
Merci
Sub Test()
Dim x as long
For X = range("B65536").end(xlup).row to 1 step -1
if range("B" & x) = "" then rows(x).delete
next x
end sub
Salutatfcrew à dit:merci,
juste pour ma science y a til une maniere de faire cela avec une macro qui en balyant toute les lignes, des qu elles voit qu elle est vide alors elle la delete?
Sub test()
Dim X As Long
For X = Range("A1").SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Range("IV" & X).End(xlToLeft).Column = 1 Then
If IsEmpty(Range("A" & X)) Then Rows(X).Delete
End If
Next X
End Sub