Compter le nombre de case d'option

[satwaf]

Bonjour a tous,

j'ai créer une boite de dialogue avec 3 frames à l’intérieur. Chaque frame contient 2 cases d'option OUI ou NON.
Pourriez vous m'aider a récupérer le nombre de fois ou la valeur true est effective, afin de mettre un message a la fin de la macro.

Voila le code

Private Sub CommandButton1_Click()
If Evo_oui.Value = True Then New_Evo
If Period_oui.Value = True Then New_TCD_period
If Year_oui.Value = True Then New_TCD_Year
Unload Me 'vide et ferme l'UserForm

MsgBox " Opération(s) Effectuée(s).", vbExclamation, "Sauvegarde"
End Sub

Merci pour votre aide

 

[youky(BJ)]

Re : Compter le nombre de case d'option

Bonjour Stawaf,

Private Sub CommandButton1_Click()
dim oui
If Evo_oui.Value = True Then New_Evo:oui=oui+1
If Period_oui.Value = True Then New_TCD_period:oui=oui+1
If Year_oui.Value = True Then New_TCD_Year:oui=oui+1
Unload Me 'vide et ferme l'UserForm
Msgbox oui & " OUI"
MsgBox " Opération(s) Effectuée(s).", vbExclamation, "Sauvegarde"
End Sub

Bruno

 

[satwaf]

Re : Compter le nombre de case d'option

je viens de tester, merci Bruno, c'est ce que j'attendais.