comment rendre des commandbutton invisible

Bonjour,
je suis à la recherche du petit bout de code qu'il me manque.
je voudrais savoir s'il est possible de rendre plusieurs togglebutton invisible
en une seul action?

Code:

---

1 2 3 4

Private Sub CommandButton2_Click() ToggleButton2.Visible = false ToggleButton4.Visible = false End Sub

---

ce code marche tres bien mais le hic c'est lorsque l'on atteint les 300 boutons.
j'ai donc essayé ça:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton2_Click() For x = 1 To 10 toto = ("ToggleButton") & x toto.visible = False Next x End Sub

---

mais cela "coince"
quelqu'un aurait'il une petite soluce??????

Bonsoir,

S'il s'agit de contrôles placés sur un userform :

La collection Controls t'est utile.
Ainsi :

Controls("voila" & n) se réfère au contrôle nommé voila2 si n = 2 (exemple)

bonjour neurone01 ucfoutu le forum essai comme cela

Code:

---

1 2 3 4

Private Sub valider_Click() Dim i As integer For i = 1 To 300: Controls("ToggleButton" & (i)).Visible = False: Next i End Sub

---

salutations

merci pour vos réponse mais j'avais déjà essayé avec "controls" mais c'est justement là que ça coince . il me met une erreur de compilation de plus il me faut pour des raisons "pratique" que cette formule soit integrer à un commandbutton.

rebonjour le fil le forum pour cela il faudrait voir un bout de ton code

salutations

Salut,

Avec des Contrôles dans ta feuille, essaie

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 300 On Error Resume Next ActiveSheet.Shapes("ToggleButton" & i).Visible = False Next End Sub

---

Dans un USF le code serait :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 300 On Error Resume Next Controls("ToggleButton" & i).Visible = False Next End Sub

---