Récuperation de la valeur de CheckBox

Résolu/Fermé
Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015 - Modifié par Whismeril le 16/09/2015 à 14:05
Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015 - 22 sept. 2015 à 10:22
Bonjour, je commence en vb.
J'ai creer un questionaire et je cherche a recupérer le resultat.
Ca marche avec les ComboBox mais pas avec les CheckBox !

mon code :
For i = 1 To 42
    If UserForm1.Controls("Combobox" & i) = "" Then
        Sheets("Resultat QCM").Cells(i + 4, Colonne) = "Pas de réponse"
    Else
        Sheets("Resultat QCM").Cells(i + 4, Colonne) = UserForm1.Controls("ComboBox" & i)
    End If
Next i

For i = 100 To 103
    If UserForm1.Controls("CheckBox" & i).Value = True Then
        Sheets("Resultat Formation").Cells(i + 4, Colonne) = "Oui"
    Else
        Sheets("Resultat Formation").Cells(i + 4, Colonne) = "Non"
    End If
Next i


Pouvez vous m'aider

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.

1 réponse

f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 1 713
Modifié par f894009 le 16/09/2015 à 17:03
Bonjour,

exemple:

For i = 1 To 2
        If Me.Controls("Checkbox" & i) = True Then
            'code si cochee
        Else
            'code si pas cochee
        End If
    Next i
0
Dudugris Messages postés 5 Date d'inscription mercredi 16 septembre 2015 Statut Membre Dernière intervention 23 septembre 2015
22 sept. 2015 à 10:22
Bonjour

Avec un peut de retard, mais ça marche tres bien.
Merci
0