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 optionbutton

optionbutton

4 réponses
Avatar
Bruno
Bonjour à tous

Sur un userform, je dispose 8 optionbutton.
Je souhaiterais avec une boucle for...next vérifier lequel est coché
Quelque chose comme ceci
for I = 1 to 8
if optionbutton(I) = true then exit for
next
Je rame lamentablement sur ce problème...
Merci d'avance pour votre aide et /vos idées...
A+++
Bruno
Signaler un problème avec ce contenu

4 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
isabelle
bonjour Bruno,

Dim C As Object
For Each C In UserForm1.Controls
If TypeName(C) = "CheckBox" Then
If C.Value Then MsgBox C.Name
End If
Next

isabelle


Bonjour à tous

Sur un userform, je dispose 8 optionbutton.
Je souhaiterais avec une boucle for...next vérifier lequel est coché
Quelque chose comme ceci
for I = 1 to 8
if optionbutton(I) = true then exit for
next
Je rame lamentablement sur ce problème...
Merci d'avance pour votre aide et /vos idées...
A+++
Bruno


Avatar
ru-th
Salut

for i = 1 to 8
userform1.controls("optionbutton" & i)......
next

et d'autres soluce là
http://www.excelabo.net/xl/controles.php#bouclecontrole
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Bruno" a écrit dans le message de
news:41472f8e$0$18534$
Bonjour à tous

Sur un userform, je dispose 8 optionbutton.
Je souhaiterais avec une boucle for...next vérifier lequel est coché
Quelque chose comme ceci
for I = 1 to 8
if optionbutton(I) = true then exit for
next
Je rame lamentablement sur ce problème...
Merci d'avance pour votre aide et /vos idées...
A+++
Bruno




Avatar
michdenis
Bonjour Bruno,

Une autre façon,

'-------------------
Private Sub CommandButton1_Click()

For a = 1 To 8
Select Case Controls("OptionButton" & a)
Case True
MsgBox Controls("OptionButton" & a).Name
Exit For
End Select
Next

End Sub
'-------------------


Salutations!


"Bruno" a écrit dans le message de news:41472f8e$0$18534$
Bonjour à tous

Sur un userform, je dispose 8 optionbutton.
Je souhaiterais avec une boucle for...next vérifier lequel est coché
Quelque chose comme ceci
for I = 1 to 8
if optionbutton(I) = true then exit for
next
Je rame lamentablement sur ce problème...
Merci d'avance pour votre aide et /vos idées...
A+++
Bruno
Avatar
Bruno
Un grand merci pour vos réponses toutes pertinentes...

"Bruno" a écrit dans le message de
news:41472f8e$0$18534$
Bonjour à tous

Sur un userform, je dispose 8 optionbutton.
Je souhaiterais avec une boucle for...next vérifier lequel est coché
Quelque chose comme ceci
for I = 1 to 8
if optionbutton(I) = true then exit for
next
Je rame lamentablement sur ce problème...
Merci d'avance pour votre aide et /vos idées...
A+++
Bruno