Checkbox non cochée et envois de résultats [Fermé]

Signaler
-
lermite222
Messages postés
8715
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
Bonjour,


J'ai un formulaire qui contient, notamment, des listes de cases à cocher. L'utilisateur peut donc commencer à cocher n'importe quelle case et en cocher le nombre qu'il souhaite et qui est variable selon chaque cas. Ce qui engendre des tableaux de données de réponses différentes et donc de structure différentes aussi, suivant les réponses de l'utilisateur.
Le but poursuivi étant que le formulaire génère des tableaux de réponses de même structure, c.à.d. contenant le même nombre de rangées quel que soit les cases à cocher cochées et quel qu'en soit le nombre.
J'aimerais donc que si l'utilisateur ne coche pas une case (quelle qu'elle soit) le questionnaire génère quand même un contenu, un 0 par exemple, pour que tout les tableaux réponses aient le même nombre de rangées.
tout cela pour en faire un tableau Excel et pouvoir en tirer notament des moyennes
Quelles seraient les solutions applicables ?
Merci d'avance pour les réponses.

2 réponses

Messages postés
156
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
30 septembre 2010
22
Dans le fichier de traitement du formulaire, tu dois vérifier si la variable est présente ou non.
Si elle n'est pas présente, c'est que l'utilisateur n'a pas coché la case, donc tu créés cette variable et tu lui affectes une valeur par défaut (par exemple 0).
Si elle est présente, l'utilisateur a coché la case et tu récupères donc ta valeur normalement.
Messages postés
8715
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 078
Bonjour,
C'est bien un formulaire Excel ? , si oui..
Dans les propriétés Tag de tes checkbox tu met le numéro de la colonne où tu veux que cette donnée soit affichées.
Tu ne donne pas beaucoup de détails, donc j'ai mis les caption des checkBox, à toi de voir pour le contenu.
exemple...
Private Sub CommandButton1_Click()
Dim C As Control
Dim Lig As Long
    Lig = 3
    For Each C In Me.Controls
       If TypeOf C Is MSForms.CheckBox Then
            If C.Value Then Sheets("Feuil1").Cells(Lig, Val(C.Tag)).Value = C.Caption
       End If
    Next C
End Sub

A+