Checkbox non cochée et envois de résultats

Fermé
sylvie - 23 sept. 2010 à 15:07
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 sept. 2010 à 17:28
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

sushicat Messages postés 154 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 30 septembre 2010 24
23 sept. 2010 à 15:16
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.
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
23 sept. 2010 à 17:28
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+
0