Bonjour,

Je souhaite rendre visible ou pas des objets (shape) selon des valeurs contenues dans des cellules.
Après recherche sur différents posts je suis arriver a adapter une bribe de code pour 2 objets qui dépendent de la cellule H7 (Answer_1).

Or je souhaite maintenant dans cette meme feuille faire la meme chose pour deux autres objets mais à partir d'une autre cellule H11 (Answer_2)...la je bloque

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Answer_1 As Range)
If Answer_1.Address <> "$H$7" Then Exit Sub
    If Answer_1.Value = "YES" Then
        Select Case Answer_1.Value
            Case Is = "YES"
                ActiveSheet.Shapes("Connecteur en angle 23").Visible = True
                ActiveSheet.Shapes("Connecteur en angle 39").Visible = False
         End Select
    Else
        ActiveSheet.Shapes("Connecteur en angle 23").Visible = False
        ActiveSheet.Shapes("Connecteur en angle 39").Visible = True
    End If
End Sub
Auriez vous quelques indices a me donner?
Merci par avance.
Cordialement