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

le probleme de VBA est que l'on peut faire un truc de plusieurs manière.
a nous de choisir celle qui nous convient....

 

[arobase37]

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

selon VBA erreur de compilation : sub ou function non définie

 

[francedemo]

Re : VBA cellule contient 2 valeurs texte

dsl, trop vite
c'est IIF et pas IFF

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

dsl, trop vite
c'est IIF et pas IFF

yes c'est ça !
je ne connaissais pas IIF

 

[francedemo]

Re : VBA cellule contient 2 valeurs texte

c'est plus limité dans l'utilisation que if...then...else...end if mais ça raccourci sérieusement le code quant tu l'utilises

 

[arobase37]

Re : VBA cellule contient 2 valeurs texte

C'est ce que je vois, merci du tuyau 😀