Si une cellule contient une chaîne de mots

[criscris11]

Bonjour à tous en ce jour dominical,
Je cherche à développer une petite formule si dans une cellule il y a une certaine chaîne de mot définie tout en sachant que cette chaîne n'est pas toujours placée au même endroit dans la cellule . Voir le fichier-joint.
Merci à tous d'avance et bonne journée.

 

[Monique]

Re : Si une cellule contient une chaîne de mots

Bonjour,

à essayer
=SI(ESTNUM(TROUVE("médaille en chocolat";E1));"";A1)

Celle-ci suffit peut-être :
=SI(ESTNUM(TROUVE("choc";E1));"";A1)

 

[criscris11]

Re : Si une cellule contient une chaîne de mots

Bonjour Monique,
Merci pour être toujours aussi rapide qu'un éclair. Je teste et te tiens au courant.
Bon après-midi.

 

[criscris11]

Re : Si une cellule contient une chaîne de mots

Monique,
Cela fonctionne nickel avec une petite préférence pour la première formule car il peut y avoir des chaînes de mots différentes avec un mot en commun.
Encore merci et bonne fin de journée à toi et au forum, bien sûr.

 

[Mattharm]

Re : Si une cellule contient une chaîne de mots

Et quelle est la formule pour le faire dans une macro ????

Merci 😉

 

[criscris11]

Re : Si une cellule contient une chaîne de mots

Bonjour Mattharm,
Désolé, je crois que je ne vais pas être à la hauteur pour pouvoir te répondre car mes connaissances en VBA sont faibles (à part quelques bases) mais je pense qu'il y a assez de personnes compétentes sur ce forum pour répondre à ta question.
Bon courage et bonne journée.

 

[myDearFriend!]

Re : Si une cellule contient une chaîne de mots

Bonsoir criscris11, Monique, Mattharm, le Forum,

Par VBA :

[SIZE=2][COLOR=GRAY][B][I]METHODE 1[/I][/B][/COLOR]

    [COLOR=NAVY]If[/COLOR] Range("E1").Value [COLOR=NAVY]Like[/COLOR] "*médaille en chocolat*" [COLOR=NAVY]Then[/COLOR]
        Range("B1").Value = ""
    [COLOR=NAVY]Else[/COLOR]
        Range("B1").Value = Range("A1").Value
    [COLOR=NAVY]End If[/COLOR]
[/SIZE]

OU

[SIZE=2][COLOR=GRAY][B][I]METHODE 2[/I][/B][/COLOR]

    [COLOR=NAVY]If[/COLOR] InStr(Range("E1").Value, "médaille en chocolat") > 0 [COLOR=NAVY]Then[/COLOR]
        Range("B1").Value = ""
    [COLOR=NAVY]Else[/COLOR]
        Range("B1").Value = Range("A1").Value
    [COLOR=NAVY]End If[/COLOR]
[/SIZE]

OU les mêmes simplifiées :

[SIZE=2][COLOR=GRAY][B][I]METHODE 1 SIMPLIFIÉE[/I][/B][/COLOR]

    Range("B1") = IIf(Range("E1") [COLOR=NAVY]Like[/COLOR] "*médaille en chocolat*", "", Range("A1"))
[/SIZE]

[SIZE=2][COLOR=GRAY][B][I]METHODE 2 SIMPLIFIÉE[/I][/B][/COLOR]

    Range("B1") = IIf(InStr(Range("E1"), "médaille en chocolat"), "", Range("A1"))
[/SIZE]

Et comme l'indique très justement Monique :

[SIZE=2]    Range("B1") = IIf(Range("E1") [COLOR=NAVY]Like[/COLOR] "*choc*", "", Range("A1"))
[/SIZE]

devrait suffire...

Cordialement,