inscrire "1" dans cellule avec checkbox

[pascal21]

bonjour à tous
j'ai un 1er combobox2 qui me selectionne la feuille voulue ensuite
grâce au combobox1 j'écris dans la ligne voulue avec ce code

Cells(ComboBox1.ListIndex + 1, 2).Value = TextBox1.Value
Cells(ComboBox1.ListIndex + 1, 3).Value = TextBox2.Value
Cells(ComboBox1.ListIndex + 1, 4).Value = CheckBox1.Value
Cells(ComboBox1.ListIndex + 1, 5).Value = CheckBox2.Value
Cells(ComboBox1.ListIndex + 1, 6).Value = CheckBox3.Value
Cells(ComboBox1.ListIndex + 1, 7).Value = CheckBox4.Value
Cells(ComboBox1.ListIndex + 1, 8).Value = CheckBox5.Value
Cells(ComboBox1.ListIndex + 1, 9).Value = TextBox8.Value

j'ai remplacé quelques textbox par des checkbox pour les colonnes de 4 à 8 (plus pratique au final puisque je n'avais que la valeur "1" à inscrire si besoin)
le problème est que je n'arrive pas à faire en sorte que "true" dans le checkbox soit égale à "1" dans la cellule
je sais faire lorsque le checkbox n'a qu'une seule et même cellule de destination mais dans ce cas là ,mes connaissances de débutant en vba ne suffisent plus
j'avais pensé à un "for next " sans trouver comment formuler
pouvez-vous m'aider merci

 

[wilfried_42]

Re : inscrire "1" dans cellule avec checkbox

Bonjour pascal

essaye cela

Cells(ComboBox1.ListIndex + 1, 4).Value = Abs(CheckBox1.Value)

 

[pascal21]

Re : inscrire "1" dans cellule avec checkbox

bonjour merci c'est parfait