Case à cocher

[Oni]

Bjr

je voulai savoir si quelqu'un pouvait me dire comment, lorsque l'on clique une case et quelle est lié à une cellule, on peut avoir 1 et 0 à la place de vrai et faux
merci

 

[Oni]

Est-ce que cela se fait avec une macro ?

 

[Oni]

ou des case d'options mais il me faudrait 0 et comme réponse et pas 1 et 2

 

[Dull]

Salut Oni, Le Forum

essaye ce code

Private Sub CheckBox1_Click()
If Sheets('feuil1').CheckBox1.Value = VRAI Then
Range('A1').Value = '0'
Else
Range('A1').Value = '1'
End If
End Sub

Par contre il ne faut pas que ta cellule soit en LinkedCell
le code fait office de cellule liée

Bonne Journée

 

[Temjeh]

Bonjour

Met toi en mode édition ...clic 2 coup sur ton checkbox et met ceci:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
Range('A1') = 1
Else
Range('A1') = 0
End If

End Sub

Temjeh

...oups salut Dull

Message édité par: temjeh, à: 23/06/2006 12:23

 

[Oni]

merci ça marche
j'ai pris la premièr soluce
et si je veux changer de feuilles, je fais :
Sheets('Base').Select?