Ecrire un texte ds une cellule en fonction de la chaîne de car d'une autre

Bonjour,

Je voudrais écrire le texte "Yes" dans la colonne F de mon fichier Excel si dans ma colonne C il y a présence de la chaîne de caractère "Ob" parmi le texte de chaque cellule. Aussi, il faudrait que le texte "Yes" soit écrit sur la même ligne que celle de chaque cellule dans laquelle la chaîne "Ob" a été détectée.

PS : Il s'agirait d'intégrer cela dans une macro

Je vous remercie de votre aide

Bonjour et Bienvenue sur XLP,

en colonne F :

=SI(ESTNUM(CHERCHE("Ob";C1));"Yes";"")

@ tirer vers le bas

Cordialement

Merci, je m'excuse j'ai oublié de préciser que je souhaitais intégrer ce fonctionnement à une Macro

Re,

c'est pas grave, une âme charitable va surement passer par là pour te donner une macro.

Cordialement

Bonjour,

Partant du principe que la macro est déclenchée manuellement et dois balayer l'ensemble des lignes d'un coup :

Sub Test()

Dim Lig As Long

With Sheets("NomFeuille") 'Tout ce qui concerne cette feuille commence par un "."
    For Lig = 1 To .Range("A" & Rows.Count).End(xlUp).Row 'On se base sur la colonne A pour déterminer la dernière ligne
        If .Range("C" & Lig) Like "*Ob*" Then .Range("F" & Lig) = "Yes"
    Next Lig
End With

End Sub
Rechercher des sujets similaires à "ecrire texte fonction chaine"