Macro suivant valeur d'une cellule

[karinette]

Bonjour à tous,

J'aimerais pouvoir lancer un msgbox lorsque la valeur de ma cellule contient les termes "stev" et "no" ensemble.
Le tout dans sune plage defini (A25:A50).

Par exemple si l'utilisateur saisi "stev0112no4", le msgbox se lance ...

Merci d'avance aux experts ...

 

[DoubleZero]

Re : Macro suivant valeur d'une cellule

Bonjour, karinette, le Forum,

Peut-être avec ce code, placé dans le module de l'onglet :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, Range("a25:a50")) Is Nothing Then
        If c.Value Like "stev*" And c.Value Like "*no*" Then MsgBox "stev - no": c.Select
    End If
End Sub

A bientôt

 

[karinette]

Re : Macro suivant valeur d'une cellule

Merci pour le code .. Je vais tester ça ...