Si au moins un OptionButton est actif...

[Hulk]

Hello tout le monde,

Dans un Usf avec des OptionButton, comment lui dire que :

Si au moins un des contrôles est actif = Blabli

si non = Blabla

J'ai beau tester des boucles, rien à faire je ne trouve pas 😡

Merci à tous de me lire.

 

[kjin]

Re : Si au moins un OptionButton est actif...

Bonsoir Hulk,🙂

Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) Like "OptionButton*" Then
        If c.Value = True Then
            MsgBox "ok"
            Exit Sub
        End If
    End If
Next c
MsgBox "pas ok"
End Sub

A+
kjin

 

[Si...]

Re : Si au moins un OptionButton est actif...

salut

et ainSi...?

Private Sub CommandButton1_Click()
  Dim c As Control
  For Each c In Me.Controls
    If TypeName(c) = "OptionButton" Then
      If c Then MsgBox "Ok": Exit Sub
    End If
  Next
  MsgBox "Pas ok"
End Sub

pas vu kjin 🙂

 

[Hulk]

Re : Si au moins un OptionButton est actif...

Slt les amis,

Même pas besoin de tester tellement suis sur que ça joue avec vous..

Grr quand même pour moi de ne pas avoir trouvé tout seul 😉

Merci et bon week !

 

[Papou-net]

Re : Si au moins un OptionButton est actif...

Bonsoir Hul, kjin, Si...

Si... je puis me permettre, une solution semblable mais avec une légère différence :

Private Sub CommandButton1_Click()
    Dim c As Control, mess As String
    mess = "pas OK"
    For Each c In Me.Controls
      If TypeOf c Is MSForms.OptionButton Then
        If c Then mess = "OK": Exit For
      End If
    Next
    MsgBox mess
End Sub

Et, si les boutons sont peu nombreux, une seule ligne suffit :

Private Sub CommandButton1_Click()
MsgBox IIf(Application.Max(OptionButton1, OptionButton2, OptionButton3, OptionButton4) > 0, "OK", "pas OK")
End Sub

Mais c'est vraiment pour le fun.

Cordialement.

 

[Modeste geedee]

Re : Si au moins un OptionButton est actif...

Bonsour®

Hello tout le monde,

Dans un Usf avec des OptionButton, comment lui dire que :

Si au moins un des contrôles est actif = Blabli

si non = Blabla

J'ai beau tester des boucles, rien à faire je ne trouve pas 😡

Merci à tous de me lire.

🙄 un petit rappel concernant les optionbuttons :
- ne pas confondre checkbox(option [0 à n] au sens français du terme) et optionbutton(alternative [1/n] au sens français)
- Les contrôles Optionbutton (Boutons d'option) permettent de faire un choix parmi plusieurs .
- Lorsqu'une des options est sélectionnée, les autres sont toutes désactivées.
- A l'initalisation du Userform, 1 optionbutton et un seul devrait et peut etre actif(propriété exclusive lors de la conception)
- la propriété click permet d'affecter à une variable le N° du optionbutton activé

 

[Si...]

Re : Si au moins un OptionButton est actif...

re

dans la série peu de boutons (renommés O1, O2, ..., O4)

Private Sub CommandButton1_Click()
  MsgBox IIf(O1 + O2 + O3 + O4 = 0, "KO", "OK")
End Sub

à Modeste geeddee : il peut se trouver quelques lignes ailleurs qui mettent les options à False !
Tu me diras qu'un contrôle visuel peut suffire, sauf Si... on regarde ailleurs 😛 !

 

[Modeste geedee]

Re : Si au moins un OptionButton est actif...

Bonsour®

il peut se trouver quelques lignes ailleurs qui mettent les options à False !

😎 eu égard aux propriétés de l'objet, en terme d'algorithmique ce n'est pas rationnel...

🙄
chacun fait comme il veut...

 

[laetitia90]

Re : Si au moins un OptionButton est actif...

bonjour tous 🙂🙂

une autre approche
il peut être sympa.. pour l'utilisateur de le prevenir avant de clicher sur le bouton
avec un message sous le bouton

on évite un clik pour rien sur le bouton + un message + enervement de l'utilisateur😡😡😡😡