Problème simplification de code VBA - Procédure trop grande

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:

---

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:

---

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

---

Merci à tous pour votre aide

Bonjour,

Seulement si tes boutons sont sur un userform :

Code:

---

1 2 3 4

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

---

Merci pour ta réponse rapide.

Malheureusement, mes boutons sont sur une feuille de calcul.

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

Code:

---

1 2 3

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

---

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

Citation:

---

Référence incorrecte ou non qualifiée

---

et le .shapes est en surbrillance.

Merci encore pour ton aide

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

Code:

---

1 2 3 4 5

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

---

ça fonctionne merci beaucoup :)