(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