Condition multiple "Like"
Bonjour à tous,
Je cherche à effectuer une condition multiple me permettant de copier une ligne ,sous condition, d’un fichier excel à un autre.
Cependant je rencontre un problème :
1er test :
A = Range ("A" & x + 4).Value
B = Range ("B" & x + 4).Value
C = Range ("B" & x + 4).Value
‘ la ligne n'est pas copiée si "OUI" dans colonne A et "NON" en colonne B et information en colonne C différente de "Thomas" ou "Jean" ou le mot "mot" parmi d'autres caractères.
If Not (A = "OUI" & (B = "NON" And (C <> "Thomas" Or C <> "Jean" Or C Like "*mot*"))) Then
End If
Rien n’est copier la macro ne fonctionne pas.
2ieme test : J’ai raccourci ma formule pour tester la partie « Like… »
A = Range
C = Range
‘ la ligne n'est pas copiée si "OUI" dans colonne A et et information en colonne C contenant le mot "mot" parmi d'autres caractères.
If Not A = "OUI" & C Like "*mot*" Then
End If
Rien n’est copié la macro ne marche pas.
3ieme test : séparation des conditions
A = Range
C = Range
‘ copie
If Not A = "OUI" Then
If Not C Like "*mot*" Then
End If
End If
La macro marche mais le problèmes c'est que j'ai d'autre conditions à ajouter... il n'y a pas de condition multiple dans ce cas.
Comment faire en sorte de faire marcher cette condition "like" avec les autres condition ?
Je vous remercie d'avance.
Thomas.
Bonjour
dans la ligne --> A = Range ("A" & x + 4).Value, X correspond à quoi ?
Crdlt
Edit : sinon essaie ceci
Dim A As String, B As String, C As String
A = Range("A" & x + 4).Value
B = Range("B" & x + 4).Value
C = Range("C" & x + 4).Value
If Not A = "OUI" And Not B = "NON" And Not C <> "Thomas" Or Not C <> "Jean" Or Not C Like "*mot*" Then
'...
End IfBonjour,
& est un opérateur de concaténation, et non un opérateur logique !
If A <> "OUI" And B <> "NON" And (C = "Thomas" Or C = "Jean" Or C Like "*mot*") ThenCordialement.