Récuperation de la valeur de CheckBox [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
mercredi 16 septembre 2015
Statut
Membre
Dernière intervention
23 septembre 2015
-
Dudugris
Messages postés
5
Date d'inscription
mercredi 16 septembre 2015
Statut
Membre
Dernière intervention
23 septembre 2015
-
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

Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1207
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
Dudugris
Messages postés
5
Date d'inscription
mercredi 16 septembre 2015
Statut
Membre
Dernière intervention
23 septembre 2015

Bonjour

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