Case à cocher

O

Oni

Guest

• 23 Juin 2006

• #2

Est-ce que cela se fait avec une macro ?

 

Vote positif 0 Vote négatif

O

Oni

Guest

• 23 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 23 Juin 2006

• #4

Salut Oni, Le Forum

essaye ce code

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

Supporter XLD

• 23 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

O

Oni

Guest

• 23 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif