Discussion :

[Eleanor]

Bonjour à toutes et à tous.

J'ai un problème avec un code VBA, celui-ci est trop grand et un message m'indique "procédure trop grande".

J'ai 8 commandbutton sur une feuille et je les masque ou les affiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Commandbutton1.visible = true
Commandbutton2.visible = false
Commandbutton3.visible = false
Commandbutton4.visible = false
Commandbutton5.visible = false
Commandbutton6.visible = false
Commandbutton7.visible = false
Commandbutton8.visible = false

Et ainsi de suite pour la valeur true au commandbutton2,etc...

Est-il possible d'alléger un peu le code?

Peut-on faire un regroupement de bouton, comme par exemple dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
commandbutton1.visible = true
commandbutton("1:8").visible = false

Merci à tous pour votre aide

[Daniel.C]

Bonjour,

Seulement si tes boutons sont sur un userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    For i = 1 To 8
        Me.Controls("CommandButton" & i).Visible = False
        Me.Controls("CommandButton" & i).Value = False
    Next i

[Eleanor]

Merci pour ta réponse rapide.

Malheureusement, mes boutons sont sur une feuille de calcul.

[Daniel.C]

Tu l'aurais dit tout de suite, tu aurais gagné du temps...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For i = 1 To .Shapes.Count
            .Shapes("CommandButton" & i).Visible = False
        Next i

[Eleanor]

J'ai essayé ta méthode, malheureusement j'ai un message d'erreur :

Référence incorrecte ou non qualifiée

et le .shapes est en surbrillance.

Merci encore pour ton aide

[Daniel.C]

Oups, je n'ai donné qu'une partie du code (ça doit être la chaleur) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    With ActiveSheet
        For i = 1 To .Shapes.Count
            .Shapes("CommandButton" & i).Visible = False
        Next i
    End With

[Eleanor]

ça fonctionne merci beaucoup