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

Alleger et simplifier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion atos01
  • Date de début Date de début

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
A

atos01

Guest
Bonjour à tous.

C'est ma 1ère demande d'aide alors s'il vous plait soyez indulgents.

J'aimerais si c'est possible que quelqu'un me dise comment alleger et/ou simplifier le code suivant:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$7" Then
    Select Case Target
    '
    'Choix dans liste déroulante du nombre de liens
    '
        Case "3"
            ActiveSheet.Shapes("Grouper 76").Visible = True          ' Plan 3 liens
            ActiveSheet.Shapes("Grouper 359").Visible = False        ' Plan 4 liens
            ActiveSheet.Shapes("Grouper 5").Visible = False           ' Plan 5 liens
            ActiveSheet.Shapes("Grouper 30").Visible = False         ' Plan 6 liens
            ActiveSheet.Shapes("Grouper 186").Visible = False       ' Plan 7 liens
            ActiveSheet.Shapes("Grouper 222").Visible = False       ' Plan 8 liens
            ActiveSheet.Shapes("Grouper 4").Visible = False          ' Plan 9 liens
            ActiveSheet.Shapes("Grouper 2").Visible = False          ' Plan 10 liens
            ActiveSheet.Shapes("Grouper 75").Visible = False        ' Plan 11 liens

            
        Case "4"
            ActiveSheet.Shapes("Grouper 76").Visible = False
            ActiveSheet.Shapes("Grouper 359").Visible = True
            ActiveSheet.Shapes("Grouper 5").Visible = False
            ActiveSheet.Shapes("Grouper 30").Visible = False
            ActiveSheet.Shapes("Grouper 186").Visible = False
            ActiveSheet.Shapes("Grouper 222").Visible = False
            ActiveSheet.Shapes("Grouper 4").Visible = False
            ActiveSheet.Shapes("Grouper 2").Visible = False
            ActiveSheet.Shapes("Grouper 75").Visible = False
Et ainsi de suite jusque Case 11


Fin du code
Code: 
        Case Else
            ActiveSheet.Shapes("Grouper 76").Visible = False
            ActiveSheet.Shapes("Grouper 359").Visible = False
            ActiveSheet.Shapes("Grouper 5").Visible = False
            ActiveSheet.Shapes("Grouper 30").Visible = False
            ActiveSheet.Shapes("Grouper 186").Visible = False
            ActiveSheet.Shapes("Grouper 222").Visible = False
            ActiveSheet.Shapes("Grouper 4").Visible = False
            ActiveSheet.Shapes("Grouper 2").Visible = False
            ActiveSheet.Shapes("Grouper 75").Visible = False
          
    End Select
End If
End Sub
J'espère que c'est claire.

Merci pour votre aide.
 
Trier par date Trier par votes
Re : Alleger et simplifier

Merci pour ta réponse FREDO

Mais cela ne fonctionne pas.
Lorsque je fais une sélection dans la liste déroulante rien ne se passe, sauf pour les choix 10 et 11. (case 10 et case 11)
Mais même comme çà l'image qui s'affiche ne correspond pas au choix.
C'est à dire que c'est l'image qui normalement correspond au choix n°3 (case 3)de la liste
Merci pour la suite
 
Vote positif 0 Vote négatif
Re : Alleger et simplifier

Re-bonjour atos01,

Désolé j'avais mal lu ton code. Tu peux donc simplifier comme ceci :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$7" Then
        '
        'Choix dans liste déroulante du nombre de liens
        '
        ActiveSheet.Shapes("Grouper 76").Visible = Target = 3        ' Plan 3 liens
        ActiveSheet.Shapes("Grouper 359").Visible = Target = 4        ' Plan 4 liens
        ActiveSheet.Shapes("Grouper 5").Visible = Target = 5           ' Plan 5 liens
        ActiveSheet.Shapes("Grouper 30").Visible = Target = 6         ' Plan 6 liens
        ActiveSheet.Shapes("Grouper 186").Visible = Target = 7       ' Plan 7 liens
        ActiveSheet.Shapes("Grouper 222").Visible = Target = 8       ' Plan 8 liens
        ActiveSheet.Shapes("Grouper 4").Visible = Target = 9          ' Plan 9 liens
        ActiveSheet.Shapes("Grouper 2").Visible = Target = 10          ' Plan 10 liens
        ActiveSheet.Shapes("Grouper 75").Visible = Target = 11        ' Plan 11 liens
    End If
End Sub

Testes-le et dis moi.

A+
 
Vote positif 0 Vote négatif
Re : Alleger et simplifier

Me revoici déjà.
Pour une autre requête.
Est il possible d'apter cette methode à un controle de formulaire (zone de liste)
Si oui avec quel code?
Merci
 
Vote positif 0 Vote négatif
Re : Alleger et simplifier

Salut Fredo.
La, de suite je n'ai pas le temps de continuer notre échange.
Mais, dés que j'aurais un moment, j'essaierais de poster ce que tu veux pour que tu puisses continuer de m'aider, si c'est possible pour toi bien entendu!

Dis-moi si c'est OK.
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
883
NONO14
N
S
  • Résolu(e)
XL 2019 Activer une macro lorsqu'une cellule change de valeur automatiquement
Réponses
3
Affichages
719
Dranreb
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
243
vazvaz
V
  • 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
5 K
Usine à gaz
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
747
patricktoulon
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
2 K
Jouxte
O
  • Résolu(e)
XL 2016 Macro qui ne fonctionne pas quand la feuille est protégée
Réponses
3
Affichages
1 K
sylvanu
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
328
patricktoulon
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
723
troki74
T
S
  • Question Question
XL 2021 Afficher et masquer des colonnes
Réponses
3
Affichages
581
job75
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
2 K
halecs93
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
747
Pimpon974
P
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
1 K
TooFatBoy
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
756
un internaute
U
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
893
bsalv
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…