Bonjour à tous,

J'utilise la macro suivant qui efface les lignes d'un tableau lorsque la valeur de la colonne Y est vide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DELEMPTYpositif()
    Dim iRow As Long
    For iRow = Cells(Rows.Count, "Z").End(xlUp).Row To 15 Step -1
 
             If Cells(iRow, "y").Value = "" Then
 
            Rows(iRow).Delete
        End If
    Next iRow
 
 
 
End Sub
J'aimerais que la ligne s'efface aussi lorsque la colonne = 1 et =BABY

j'ecris le code comme cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Cells(iRow, "y").Value = ""; "1"; "BABY"  Then
mais cela ne marche pas,

Pourriez vous m'aide?

Merci beaucoup