Re-bonjour tout le monde,

Je cherche à supprimer des lignes selon un certain critère en vba excel.

Voici ou je suis rendu avec le script:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim i As Long
 
 
    For i = Ligne To 1 Step -1
        If Cells(i, 11).Value = vbNullString And Cells(i, 12).Value = vbNullString Then
            Rows(i).Delete
        End If
    Next i
Je dois présiser que la valeur qui se retrouve dans le ComboBox1, se retrouve dans la colone B de la feuil "Bon de commande" sur 20 lignes un en dessous de l'autres.

De plus, si par exemple la valeur du ComboBox1 est = "00006" , il doit trouver les 20 lignes qui contient la valeur 00006 dans la colone B et supprimer la ligne en entier seulement s'il n'y a pas de valeur dans la cellule 11 et 12 de la même ligne.

S'il y a d'autres valeurs différentes dans la colonne B comme par exemple "00007" etc. , les lignes ne seront pas supprimées.

Merci de votres aides.