Microsoft 365 code vba pour chaine de caractère

[Septsuna]

Bonjour j'ai un fichier et je voudrais faire en sorte qu'un msgbox apparaissent lorsque que le mot "souris" est saisie dans une colonne cible
j'ai plus ou moins réussi mais le problème c'est que cela prends en compte également les cellules dont la saisie est englobe le mot cible.
par exemple pour souris je veux un msgbox si on note souris ou souris ergonomique mais pas pour tapis de souris.
J'espère avoir été clair

Voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, Qui As String, Plage As String
Qui = "souris"
Plage = "E5:E85"
Set Rg = Range(Plage).Find(Qui)
If Not Rg Is Nothing Then MsgBox "Pour toute demande de matériel informatique , merci de vous rapprocher du service concerné" & vbCrLf & "Cellule concerné" & Rg.Address Else Exit Sub
End Sub

merci d'avance pour votre aide

 

[vgendron]

hello et bienvenue

si j'ai bien compris, il faut le message box uniquement si la saisie COMMENCE par souris? dans la plage E5:E85

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Qui As String

If Intersect(Target, Range("E5:E85")) Is Nothing Then Exit Sub
    Qui = "souris"
    
    If Target Like Qui & "*" Then
        MsgBox "Pour toute demande de matériel informatique , merci de vous rapprocher du service concerné" & vbCrLf & "Cellule concernée: " & Target.Address
    End If
End Sub

 

[Septsuna]

hello et bienvenue

si j'ai bien compris, il faut le message box uniquement si la saisie COMMENCE par souris? dans la plage E5:E85

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Qui As String

If Intersect(Target, Range("E5:E85")) Is Nothing Then Exit Sub
    Qui = "souris"
   
    If Target Like Qui & "*" Then
        MsgBox "Pour toute demande de matériel informatique , merci de vous rapprocher du service concerné" & vbCrLf & "Cellule concernée: " & Target.Address
    End If
End Sub

C'est parfait , c'est exactement ça.
Je vous remercie

Bonne journée.

 

[mapomme]

Et pour la "sourise sur le gâteau" 😃😅🤪
Bon, je sors...

 

[vgendron]

Et pour la "sourise sur le gâteau" 😃😅🤪
Je sors...

le service concerné sera donc la patisserie d'a coté :-D