supression ligne

[jean michel]

bonjour a tous

Avec cette macro je supprime les lignes dont les cellules de la colonne D sont vides, mais je voudrais apporté une nouvelle condition , il faudrait que les cellules D et E soient vides sinon pas de suppression


'efface la ligne si colonne D =0
Dim NumCol As Byte
Dim NumLig As Integer, i As Integer
Range("D1").Select

NumCol = ActiveCell.Column
NumLig = Cells(100, NumCol).End(xlUp).Row

Application.ScreenUpdating = False
For i = NumLig To 6 Step -1
If Cells(i, NumCol) = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

End Sub
bon dimanche et merci a tous

 

[Michel_M]

bonsoir

essaies un AND

If Cells(i, NumCol) AND cells(i, numcol+1) = "" Then Rows(i).Delete


Michel

 

[coyote]

je dirais :

If Cells(i, NumCol) = "" and Cells(i, NumCol+1) = "" Then Rows(i).Delete

Bravo pour la boucle démarrant par la fin (pour éviter les décalages à chaque suppression de ligne), on ne pense pas toujours à ce détail.

 

[coyote]

en même temps michel

 

[Michel_M]

OK Coyote

J'avais oublié le premier =""...

J'ai pas la forme, sans doute le temps pourri ici, comme ca j'ai une excuse

Amicalement
Michel

 

[jean michel]

merci MICHEL et Coyote

bonne soiree