Salut à tous,
Alors j'ai adapté un code pour supprimer les lignes qui ne contienne pas "PANNEAUX" dans la colonne Q :
Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil2")
'Précisez le nom de votre feuille
For i = .Range("Q" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonne Q
'Rows.count permet de retourner le nombre de ligne de la plage range
If .Range("Q" & i).Value <> "PANNEAUX" Then
.Rows(i).Delete
End If
Next i
End With
End Sub
J'aurais souhaité supprimer les lignes qui ne contienne pas "PANNEAUX" ou "PLEXI" ou "STRAT", j'ai donc essayer :
If .Range("Q" & i).Value <> "PANNEAUX" Or "PLEXI" Or "STRAT" Then
Sans succès, j'ai essayer les "Or", les "And" et les "&" mais sa doit pas être la bonne méthode !
Par la même occasion, comment appliquer le code seulement à partir de la ligne C (car j'ai les désignations des colonnes dans les lignes A et B) sauf que du coup, vu que la colonne Q des lignes A et B est différent de "PANNEAUX", eh bien sa me supprime tout !
Cordialement