statistiques

[kunkin]

Bonjour,

J'aimerais, par le biais d'un questionnaire avec cases à cocher, compter toutes les réponses et les classées pour faire des statistiques avec historigramme, camenbert, etc....

Le questionnaire se présente par exemple, de la manière suivante (cases à cocher) :
- Civilité :
H F

- Avez-vous été salarié :
oui non

Etc...

Il faudrait comptabiliser automatiquement les types de réponse et en fournir un résultat global ( par exemplecombien d'Homme sont salarié ).

Si cela est possible, envoyez une réponse, ça nous aiderait beaucoup.

Merci d'avance.

A+

 

[michel]

Bonsoir kunkin

la procédure ci joint permet de comptabiliser les checkbox ( boite de controles de la feuille ) cochées et non cochées . Il te restera à l'adapter pour ton projet .


Sub CompterCheckBox()
Dim Obj As OLEObject
Dim X As Byte
Dim Y As Byte

For Each Obj In ActiveSheet.OLEObjects
Y = Y + 1
If TypeOf Obj.Object Is MSForms.CheckBox Then
If Obj.Object.Value = True Then X = X + 1
End If

Next

MsgBox "Il y a " & X & " checkbox cochées " & Y - X & " , et checkbox non cochées . "

End Sub



bonne soirée
Michel