Alleger et simplifier

[atos01]

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:

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

        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.

 

[Fred0o]

Re : Alleger et simplifier

Bonjour atos01 et bienvenue sur le forum

Modifier ton code tout simplement avec

Case 1 to 11

A+

 

[atos01]

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

 

[Fred0o]

Re : Alleger et simplifier

Re-bonjour atos01,

Désolé j'avais mal lu ton code. Tu peux donc simplifier comme ceci :

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+

 

[atos01]

Re : Alleger et simplifier

Merci Fredo

Cà fonctionne nickel.
Bonne 1ère expérience du forum grace à toi.
Je crois que je vais revenir souvent vous solliciter.

@+

 

[atos01]

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

 

[Fred0o]

Re : Alleger et simplifier

Re-bonjour,

Oui, c'est posible. Mais sans fichier exemple avec ton formulaire créé et des données fictives dans la liste déroulante, difficile de t'aider.

A+

 

[atos01]

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.