Bonjour,

Je suis nouveau et je débute sous VBA.

Sur une feuille excel j'ai créé 18 boutons OptionButton.
Ce que je souhaite c'est de savoir parmi les 18, lequel sera sélectionné (cad que value = true)

Pour l'instant j'utilise un gigantesque if qui test tous mes OptionButton pour vérifier lequel a comme valeur true, mais c'est assez en VBA

Merci pour vos lumieres

Salut, essaie cette boucle : Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "OptionButton" Then If ctl.Value = True Then MsgBox ctl.Name & " est coché !", vbOKOnly End If Next ctl @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois"

j'ai ce message d'erreur :
Membre de méthode ou de donné introuvable.

une petite précision, une fois l'optionButton true trouvé, je souhaite récupérer sa donnée se trouvant dans caption, et la mettre dans une nouvelle varaiable.

Le nom de chacun de mes OptionButton est OptionButton1, OptionButton2, ... , OptionButton16
si j'adapte ton prog, a ce que je veux faire, est ce correct de l'écrire ainsi

Dim ctl As Control
Dim Saisie As Integer

For Each ctl In Me.Controls
  If TypeName(ctl) = "OptionButton" Then
    If ctl.Value = True Then Saisie.value = ctl.Name
  End If
Next ctl

j'ai oublié de dire que l'erreur est à cette ligne

For Each ctl In Me.Controls

Je pense que c'est Controls qui merdouille

Humm t'es en VBA Excel ? Je viens de faire le test et ça fonctionne parfaitement. Quelques modifs : Private Sub CommandButton1_Click() Dim ctl As Control Dim Saisie As String '*** pas en Integer : c'est pour y placer des nombres For Each ctl In Me.Controls If TypeName(ctl) = "OptionButton" Then If ctl.Value = True Then Saisie = ctl.Caption: MsgBox Saisie '*** si le ctl (optionbutton) est coché, on place dans Saisie son caption puis ' affichage dans une message box End If Next ctl End Sub @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois"

"For Each ctl In Me.Controls Je pense que c'est Controls qui merdouille" => moi je pense que c'est le Me. La procédure que je t'ai donné se trouve t-elle bien dans le UserForm où sont contenus les OptionButton ? Si ce n'est pas le cas, remplace Me par le nom du UserForm en question. @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois"

je n'ai pas fais ca sur un Useform, mais directement sur la feuille Excel

merci de ton aide

Chapeau, un vrai pro
merci bcp, ca correspond tout a fait a ce que je voulais faire
Bravo

Mortalino, j'allais justement te sugérer l'utilisation de TypeOf, que celle de TypeName ^^
content de voir que tu as trouvé ça tout seul :p

Renfield
Admin CodeS-SourceS- MVP Visual Basic