Exemple programmation de Case d'option [xls] Résolu

Question

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  

Configuration: Windows XP / Internet Explorer 7.0

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

Pour solder mes questions en cours (même de longue date)

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

Exemple programmation de Case d'option [xls]

2 réponses

Discussions similaires

Newsletters