Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • CHARLIE FORME .xlsm
    84.1 KB · Affichages: 43
  • CHARLIE FORME .xlsm
    84.1 KB · Affichages: 36
Dernière édition:

JM27

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

Bonsoir

Code:
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
 

Pièces jointes

  • CHARLIE FORME .xlsm
    95.6 KB · Affichages: 38
  • CHARLIE FORME .xlsm
    95.6 KB · Affichages: 39

Discussions similaires

Réponses
6
Affichages
116
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…