Checkbox + Cellule

Me again :yaisse2:

Le principe VBA me plait dans excel et j'essai du coup de modifier un truc ou deux que j'avais fait :p

J'ai 2 checkbox, mais je connais pas la méthode pour utiliser comme il me faut, l'aide ne m'aide pas :x Je continue à chercher sur le forum mais je demande au cas ou en attendant.

J'aimerais donc, qu'en cochant ma box, il me colle 1 dans une cellule "C13" sinon, par défaut, si pas cocher ou décocher, avoir 2.

Avec cet exemple, je pense pouvoir appliquer le reste dont j'ai besoin.

Merci.

EDIt : j'ai fais

Code:

---

1 2 3 4 5

Private Sub CheckBox2_Click() If CheckBox2.Checked = True Then Range("C13").Value = 1 Else: Range("C13").Value = 2 End If End Sub

---

Mais déjà, il me répond "Erreur de compil, Else sans If" :aie:

bonjour Czweic le forum

Code:

---

1 2 3

Private Sub CheckBox2_Click() If CheckBox2 = True Then [c13] = 1 Else [c13] = 2 End Sub

---

Ok, niquel, c'est vraiment simple, petit à petit, je comprend le principe (surtout syntaxe vis à vis des cellules)

Merci et bonne journée ;)

Ps : je comprend pas pourquoi tu dis "le forum" :oops:

Salut,

Pas tester mais comme ca plus de Else sans If.
et pourquoi tester 'si pas vrai' plutot que 'si faux' directement...
et tu as inverse les valeurs pour vrai et faux

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox2_Click() If CheckBox2.Checked = False Then Range("C13").Value = 2 Else Range("C13").Value = 1 End If End Sub

---

++
Minick

re bonjour Minick
ou encore plus simple

Code:

---

1 2 3

Private Sub CheckBox2_Click() [c13] = IIf(CheckBox2 = True, 1, 2) End Sub

---

re laetitia,

encore plus court...:yaisse2:

Code:

---

1 2 3

Private Sub CheckBox2_Click() [c13] = IIf(CheckBox2, 1, 2) End Sub

---

;)
++
Minick

Bonjour,

plus court encore

Code:

---

1 2 3

Private Sub CheckBox2_Click() [c13] = 2+Checkbox2 End Sub

---

salut ilank,

J'allais le dire, donc c'est fait....:roll:

++
Minick

Très intéressant ! J'ai tout noté :mouarf: