Exemple programmation de Case d'option [xls]
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je désespère... j'ai depuis plusieurs semaines un soucis avec mes cases d'option sous Excel qui sont toujours toutes liées...
Alors je demande sincèrement si par hasard quelqu'un n'aurait pas quelques minutes à me donner en m'envoyant un fichier excel avec dedans juste 4 optionbutton programmé en VBA ?
Ca pourrait réelement m'aider à soulager mes nerfs!
A votre bon coeur,
Ano
Je désespère... j'ai depuis plusieurs semaines un soucis avec mes cases d'option sous Excel qui sont toujours toutes liées...
Alors je demande sincèrement si par hasard quelqu'un n'aurait pas quelques minutes à me donner en m'envoyant un fichier excel avec dedans juste 4 optionbutton programmé en VBA ?
Ca pourrait réelement m'aider à soulager mes nerfs!
A votre bon coeur,
Ano
A voir également:
- Exemple programmation de Case d'option [xls]
- Tableau word exemple - Guide
- Url exemple - Guide
- Exemple de code ascii - Guide
- Application de programmation - Guide
- Exemple de gmail - Guide
2 réponses
Je sais que je dois mettre la programmation suivante:
Private Sub UserForm_Initialize()
OptionButton1.GroupName = "Widgets"
OptionButton2.GroupName = "Widgets"
OptionButton4.GroupName = "Widgets"
OptionButton3.GroupName = "Gadgets-Group2"
OptionButton5.GroupName = "Gadgets-Group2"
End Sub
Mais je ne sais pas où le mettre? Dans une feuille, un module, ThisWorkbook,...? J'ai tout essayé et ça ne marche toujours pas!
Ils disent Erreur d'éxecution '424' : Objet requis
Pourtant j'ai bien mes 5 optionbutton sur ma feuille 1...
Private Sub UserForm_Initialize()
OptionButton1.GroupName = "Widgets"
OptionButton2.GroupName = "Widgets"
OptionButton4.GroupName = "Widgets"
OptionButton3.GroupName = "Gadgets-Group2"
OptionButton5.GroupName = "Gadgets-Group2"
End Sub
Mais je ne sais pas où le mettre? Dans une feuille, un module, ThisWorkbook,...? J'ai tout essayé et ça ne marche toujours pas!
Ils disent Erreur d'éxecution '424' : Objet requis
Pourtant j'ai bien mes 5 optionbutton sur ma feuille 1...
Pour solder mes questions en cours (même de longue date)
Il suffit de rentrer ses case d'option dans des Frame différentes :
Il suffit de rentrer ses case d'option dans des Frame différentes :
Private Function JourJ()
'La fonction renvoie comme valeur le texte du bouton choisi
For Each bouton_JourJ In Frame1.Controls
If bouton_JourJ.Value Then
JourJ = bouton_JourJ.Caption
End If
Next
End Function