Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sélection de plusieurs bouton d'options

Sélection de plusieurs bouton d'options

3 réponses
Avatar
Doug
Bonjour,

2 petites questions:

1- J'ai un UserForm avec 3 boutons d'options et un bouton de commande
Valider. Les boutons d'options sont associ=E9s =E0 3 macros diff=E9rentes.
Je voudrais pouvoir s=E9lectionner plusieurs boutons d'options =E0 la
fois pour lancer les 1, 2 ou 3 macros =E0 la fois si j'ai envie.

Est-ce possible et comment?

Pour l'instant mon code est le suivant:

If Usf1.OptionButton1.Value =3D True Then
Application.Run "Doc.xls!macro1"
End If
If Usf1.OptionButton2.Value =3D True Then
Application.Run "Doc.xls!macro2"
End If
If Usf1.OptionButton3.Value =3D True Then
Application.Run "Doc.xls!macro3"
End If


2- Lorsque je relance mon UserForm, le bouton d'option que je viens
d'utiliser reste coch=E9, comment avoir un UserForm vierge?


Merci pour votre aide

Doug
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Donne à chaque bouton un groupname différent.
Cordialement.
Daniel
"Doug" a écrit dans le message de news:

Bonjour,

2 petites questions:

1- J'ai un UserForm avec 3 boutons d'options et un bouton de commande
Valider. Les boutons d'options sont associés à 3 macros différentes.
Je voudrais pouvoir sélectionner plusieurs boutons d'options à la
fois pour lancer les 1, 2 ou 3 macros à la fois si j'ai envie.

Est-ce possible et comment?

Pour l'instant mon code est le suivant:

If Usf1.OptionButton1.Value = True Then
Application.Run "Doc.xls!macro1"
End If
If Usf1.OptionButton2.Value = True Then
Application.Run "Doc.xls!macro2"
End If
If Usf1.OptionButton3.Value = True Then
Application.Run "Doc.xls!macro3"
End If


2- Lorsque je relance mon UserForm, le bouton d'option que je viens
d'utiliser reste coché, comment avoir un UserForm vierge?


Merci pour votre aide

Doug
Avatar
LSteph
Bonjour,
amha les macros se lancent consécutivement
Pour sélectionner plusieurs à la fois il vaut mieux des checkbox
Le initialize répond à ta q2

'******Dans le code du Usf
Private Sub commandbutton1_click()

If CheckBox1 Then Application.Run "Doc.xls!macro1"
If CheckBox2 Then Application.Run "Doc.xls!macro2"
If CheckBox3 Then Application.Run "Doc.xls!macro3"
End Sub

Private Sub UserForm_Initialize()
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
End Sub
'*****************
'lSteph

"Doug" a écrit dans le message de news:

Bonjour,

2 petites questions:

1- J'ai un UserForm avec 3 boutons d'options et un bouton de commande
Valider. Les boutons d'options sont associés à 3 macros différentes.
Je voudrais pouvoir sélectionner plusieurs boutons d'options à la
fois pour lancer les 1, 2 ou 3 macros à la fois si j'ai envie.

Est-ce possible et comment?

Pour l'instant mon code est le suivant:

If Usf1.OptionButton1.Value = True Then
Application.Run "Doc.xls!macro1"
End If
If Usf1.OptionButton2.Value = True Then
Application.Run "Doc.xls!macro2"
End If
If Usf1.OptionButton3.Value = True Then
Application.Run "Doc.xls!macro3"
End If


2- Lorsque je relance mon UserForm, le bouton d'option que je viens
d'utiliser reste coché, comment avoir un UserForm vierge?


Merci pour votre aide

Doug
Avatar
Daniel
amha les macros se lancent consécutivement


Bonjour.
Absolument. Je n'avais pas prêté attention au "à la fois"
Cordialement.
Daniel