Attribuer un 1 si Nom présent dans cellule unique

[JBARBE]

Bonjour à tous,
Je reviens vers vous pour trouver si le NOM dans la cellule I1 est présent dans la cellule G1 !
Si c'est le cas mettre 1 dans la cellule H1 sinon rien !
Si possible en VBA !

Merci à l'avance et bonne journée !

 

[Jacky67]

Bonjour,
Essaye avec

If UCase([g1]) Like "*" & UCase([i1]) & "*" Then [h1] = 1

 

[Paf]

Bonjour à tous

une solution par fonction personnalisée:

Function TrouveDans(Dans, Quoi)
TrouveDans = IIf(InStr(Dans, Quoi) > 0, 1, "")
End Function

et en H1 : =TrouveDans(G1;I1)

A+

 

[JBARBE]

Re,
Impeccable !

Merci à vous deux et bonne journée !