Compter le nombre d'OptionButton activés

[jmh1]

Bonsoir le forum

J'ai créé un userform avec plusieurs OptionButton et un bouton de validation qui n'est pas chargé au lancement du userform.

Je voudrai que ce bouton de validation soit chargé uniquement si tous les optionbutton ont été validés.

J'ai essayé de mettre un compteur style Total = Total +1 lorsque je sélectionne un optionbutton mais cela ne fonctionne pas ou alors je m'y prend mal.

Je mets le fichier en PJ

Merci pour votre aide

 

[Compte Supprimé 979]

Re : Compter le nombre d'OptionButton activés

Salut Jmh1

Ton idée était bonne, mais comme les OptionButton se suivent au niveau numérique

Tu peux utiliser ce code dans ton USF 😉

Private Sub CbEtape22_Click()
  Dim Ind As Integer, Ok As Integer
  Ok = 0
  For Ind = 1 To 18
    Ok = Ok + Abs(Me("OptionButton" & Ind).Value)
  Next Ind
  MsgBox Ok
  If Ok = 9 Then
    MsgBox "Passage a l'étape suivant possible"
  Else
    MsgBox "Passage a l'étape suivant impossible"
  End If
End Sub


Private Sub UserForm_Initialize()
'CbEtape22.Enabled = False
End Sub

A+

 

[jmh1]

Re : Compter le nombre d'OptionButton activés

Salut BrunoM45

Merci pour ta réponse rapide et qui fonctionne.

Mais cela veut dire que je n'ai pas la possibilité que mon CommandButton ne soit pas chargé au lancement du USF ou bien aurais-tu une autre parade à me proposer ?

Merci

 

[Compte Supprimé 979]

Re : Compter le nombre d'OptionButton activés

Re,

A ce moment là, si cela te pose un problème tu peux utiliser

Private Sub CbEtape22_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)  Dim Ind As Integer, Ok As Integer
  Ok = 0
  For Ind = 1 To 18
    Ok = Ok + Abs(Me("OptionButton" & Ind).Value)
  Next Ind
  If Ok = 9 Then Me.CbEtape22.Enabled = True
End Sub


Private Sub UserForm_Initialize()
  CbEtape22.Enabled = False
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim Ind As Integer, Ok As Integer
  Ok = 0
  For Ind = 1 To 18
    Ok = Ok + Abs(Me("OptionButton" & Ind).Value)
  Next Ind
  If Ok = 9 Then Me.CbEtape22.Enabled = True
End Sub

A+

 

[jmh1]

Re : Compter le nombre d'OptionButton activés

Merci pour ta solution,

C'est vrai que cela revient au même que ta 1ère solution mais celle-ci donne un aspect visuel lorsque tout n'est pas correctement sélectionné.

Merci encore cela me convient parfaitement

@+