inscrire "1" dans cellule avec checkbox

pascal21

XLDnaute Barbatruc
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
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
 

Discussions similaires

Réponses
3
Affichages
306
Réponses
28
Affichages
964

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000