(RESOLU)modification d'un code pour insserer des graphes sous deux conditions

[chaelie2015]

Bonjour Forum
je souhaite afficher DES GRAPHES selon la valeur d'une cellule(x19) ci dessous le code ( ça fonctionne très bien)

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

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

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

mais ça n'a pas marché ??
MERCI PAR AVANCE
Salutations

 

[Lord Nelson]

Re : modification d'un code pour insserer des graphes sous deux conditions

Salut,

Tu peux essayer ceci :

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

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

A+
H

 

[chaelie2015]

Re : modification d'un code pour insserer des graphes sous deux conditions

Bonjour Lord
merci d'avoir répondu, mais ça n'a pas marché
Salutations

 

[Lord Nelson]

Re : modification d'un code pour insserer des graphes sous deux conditions

Quelle valeur as-tu en AD26 ?
Comment lances-tu cette macro ?

 

[chaelie2015]

Re : modification d'un code pour insserer des graphes sous deux conditions

Re
dans AD26 j'ai 1 ou 2
CI JOINT LE FICHIER EXEMPLE
SALUTATIONS

 

[chaelie2015]

Re : modification d'un code pour insserer des graphes sous deux conditions

Bonjour forum
puis je avoir vos commentaires
salutations

 

[chaelie2015]

Re : modification d'un code pour insserer des graphes sous deux conditions

Bonjour Forum
ci dessous le lien de la solution de base ; mais je souhaite faire des if imbriqués
https://www.excel-downloads.com/thr...chemas-selon-la-valeur-dune-cellule.20004706/
salutations

 

[Lord Nelson]

Re : modification d'un code pour insserer des graphes sous deux conditions

Salut Charlie,

Pas facile de voir où tu veux en venir avec l'exemple que tu donnes...

Pour que cela fonctionne, il faut tester le changement dans K26 plutôt que AD26 qui ne fait qu'interpréter K26.

Donc :

If Not Intersect([K26], Target) Is Nothing And Target.Count = 1 Then
    If [AD26] = 1 Then
         Sheets("Feuil1").Shapes("Groupe 43").Visible = True
         Sheets("Feuil1").Shapes("Groupe 120").Visible = False
    ElseIf [AD26] = 2 Then
         Sheets("Feuil1").Shapes("Groupe 43").Visible = False
         Sheets("Feuil1").Shapes("Groupe 120").Visible = True
    End If
End If

A+
H

 

[chaelie2015]

Re : modification d'un code pour insserer des graphes sous deux conditions

Re
merci, si j'ai bien saisi je dois séparer les deux codes , je vais les tester
merci

 

[chaelie2015]

Re : (RESOLU)modification d'un code pour insserer des graphes sous deux conditions

Bonjour Lord
Mon souci est résolut
SALUTATIONS