Discussion :

[guismo30]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fab_de_chez_PERFORM]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guismo30]

Merci beaucoup c'est solutionné
bonne journée