checkbox valeur 1 au lieu de vrai

anneh · 19 Janvier 2013

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 · 19 Janvier 2013

Re : checkbox valeur 1 au lieu de vrai

Bonjour,

regarde peut être ceci :

Code:

MsgBox CInt(CheckBox2) * -1

bonne journée
@+

anneh · 19 Janvier 2013

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 · 19 Janvier 2013

Re : checkbox valeur 1 au lieu de vrai

Re,

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

Code:

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

anneh · 19 Janvier 2013

Re : checkbox valeur 1 au lieu de vrai

merci c encore mieux!

Si... · 19 Janvier 2013

Re : checkbox valeur 1 au lieu de vrai

salut

et ainSi... ?

Code:

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

checkbox valeur 1 au lieu de vrai

anneh

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

anneh

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

anneh

XLDnaute Nouveau

Si...

XLDnaute Barbatruc

Discussions similaires