VBA et Excel
irrypetagoyen
Messages postés
8
Date d'inscription
samedi 25 février 2006
Statut
Membre
Dernière intervention
11 février 2009
-
3 sept. 2008 à 21:06
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 3 sept. 2008 à 23:36
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 3 sept. 2008 à 23:36
A voir également:
- VBA et Excel
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Excel vba dernière ligne ✓ - Forum Visual Basic 6
- Code vba excel formulaire pdf ✓ - Forum Visual Basic 6
1 réponse
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
3 sept. 2008 à 23:36
3 sept. 2008 à 23:36
Bonjour ,
Il est possible sous certaine condition.
> Crée un 'userform' et ton 'button'
> Place dessus les ToggleButtons , et nomment les dans l'ordre: Togglebutton1,Togglebutton2,...........,Togglebutton50 et
jusqu'au dernier.
Ecrit ce code:
------------------------------------------------------------
Dim Tg
Dim NumeroToogleButton
NumeroToogleButton = 0
'Pour tous les objets de la feuille
For Each Tg In UserForm1.Controls
'Récupere les objects ToggleButton
If Tg.Name Like "ToggleButton" & "*" Then
'Compte les ToggleButtons
NumeroToogleButton = NumeroToogleButton + 1
'Met le caption dans chaque Togglebouton
'1,2,3...jusqu'au dernier
UserForm1.Controls("ToggleButton" & _
NumeroToogleButton).Value = True
'Attribue le meme caption
UserForm1.Controls("ToggleButton" & _
NumeroToogleButton).Caption = "Toto"
End If
Next
-------------------------------------------------------------
Adapte les noms de controles avec ce code.
A tester !
A+
Il est possible sous certaine condition.
> Crée un 'userform' et ton 'button'
> Place dessus les ToggleButtons , et nomment les dans l'ordre: Togglebutton1,Togglebutton2,...........,Togglebutton50 et
jusqu'au dernier.
Ecrit ce code:
------------------------------------------------------------
Dim Tg
Dim NumeroToogleButton
NumeroToogleButton = 0
'Pour tous les objets de la feuille
For Each Tg In UserForm1.Controls
'Récupere les objects ToggleButton
If Tg.Name Like "ToggleButton" & "*" Then
'Compte les ToggleButtons
NumeroToogleButton = NumeroToogleButton + 1
'Met le caption dans chaque Togglebouton
'1,2,3...jusqu'au dernier
UserForm1.Controls("ToggleButton" & _
NumeroToogleButton).Value = True
'Attribue le meme caption
UserForm1.Controls("ToggleButton" & _
NumeroToogleButton).Caption = "Toto"
End If
Next
-------------------------------------------------------------
Adapte les noms de controles avec ce code.
A tester !
A+