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

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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)
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
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
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
mais ça n'a pas marché ??
MERCI PAR AVANCE
Salutations
 
Dernière édition:
Trier par date Trier par votes
Re : modification d'un code pour insserer des graphes sous deux conditions

Salut,

Tu peux essayer ceci :

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

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
 
Vote positif 0 Vote négatif
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 :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
404
job75
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
341
un internaute
U
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
509
pat66
P
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
569
un internaute
U
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
439
sylvanu
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
196
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
510
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
245
nabilexcel2007
N
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
86
anthoYS
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
962
tnion
T
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
349
patricktoulon
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
650
thunder23
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
679
chaelie2015
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
378
eric72
E
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
235
Francky79
F
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
640
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…