VBA cellule contient 2 valeurs texte

[arobase37]

Bonjour
Je voudrais créer une fonction en VBA pour filtrer une cellule si elle contient deux valeurs textes.
j'ai fait ce code mais il me renvoie uniquement "no"
j'ai dû me louper sur l'opérateur...

Function dosleg(leg)
If Range("A1").Value Like "*dossiers*" And Range("A1").Value2 Like "*legislatives*" Then
dosleg = "ok"
Else
dosleg = "No"
End If

End Function


Merci de votre aide !

 

[tbft]

Re : VBA cellule contient 2 valeurs texte

bonjour

pourquoi utiliser value et value2?
essai (peut être) de mettre des parenthèses!
a quoi sert la variable leg passé en paramètre?

 

[francedemo]

Re : VBA cellule contient 2 valeurs texte

bonjour,
à essayer
If Range("A1").Value Like "*dossiers*" And Range("A1").Value Like "*legislatives*" Then...

ou avec un IFF :
dosleg = IFF(Range("A1").Value Like "*dossiers*" And Range("A1").Value Like "*legislatives*", "ok", "no")

(pas testé)
à+

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

Merci, je teste
le paramètre est resté d'un précédent essai mais oui, il est désormais inutile !!

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

Zut non..
Merci de votre réactivité en tout cas !

 

[tbft]

Re : VBA cellule contient 2 valeurs texte

zut non??????

 

[francedemo]

Re : VBA cellule contient 2 valeurs texte

pour savoir où ça cloche, tu peux essayer
If Range("A1").Value Like "*dossiers*" Then x=1
If Range("A1").Value Like "*legislatives*" Then y=1
If x=1 And y=1 Then...
tu sauras ainsi si c'est x qui pose soucis ou y
à+

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

tbft : zut non, ça ne fonctionne pas (je complète ;-))
bonne idée francedemo, j'essaie, merci !

 

[tbft]

Re : VBA cellule contient 2 valeurs texte

en utilisant la fenêtre espion avec les trois espions suivants:
Range("A1").Value
Range("A1").Value Like "*dossiers*"
Range("A1").Value Like "*legislatives*"
le premier affiche la valeur et les deux autres affichent le résultat du test en tor

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

Grâce à vos réponses, j'ai la solution sous cette forme :
le secret devait être mon paramètre leg que j'aurais dû exploiter au lieu de supprimer !

Function dosleg(leg)
If leg.Value Like "*dossiers*" Then x = 1
If leg.Value Like "*legislatives*" Then y = 1
If x = 1 And y = 1 Then
dosleg = "ok"
Else
dosleg = "no"
End If

End Function

Merci beaucoup et bonne journée à vous tous !

 

[tbft]

Re : VBA cellule contient 2 valeurs texte

bonjour

plus court

Function dosleg(leg)
dosleg=( leg.Value Like "*dossiers*") and (leg.Value Like "*legislatives*" )
End Function

essaye si cela te tente et tiens moi au courant.....

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

impec tbft ! cela renvoie bien vrai au lieu de mon ok
merci, c'est plus court en effet

 

[tbft]

Re : VBA cellule contient 2 valeurs texte

oups j'avais zapper le ok ou no

Function dosleg(leg)
if (( leg.Value Like "*dossiers*") and (leg.Value Like "*legislatives*" ))then dosleg="ok" else dosleg="no"
End Function

 

[francedemo]

Re : VBA cellule contient 2 valeurs texte

donc, avec IFF :

Function dosleg(leg)
  dosleg = IFF(( leg.Value Like "*dossiers*") and (leg.Value Like "*legislatives*"), "ok", "no")
End Function

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

oups j'avais zapper le ok ou no

Function dosleg(leg)
if (( leg.Value Like "*dossiers*") and (leg.Value Like "*legislatives*" ))then dosleg="ok" else dosleg="no"
End Function

pas de problème, cette partie-là je maîtrise ;-)