controler selection OptionButton dans 2 frames differentes

[GHISLAIN]

bonjour a tous ,

j ai un USERFORM contenant 2 "frame" avec chacun 2 "OptionButton"



je cherche a controler la validation independement de chaque frame comportant chacun 2 OptionButton


soit dans frame1 que soit selection OptionButton1 ou OptionButton2

et que dans frame2 que soit selection OptionButton3 ou OptionButton4

donc lorsque je clique sur mon bouton de validation il faut que 2 OptionButton soit selectionnes , un dans chaque frame avant de continuer sinon message sur la frame n'ayant pas d OptionButton de coché..


merci a tous de votre aide

amicalement

ghislain

 

[Compte Supprimé 979]

Re : controler selection OptionButton dans 2 frames differentes

Bonjour Ghislain

Si tu n'as que 4 OptionButton, tu n'es pas obligé d'utiliser une boucle

Private Sub CommandButton1_Click()
  If Me.OptionButton1 + Me.OptionButton2 = 0 Then
    MsgBox "Merci de sélectionner une des 2 options"
    Me.Frame1.SetFocus
    Exit Sub
  End If
  If Me.OptionButton3 + Me.OptionButton3 = 0 Then
    MsgBox "Merci de sélectionner une des 2 options"
    Me.Frame2.SetFocus
    Exit Sub
  End If
End Sub

A+

 

[Dull]

Re : controler selection OptionButton dans 2 frames differentes

Salut Gislain, le Forum

Un essai à adapter

Option Explicit

Private Sub CommandButton1_Click()
Dim cpt As Byte, i As Byte

For i = 1 To 4
    cpt = cpt - (Controls("OptionButton" & i).Value = False)
Next i
If cpt > 2 Then
    Me.Hide
    MsgBox ("Veuillez sélectionner une Option dans chaque Frame")
    UserForm1.Show 0
    Exit Sub
End If
MsgBox "Ok"
End Sub

Bonne Journée

EDITION: Salut Bruno 🙂 Cafaisaitlongtemps...😉

 

[GHISLAIN]

Re : controler selection OptionButton dans 2 frames differentes

bonjour BrunoM45,Dull

je vous remercie tout deux de vos propositions qui repondent a mes attentes .

bonne journeee

amicalement

ghislain

 

[YANN-56]

Re : controler selection OptionButton dans 2 frames differentes

Bonjour Gislain, Bruno, Dull, et à ceux qui passeront par là,

Je ne sais pas si tu sais un peu gérer les Modules de Classe...?

Car il serait alors simple de ne rendre visible ton Bouton de Validation
que lorsque l'un des "OptionButton" à été sélectionné.

Aussi voir du coté:

If Le OptionButton1.Parent.Name = "Frame1" Then

Et c.

Amicalement,

Yann