check box

[JACK]

bonjour
dans un user form j'ai 18 check box que je dois cocher pour certain et non pour d'autre
quel code vba doit t- on saisir pour que lorsque je coche le check box 1 il inscrive "abs" en b10 pour le check box 2 "abs " en b11 etc jusqu'au 18 ieme à la condition qu'il soit coché sinon ne rien inscrire
cad si check box 1 coché inscrire en b10 "abs" sinon rien
cad si check box 2 coché inscrire en b11 "abs" sinon rien

je veux d'abord cocher les check box nécessaires puis valider par un bouton valider
merci pour votre aide et bonne soirée

jack

 

[Robert]

Bonsoir Jack, bonsoir le forum,

Je te propose ce cas par cas à copier pour l'événement clic de chaque CheckBox (un peu rébarbatif mais efficace). Il te faudra adapter chaque fois le nom du CheckBox et le nom de la cellule (Range).

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("B10").Value = "abs"
Else
Range("B10").Value = ""
End If
End Sub

À plus,

Robert

 

[JACK]

bonjour
merci pour touot robert
A bientôt
jack