Probleme:via VBA, trouver un mot precis dans une liste

[pasquetp]

Bonjour,

je viens vers vous pour un problème.

imaginons j'ai le mot ProductType. et je veux savoir si ce mot se trouver dans du texte: exemple: A value is required for the "ProductType" field.

si le mot est présent alors faire telle action sinon rien. En gros c'est du boolean. si on trouve le mot alors ceci sinon cela.

si vous aviez une macro pour faire ce type d’opération, je vous en serai reconnaissant a souhait.

Je vous remercie a tous par avance.

Cordialement.

 

[camarchepas]

Re : Probleme:via VBA, trouver un mot precis dans une liste

Bonjour Pasquetp,

Voici une solution à moduler en fonction de la sensibilité à la casse , et prendre ou pas un mot contenu dans un autre.
En cellule A1 renseigner la phrase
en cellule A2 renseigner le mot à trouver
Exécutes la macro et hop
Le principe est là :

Option Explicit

Sub TestMot()
Dim MotCible As String
Dim Phrase As String
Dim Emplacement As Long
Phrase = Range("A1")
MotCible = Range("A2")
Emplacement = InStr(1, Phrase, MotCible)
If Emplacement > 0 Then
  MsgBox "Trouvé dans la phrase au " & Emplacement & " caractère"
 Else
  MsgBox "Non présent dans la phrase"
End If
End Sub

 

[jpb388]

Re : Probleme:via VBA, trouver un mot precis dans une liste

bonjour à tous
autre méthode
range("e5")= A value is required for the "ProductType" field.
if range("e5").value like "*ProductType*" then msgbox "Vrai"

 

[pasquetp]

Re : Probleme:via VBA, trouver un mot precis dans une liste

Tout d'abord merci a vous deux.

j'ai regarde vos macros et c'est juste le top. personnellement, j'utiliserai plus la seconde : if range("e5").value like "*ProductType*" then msgbox "Vrai"

j'ai deja une macro pour d'autres operations et c'est deja assez complexe que je prefere aller au plus simple

donc reussir via une seule ligne je dis chapeau.

Merci encore a vous deux et bon boulot. merci