VBA rechercher deux valeurs

Bonjour à tous,
es ce que quelqu'un pourrait m'aider pour ce petit soucis...
Je ne suis pas très douée en vba mais je sais combiner ;)

Ici j'ai réussi a faire une VBA qui va checker la valeur d'une cellule et suivant la valeur elle va activer une macro.
maintenant j'aimerais que la VBA check deux valeurs au lieu d'une... mais je n'y arrive pas :(

la recherche doit se faire sur la valeur FLOWF1H et FLOWF2H

Pourriez vous m'aider?
Je vous remercie !
Guismo30

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Remove Case Sensitivity Option Compare Text Private Sub Worksheet_Change(ByVal Target As Range) 'Determine if change was made to cell G7 If Not Intersect(Target, Range("M3")) Is Nothing Then 'Determine if the work "yes" is contained within cell G7 If InStr(1, Range("M3"), "FLOWF1H") > 0 Then Call Carton End If End Sub

---

Bonjour
je pense qu'il faut terminer le 1er If par un End if puis refaire un If et terminer par un End If

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Remove Case Sensitivity Option Compare Text Private Sub Worksheet_Change(ByVal Target As Range) 'Determine if change was made to cell G7 If Not Intersect(Target, Range("M3")) Is Nothing Then mettre ta macro ici End if 'Determine if the work "yes" is contained within cell G7 If InStr(1, Range("M3"), "FLOWF1H") > 0 Then Call Carton End If End Sub

---

C'est la première idée qui me vient mais je n'ai pas pu essayer donc à toi d'adapter
Dans tous les cas, chaque if doit se terminer par une End If

NB : si ta macro était du style [ =si(ma valeur 1 = aaa alors si (ma valeur 2 = bbb alors faire ceci sinon faire cela) sinon faire cela) alors tu pourrais avoir 2 End if à la fin

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Remove Case Sensitivity Option Compare Text Private Sub Worksheet_Change(ByVal Target As Range) 'Determine if change was made to cell G7 If Not Intersect(Target, Range("M3")) Is Nothing Then 'Determine if the work "yes" is contained within cell G7 If InStr(1, Range("M3"), "FLOWF1H") > 0 Then Call Carton End If End if End Sub

---

Merci beaucoup :) c'est solutionné
bonne journée