Syntaxe If Not/Or et de Select Case/Or

Bonjour cher forum,

Dans une feuille, j'ai une grande liste que je dois trier.
Je ne veux conserver que les lignes qui contiennent telle ou telle expression.
J'ai tenté avec If Not et Or (puisque les conditions ne se cumulent pas), raté. Sur internet c'est visiblement la croix et la bannière pour trouver la syntaxe du If Not/Or...
J'ai donc tenté avec Select Case et Or, encore raté !

Voici mon ébauche (qui ne fonctionne pas) :

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = Range("B65536").End(xlUp).Row To 1 Step -1 Select Case (Cells(i, 2)) Case Is <> "*PLOF*" Or Case Is <> "*PLAF*" Or Case Is <> "*PLIF*" Or Case Is <> "*PLUF*" Or Case Is <> "*PLEF*" : Rows(i).Delete End Select Next i

---

En mots : Si la ligne NE contient PAS le mot "PLOF" ou si elle ne contient pas le mot "PLAF" [etc...], alors supprimer la ligne.
Je ne sais pas quelle structure adopter sachant que je dois conserver toute ligne contenant PLOF ou PLAF, ou PLIF, ou PLUF...

Quelqu'un pourrait-il m'éclairer sur la syntaxe correcte SVP ? Soit du If Not, soit du Select Case...

Merci d'avance !

Kaera*

Bonjour,

Dis plutôt à quoi tu veux arriver en clair et on te diras quelle méthode employer.. à notre avis..

Par exemple, si tes cellules contiennent exclusivement PLIF ou PLaf sans autres caractères, et quelles sont dans des colonnes fixes il pourrait être plus facile et bien plus rapide d'utiliser les filtres auto en raisonnant à l'envers : on filtre ce qui contient ce qu'on ne veut pas et on le fait sauter.

Donc c'est une question de structure initiale de ta table à connaître.


Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour Ormonth,

Ci-joint un fichier qui explicitera le résultat attendu.
Le problème c'est que les cellules ne contiennent pas uniquement PLIF ou PLOF(etc), et les autres cellules peuvent avoir des valeurs relativement variées... :?
C'est pour cette raison que j'ai tenté de passer par un If Not avec Or.

Merci d'avance,

Kaera*

Essaie ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim i As Integer Dim tmp as String   i = Range("B65536").End(xlUp).Row   While i > 0 tmp = Cells(i,2).Value   If InStr(tmp, PLOF) > 0 Or InStr(tmp, PLAF) > 0 Or InStr(tmp, PLUF) > 0 Or InStr(tmp, PLEF) > 0 Then Rows(i).Delete End If   i = i - 1 Wend

---

Bonjour,

pas ouvert le fichier, mais pour répondre précisément sur la syntaxe, ce code supprime les lignes de MaPlage qui ne comportent pas PLAF ou PLOF.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Gogo() Dim objLigne As Range Dim I As Long Dim J As Long   I = Range("MaPlage").Rows.Count For J = I To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("MaPlage").Rows(J), "PLOF") < 1 And Application.WorksheetFunction.CountIf(Range("MaPlage").Rows(J), "PLAF") < 1 Then Range("MaPlage").Rows(J).Delete End If Next J End Sub 'insensible à la casse

---

Attention, on raisonne sur les lignes de MaPlage et pas de la feuille Voir l'image ci-dessous !
Donc on ne supprime pas les donnés adjacentes..
Pour la ligne entière, il faudrait écrire en ligne 9 :

Code:

---

Rows(Range("MaPlage").Rows(J).Row).Delete

---

écriture sympa au niveau de l'objet range ;)

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour,

Ce code fait ce qui est indiqué dans ton fichier, on utilise les jokers ;)
Mais il raisonne ligne par ligne, ce que j'avais compris de la question originale, mais pour ce code, ça ne change rien vu qu'il raisonne sur la plage : MaPlage, c'est donc celle-ci qui délimite la zone, mais du coup pourrai-être optimisé si une seule colonne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Gogo3() Dim objLigne As Range Dim i As Long Dim J As Long   i = Range("MaPlage").Rows.Count For J = i To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("MaPlage").Rows(J), "*PLOF*") < 1 _ And Application.WorksheetFunction.CountIf(Range("MaPlage").Rows(J), "*PLAF*") < 1 _ And Application.WorksheetFunction.CountIf(Range("MaPlage").Rows(J), "*PLUF*") < 1 _ And Application.WorksheetFunction.CountIf(Range("MaPlage").Rows(J), "*PLIF*") < 1 Then Range("MaPlage").Rows(J).Delete ' Rows(Range("MaPlage").Rows(J).Row).Delete End If Next J End Sub

---

Note : insensible à la casse.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points ;)

Didier

Quelques liens sur les opérateurs logiques :
ne pas s'arrêter au tag ou langage du sujet, la logique idem dans ces cas.

http://plasserre.developpez.com/cour...age-vb4#LV-M-4

http://www.scientillula.net/MPI/fr14...ogique.html#2b

http://fr.wikipedia.org/wiki/Table_de_v%C3%A9rit%C3%A9

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Merci beaucoup Ormonth pour ton code final, ça fonctionne très bien.
Merci également pour les liens :ave:
Edit : excellent le lien de P. Lasserre ! C'est justement là-dessus que je me suis emmêlé les pinceaux (Not/Or/And...).

Kaera*