Bonjour,
je vous expose mon problème, je souhaiterais supprimer une ligne selon la condition suivante :
Si la cellule B*=toto et la cellule H*="" alors supprimer la ligne
Le problème étant que je n'arrive pas à lui faire prendre en compte les lignes vides...
Code :
Sub outlim1()
Dim a As Integer, b As Integer, COLOA As Integer, COLOB As Integer
COLOA = Sheets(1).Columns(2).Find("", [B65536], , , xlByRows, xlPrevious).Row - 1
For a = COLOA To 1 Step -1
If Sheets(1).Range("B" & a).Value = Sheets(3).Range("A1").Value And Sheets(1).Range("H" & a).Value = "" Then _
Sheets(1).Rows(a).Delete
Next a
End Sub
Pour info, si je remplace Value = "" par Value = "test" avec des cellules en H remplies avec "test", bien entendu, ça marche...
Si quelqu'un a une idée...
Merci
je vous expose mon problème, je souhaiterais supprimer une ligne selon la condition suivante :
Si la cellule B*=toto et la cellule H*="" alors supprimer la ligne
Le problème étant que je n'arrive pas à lui faire prendre en compte les lignes vides...
Code :
Sub outlim1()
Dim a As Integer, b As Integer, COLOA As Integer, COLOB As Integer
COLOA = Sheets(1).Columns(2).Find("", [B65536], , , xlByRows, xlPrevious).Row - 1
For a = COLOA To 1 Step -1
If Sheets(1).Range("B" & a).Value = Sheets(3).Range("A1").Value And Sheets(1).Range("H" & a).Value = "" Then _
Sheets(1).Rows(a).Delete
Next a
End Sub
Pour info, si je remplace Value = "" par Value = "test" avec des cellules en H remplies avec "test", bien entendu, ça marche...
Si quelqu'un a une idée...
Merci
Dernière édition: