(RESOLUT)Afficher schémas selon la valeur d'une cellule

[chaelie2015]

Bonjour Form
je souhaite afficher des schémas selon la valeur d'une cellule
SI la cellule L13 =1 alors afficher schémas 1 si la cellule L13 =2 alors afficher schémas 2.
merci par avance
SALUTATIONS

 

[JM27]

Re : Afficher schémas selon la valeur d'une cellule

Bonsoir

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([L13], Target) Is Nothing And Target.Count = 1 Then
        If Target = 1 Then
             Sheets("Feuil1").Shapes("Picture 54").Visible = True
        Sheets("Feuil1").Shapes("Picture 53").Visible = False
        
        ElseIf Target = 2 Then
             Sheets("Feuil1").Shapes("Picture 54").Visible = False
        Sheets("Feuil1").Shapes("Picture 53").Visible = True
        
        End If
 End If
End Sub

 

[chaelie2015]

Re : Afficher schémas selon la valeur d'une cellule

Re Bonjour
je suis désolé pour ce retard
tu as raison je ne sais pas comment je n'ai pas répondu
Sorry
merci pour la réponse
SALUTATIONS