Plusieurs target.adress nécessaire

bonjour,

Alors mon souci est le suivant, j'ai deux cellules de préselection dans lesquelles je peux choisir Yes ou No.

J'aimerais déclencher une action si la première vaut Yes et la seconde No (ou rien) et une action différente si la première vaut Yes et la seconde Yes aussi.

Auriez vous la syntaxe correspondante? Moi j'avais fait:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$9"   
   If Target = "Yes" and Range("E9")= "No" Then        
     Bim_Yes_No
   ElseIf Target = "Yes" and Range("E9")= "Yes" Then 
      Bim_Yes_Yes
   ElseIf Target = "No" and Range("E9")= "Yes" Then 
      Bim_No_Yes
   Else
      Bim_No_No
    End If
  End If
End Sub

Voilà c'est terre à terre je sais mais je débute.

Je vous remercie d'avance.

Bonsoir

Est ce que j'ai compris ?

Différences entre ta demande et ton code

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C9,E9"), Target) Is Nothing And Target.Count = 1 Then
    If Range("C9") = "Yes" Then
      If Range("E9") = "Yes" Then
        Bim_Yes_Yes
      Else
        'Bim_Yes_....
      End If
    End If
  End If
End Sub

Bonjour; salut Banzai

Je m'étais amusé aussi

Code Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C9,E9")) Is Nothing Then
If Target.Address = "$C$9" Then
Call Test1
ElseIf Target.Address = "$E$9" Then
Call Test2
End If
End If
End Sub

Code Module

Sub Test2()
Range("E9").Select
If Range("E9") = "" Then
MsgBox "Bim_No_No"
Else
MsgBox "Bim_" & Range("$C$9") & "_" & Range("E9")
End If
End Sub
Sub Test1()
Range("C9").Select
If Range("C9") <> "" And Range("E9") <> "" Then
MsgBox "Bim_" & Range("C9") & "_" & Range("E9")
ElseIf Range("C9") <> "" And Range("E9") = "" Then
MsgBox "Bim_No_No"
End If
End Sub

Cordialement

Bonjour j'ai choisi la deuxième solution, elle fonctionne bien, c'est assez simple avec seulement deux cellules. Mais si j'en avais plus le nombre de cas à taper serait une puissance de deux beaucoup trop lourde.

En fait ma première solution fonctionnait à condition de faire de selectionner la cellule dont je voulais tester la valeur avant, ce que je ne savais pas.

Un grand merci, j'avance à grands pas grâce à vous!