Discussion :

[JonathanF]

Bonsoir tout le monde,

J'essaie de créer sous vba une fonction permettant de tester si un texte fait partie d'un ensemble : si oui on fait apparaitre "OUI" sinon "NON".

Je m'explique: si ma cellule de référence est " A B C", j'aimerai que pour une cellule "A" ma fonction me donne "OUI", pour une cellule "D" ma fonction me donne "NON".

Sur Excel on y arrive avec cette fonction : =SI(NB(CHERCHE(A2;$A$1))=1;"OUI";"NON").
Quelqu'un a une idée sous vba ?

Merci d'avance.

[SfJ5Rpw8]

Voir la fonction InStr (et l'aide en ligne associé )

[JonathanF]

Bonsoir,

J'ai trouvé le code. "Titre" représente la cellule avec les différents Noms à chercher. Si dans "Titre" on trouve le "Sport" on affiche OUI, sinon NON.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function TestEnsemble(Titre As Range, Sport As String) As String
 
    TestEnsemble = InStr(Titre, Sport)
 
    If TestEnsemble > 0 Then TestEnsemble = "OUI" Else TestEnsemble = "NON"
 
End Function

Merci pour le coup de pouce.

[mercatog]

Bonsoir
Attention aux variables.

Comme ceci, c'est mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function TestEnsemble(ByVal Titre As String, ByVal Sport As String) As String
 
TestEnsemble = IIf(InStr(Titre, Sport) > 0, "OUI", "NON")
End Function

Tu as appris l'utilisation de IIf

[kiki29]

Salut, juste pour info
Extrait de l'aide en ligne sur IIf La fonction IIf évalue toujours truepart et falsepart, même si elle ne renvoie qu'un seul de ces arguments. Vous devez donc être particulièrement attentif à certains effets secondaires indésirables de cette fonction. Par exemple, si l'évaluation de falsepart engendre une division par zéro, une erreur se produit même si la valeur de expr est True