Si au moins un OptionButton est actif...

Hulk

XLDnaute Barbatruc
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 :mad:

Merci à tous de me lire.
 

Pièces jointes

  • OptBtn.xlsm
    19.8 KB · Affichages: 36

kjin

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

Bonsoir Hulk,:)
Code:
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...

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

salut

et ainSi...?
Code:
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 :)
 

Papou-net

XLDnaute Barbatruc
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 :

Code:
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 :

Code:
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

XLDnaute Barbatruc
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 :mad:

Merci à tous de me lire.

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

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

re

dans la série peu de boutons (renommés O1, O2, ..., O4)
Code:
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 :p !
 

laetitia90

XLDnaute Barbatruc
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:mad::mad::mad::mad:
 

Pièces jointes

  • OptBtn 6.xls
    37.5 KB · Affichages: 32
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla