XL 2013 supprimer des lignes en fonction de valeur

[débutantplus]

Bonjour à tous, merci pour votre aide
Je souhaiterais supprimer les lignes avec une macro si possible ne comportant pas l'intitulé "OPA98S";"SO340 B8";"SO340 B10";"SO340 B12";"SO340 B14";"SO340 B16";"SO340 B18";"SO340 B20";"SO340 B24";"SO340 B30".
Toutes ces données sont dans la même colonne.
je vous joints un fichier
Merci bien.

 

[Jacky67]

Bonjour à tous, merci pour votre aide
Je souhaiterais supprimer les lignes avec une macro si possible ne comportant pas l'intitulé "OPA98S";"SO340 B8";"SO340 B10";"SO340 B12";"SO340 B14";"SO340 B16";"SO340 B18";"SO340 B20";"SO340 B24";"SO340 B30".
Toutes ces données sont dans la même colonne.
je vous joints un fichier
Merci bien.

Bonjour,
Ceci devrait faire

Sub test()
Dim x As String
Application.ScreenUpdating = False
    x = ("OPA98S SO340 B8 SO340 B10 SO340 B12 SO340 B14 SO340 B16 SO340 B18 SO340 B20 SO340 B24 SO340 B30")
    With Sheets("COMMANDES")
        For i = .Cells(.Rows.Count, "g").End(xlUp).Row To 9 Step -1
              If InStr(x, .Cells(i, "g")) = 0 Then .Rows(i).Delete
        Next
    End With
End Sub

 

[Phil69970]

Bonjour @débutantplus

Edit : Bonjour Jacky presque en même temps

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

[Phil69970]

Re

@Jacky67

J'ai testé les 2 codes

Résultat identique sauf ici ou tu ne supprimes pas la ligne alors que moi je la supprime

A voir ce que préfère le demandeur

@Phil69970

 

[débutantplus]

Quelle rapidité, les deux font largement l'affaire.
Merci pour votre aide !!

 

[débutantplus]

Quelle rapidité, les deux font largement l'affaire.
Merci pour votre aide !!

Re

@Jacky67

J'ai testé les 2 codes

Résultat identique sauf ici ou tu ne supprimes pas la ligne alors que moi je la supprime

Regarde la pièce jointe 1132344

A voir ce que préfère le demandeur

@Phil69970

Bonjour Philippe66970,
J'aimerais additionner à votre macro que lorsque la formule traite les données des commandes elle modifie la synthax des lignes "dates de livraison", de passer de 00.00.0000 à 00/00/0000, je sais pas si c'est possible de faire ca directement dans votre macro
Cordialement

 

[débutantplus]

C'est dans la feuille "Commande"

 

[Phil69970]

Bonjour @débutantplus

Rappel du principe du forum c'est :

==>une question ==> une ou plusieurs réponses ==> je valide la réponse qui me va et que j'ai retenu
==> Nouvelle question ==> une ou plusieurs réponses==> je valide la réponse qui me va et que j'ai retenu

Modifier une demande 16 jours après l'avoir validé et la dévalidé pour rajouté une nouvelle demande c'est plutôt moyen comme technique...

@Phil69970

 

[débutantplus]

Bonjour Phil69970,
C'était pour faciliter la compréhension de ma demande mais je vais créer une nouvelle question il y a pas de soucis.
Cordialement