chris6999
XLDnaute Impliqué
Bonjour
Je souhaiterais trouver un code qui me permettrait de supprimer toutes les lignes pour lesquelles, la colonne B ne commence pas par G, C, M, G.
Plage requise :
Dernière ligne ou F n'est pas vide jusqu'à la ligne 1 car la colonne A est vide
J'ai trouvé un code mais celui-ci ne semble pas fonctionner
Si quelqu'un peut m'apporter sa lumière en cette matinée pluvieuse, ce sera avec plaisir.
Cordialement
NB Fichier en PJ
Dim i As Integer, DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
For i = DerniereLigne To 1 Step -1
'si la valeur la de la colonne 4 n'est pas x OU y alors supprimer la ligne
If Not (Cells(i, 2).Value Like "*C*" Or Cells(i, 2).Value Like "*U*" Or Cells(i, 2).Value Like "*M*" Or Cells(i, 2).Value Like "*G*") Then
Rows(i).Delete
End If
Next
Je souhaiterais trouver un code qui me permettrait de supprimer toutes les lignes pour lesquelles, la colonne B ne commence pas par G, C, M, G.
Plage requise :
Dernière ligne ou F n'est pas vide jusqu'à la ligne 1 car la colonne A est vide
J'ai trouvé un code mais celui-ci ne semble pas fonctionner
Si quelqu'un peut m'apporter sa lumière en cette matinée pluvieuse, ce sera avec plaisir.
Cordialement
NB Fichier en PJ
Dim i As Integer, DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
For i = DerniereLigne To 1 Step -1
'si la valeur la de la colonne 4 n'est pas x OU y alors supprimer la ligne
If Not (Cells(i, 2).Value Like "*C*" Or Cells(i, 2).Value Like "*U*" Or Cells(i, 2).Value Like "*M*" Or Cells(i, 2).Value Like "*G*") Then
Rows(i).Delete
End If
Next