Discussion :

[avyrex]

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.

[LeForestier]

Bonjour, ce petit bout de code pourra peut-être t'aidé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TestLigne()
Dim i As Integer, e As Integer
Dim a$
a$ = "00006" ' la donnée qui vient du Combo
Sheets("feuil1").Select 'la feuille qu'il faut traiter
    For i = Range("B65536").End(xlUp).Row To 1 Step -1
        'test dans colonne B si la valeur a$ se trouve
        If Range("B" & i).Value = a$ Then
            'la valeur de a$ est détectée
            If Range("J" & i).Value = vbNullString And _
                Range("K" & i).Value = vbNullString Then
                'colonne 10 et 11 vide supprime la ligne
                Rows(i).Delete
            End If
        End If
    Next i
End Sub

A+

[ouskel'n'or]

Il est où ton combobox dans ton code ? Tu nous montre un code où il n'apparaît pas