Calculer le nombre de Checkbox cochés dans un userform

[ashiles]

Bonjour Le forum
Je bloque dans une étape de création d'un formulaire.
J'ai plusieurs checkbox, et je voudrais qu'à chaque fois je coche un checkbox ca le comptabilise dans un textbox, pour qu'au final j'aurais le nombre des checkbox cochés dans ce textbox
merci beaucoup pour votre aide, je dois présenter le projet lundi et je bloque seulement sur cette étape.

 

[Paf]

Re : Calculer le nombre de Checkbox cochés dans un userform

bonjour

sans plus de précision, ce code à inscrire dans Private Sub CheckBox1_Click()

If CheckBox1 Then
    TextBox20.Value = Val(TextBox20.Value) + 1
Else
    TextBox20.Value = Val(TextBox20.Value) - 1
End If

à répéter pour chaque CheckBox, et adapter le nom de la TextBox

A+

 

[Robert]

Re : Calculer le nombre de Checkbox cochés dans un userform

Bonjour Ashiles, bonjour le forum

À chaque Checkbox tu ajoutes la ligne ci-dessous :

Call Comptage

puis tu insère une procédure (toujours dans la page de code de l'UserForm) :

Public Sub Comptage()
Dim c As Integer
Dim cb As Control

c = 0
With UserForm1
    For Each cb In .Controls
        If TypeOf cb Is MSForms.CheckBox And cb.Value = True Then c = c + 1: .TextBox1.Value = c
    Next cb
End With
End Sub

D'habitude je commente les codes et je joins un fichier exemple mais là j'ai fait comme toi, j'ai eu la flemme...

[Édition]
Bonjour Paf, on s'est croisé...

 

[ashiles]

Re : Calculer le nombre de Checkbox cochés dans un userform

Bonjour Robert
Merci pour ta réponse; mis call comptage dans chaque checkbox_change(), puis le code dans la page du userform, cela me met un message d'erreur : erreur d'exécution 438 propriété ou méthode non géré par cet objet

 

[ashiles]

Re : Calculer le nombre de Checkbox cochés dans un userform

Merci Paf pour ta réponse
@+++

 

[Robert]

Re : Calculer le nombre de Checkbox cochés dans un userform

Bonsjour le fil, bonjour le forum,

Ha bon Ashiles...

 

[ashiles]

Re : Calculer le nombre de Checkbox cochés dans un userform

re Robert;
j'ai omis de mettre c=0 dans l'USF initialize
Merci Beaucoup that's done!!