faire cela si une cellule contient le mot "toto"

[Pascal]

Bonsoir à tous le forum,

J'ai une petite colle à vous soumettre : Comment traduire sous forme de macro le fait que si la cellule contient le mot "toto" faire ceci ou cela ?

ex :

la valeur de la cellule a1= je pense que toto est fort

si range("a1") --- contient le mot toto---then
range("b1") = "merci le forum pour la solution !!!"

Je vous remercie par avance pour votre collaboration.
Bonne soirée
Pascal

 

[galopin01]

Bonsoir,

Sub test()
Z = [A1].Value
R = "toto"
If InStr(1, Z, R) > 0 Then [A2].Value = "Ok ?"
End Sub

Ok ?

 

[Hervé]

Bonsoir

Un truc dans ce style :


Public Sub vev()
If Not Range("a1").Find("toto") Is Nothing Then
Range("b1") = "bravo"
End If
End Sub

Salut
Hervé

 

[Hervé]

re

oups désolé Galopin01, je ne t'avais point vu.

Salut
Hervé

 

[Pascal]

Merci Galopin01 et Hervé pour vos réponses aussi rapides !!

Au même moment, je trouvais la solution ci-dessous qui, à ma grande surprise, fonctionne même si le mot toto est noyé dans une foule d'infos !


Sub qa()
If Range("a1").Value Like "*toto*" Then
Range("d1") = "toto"
End If
End Sub

Merci encore à Galopin01 et Hervé pour votre aide
Pascal

 

[Hervé]

re

3 méthodes pour retrouver toto, vraiment on l'aime notre toto, lol.

Salut
Hervé