Sendmail sous conditions

[Yohan05]

Bonjour,

Voici ce petit code dont je n'arrive pas à exprimer "contient".

En effet, je ne connais pas le code de cette condition, pouvez-vous m'aider?
Est-ce que le fait que "momo" soit occasionnellement en majuscule change l'exécution de la condition?


If Sheets("Informations").Range("B6") contient "momo" Then
ActiveWorkbook.SendMail Recipients:="tota@tatou.be"
Else
End If

Je vous remercie pour votre aide.

Bonne journée

 

[Pierrot93]

Re : Sendmail sous conditions

Bonjour,

essaye ceci :

If Sheets("Informations").Range("B6").Value Like "*momo*" Then

bonne journée
@+

 

[Pierrot93]

Re : Sendmail sous conditions

Re,

pour que ce code ne soit pas sensible à la casse :

If LCase(Sheets("Informations").Range("B6").Value) Like "*momo*" Then

 

[Yohan05]

Re : Sendmail sous conditions

Merci beaucoup

Cela fonctionne parfaitement.