checkbox valeur 1 au lieu de vrai

[anneh]

Bonjour à tous,

je voudrai noter dans une feuille les résultats de mes checkbox

aujourd'hui j'ai les valeurs vrai faux

comment faire pour afficher une valeur 1 0

formule que j'ai pour l'instant:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A1") = CheckBox1.Value
End Sub

merci

 

[Pierrot93]

Re : checkbox valeur 1 au lieu de vrai

Bonjour,

regarde peut être ceci :

MsgBox CInt(CheckBox2) * -1

bonne journée
@+

 

[anneh]

Re : checkbox valeur 1 au lieu de vrai

j'ai trouvé la solution si ça peut aider quelqu'un

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range("a1").Value = "1"
Else
Range("a1").Value = "0"
End If

 

[Pierrot93]

Re : checkbox valeur 1 au lieu de vrai

Re,

en adaptant ce que j'avais proposé....

Private Sub CommandButton1_Click()
Range("a1").Value = CInt(CheckBox1) * -1
End Sub

 

[anneh]

Re : checkbox valeur 1 au lieu de vrai

merci c encore mieux!

 

[Si...]

Re : checkbox valeur 1 au lieu de vrai

salut

et ainSi... ?

Private Sub CommandButton1_Click()
  [A1] = -CheckBox1
End Sub