chaelie2015
XLDnaute Accro
Bonjour Forum
je souhaite afficher DES GRAPHES selon la valeur d'une cellule(x19) ci dessous le code ( ça fonctionne très bien)
mais je souhaite encore développer ce code c a d ajouter d'autre graphes sous deux condition
c a d si la cellule x19=1 alors
deux cas si la cellule AD26=1 afficher le groupe43 et masquer le groupe 120
sinon si AD26=2 AFFICHER LE GROUPE 120 et masquer le groupe 43
j'ai modifié le code comme ci dessous
mais ça n'a pas marché ??
MERCI PAR AVANCE
Salutations
je souhaite afficher DES GRAPHES selon la valeur d'une cellule(x19) ci dessous le code ( ça fonctionne très bien)
Code:
If Not Intersect([X19], Target) Is Nothing And Target.Count = 1 Then
Sheets("Feuil1").Shapes("Groupe 35").Visible = False
Sheets("Feuil1").Shapes("Groupe 52").Visible = False
If Target = 1 Then
Sheets("Feuil1").Shapes("Groupe 35").Visible = True
Sheets("Feuil1").Shapes("Groupe 52").Visible = False
ElseIf Target = 2 Then
Sheets("Feuil1").Shapes("Groupe 35").Visible = False
Sheets("Feuil1").Shapes("Groupe 52").Visible = True
End If
End If
c a d si la cellule x19=1 alors
deux cas si la cellule AD26=1 afficher le groupe43 et masquer le groupe 120
sinon si AD26=2 AFFICHER LE GROUPE 120 et masquer le groupe 43
j'ai modifié le code comme ci dessous
Code:
If Not Intersect([X19], Target) Is Nothing And Target.Count = 1 Then
Sheets("Feuil1").Shapes("Groupe 35").Visible = False
Sheets("Feuil1").Shapes("Groupe 52").Visible = False
If Target = 1 Then
Sheets("Feuil1").Shapes("Groupe 35").Visible = True
Sheets("Feuil1").Shapes("Groupe 52").Visible = False
If Not Intersect([AD26], Target) Is Nothing And Target.Count = 1 Then
Sheets("Feuil1").Shapes("Groupe 43").Visible = False
Sheets("Feuil1").Shapes("Groupe 120").Visible = False
If Target = 1 Then
Sheets("Feuil1").Shapes("Groupe 43").Visible = True
Sheets("Feuil1").Shapes("Groupe 120").Visible = False
ElseIf Target = 2 Then
Sheets("Feuil1").Shapes("Groupe 43").Visible = False
Sheets("Feuil1").Shapes("Groupe 120").Visible = True
End If
End If
ElseIf Target = 2 Then
Sheets("Feuil1").Shapes("Groupe 35").Visible = False
Sheets("Feuil1").Shapes("Groupe 52").Visible = True
End If
End If
MERCI PAR AVANCE
Salutations
Dernière édition: