Discussion :

[Czweic]

Me again

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 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[laetitia]

bonjour Czweic le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Czweic]

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"

[Minick]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

re bonjour Minick
ou encore plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

re laetitia,

encore plus court...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

++
Minick

[ilank]

Bonjour,

plus court encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

salut ilank,

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

++
Minick