Discussion :

[revemane]

bonjour

dans un useform j ai plusieurs case a coché pour lequel j'aimerai attribuer une valeur txt et une fois cochee quand on enregistre les données que ce soit la valeur definie a la case a cocher qui s indique dans la cellule

merci

[LeForestier]

Bonjour,
Exemple pour 2 CheckBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Chk(2) As String
Private Sub CheckBox1_Click()
    Chk(1) = IIf(CheckBox1, "Le texte 1", "")
End Sub
 
Private Sub CheckBox2_Click()
    Chk(2) = IIf(CheckBox2, "Le texte 2", "")
End Sub

Si beaucoup de CheckBox tu peu employer les collections d'objets.
A+