Remplir une cellule en fonction d'un critere texte

[loisphil81]

Bonjour Forum,

Je cherche un code ou une formule qui me permette dans une cellule en fonction d'une partie du texte contenu dans celle ci de remplir une autre cellule ex:
si cellule F9 = "MR DUPONT" (contenant le texte "MR") alors B5 = aujourd'hui - sinon = demain

Merci pour votre aide

 

[pierrejean]

Bonjour loisphil81

un code

Sub test()
If InStr(Range("F9"), "MR") <> 0 Then
  Range("B5") = Date
 Else
 Range("B5") = Date + 1
End If
End Sub

 

[loisphil81]

Bonjour Pierre Jean,
Forum
Merci pour cette attention
J'ai omis une précision en voulant dire aujourd'hui et demain je faisais référence a du texte et non des dates
ça aurait pu être rouge et noir, petit ou grand
désolé

 

[pierrejean]

Re
Remplace Date et Date +1 par ce que tu veux

 

[loisphil81]

Re
Remplace Date et Date +1 par ce que tu veux

ok ca fonctionne dans un sens mais pas dans l'autre ex:
si "MR" dans le texte ça marche
si pas "MR" dans le texte ça ne change pas

 

[pierrejean]

Re

Fichier de test

 

[loisphil81]

Merci pour ton temps Pierre jean
Dans ma demande j'ai omis des précisions

Voici une formule ou c'est moins compliqué
Merci de ton aide

=SI(OU(NB.SI(F9;"*MR*")=1;NB.SI(F9;"*MME*")=1);"Fin de travaux";"Virement fin de mois")