Discussion :

[neurone01]

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 :

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

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 :

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

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??????

[ucfoutu]

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)

[laetitia]

bonjour neurone01 ucfoutu le forum essai comme cela

Code :

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

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

[neurone01]

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.

[laetitia]

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

salutations

[OrDonc]

Salut,

Avec des Contrôles dans ta feuille, essaie

Code :

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

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 :

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

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