Case à cocher

**laulas** · 11/02/2017, 04h09

Bonjour,
Pourriez vous me dire comment résoudre mon soucis ? J'ai insérer deux cases à cocher dans une feuille Excel. Je voudrais lorsque je coche la 1ère case, que le chiffre 1 s'affiche dans la cellule A1 ou 0 quand elle est décochée. Idem pour la 2ème cellule mais en A2.
Merci

Invité · 11/02/2017, 04h57

Envoyé par laulas

Bonjour,

Dans le module de votre onglet, essayez :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CheckBoxCelluleA1_Click() 
        With ActiveSheet
             If CheckBoxCelluleA1 = True Then
                .Cells(1, 1) = 1
             Else
                .Cells(1, 1) = 0
             End If
        End With
End Sub
 
Private Sub CheckBoxCelluleA2_Click()
        With ActiveSheet
             If CheckBoxCelluleA2 = True Then
                .Cells(2, 1) = 1
             Else
                .Cells(2, 1) = 0
             End If
        End With
End Sub

**unparia** · 11/02/2017, 06h45

Bonjour
ou ceci (puisque True = -1 et que False = 0) -->>

Code :

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

1
2
3
Private Sub CheckBox1_Click()
  Range("A1") = CheckBox1.Value ^ 2
End Sub

Ceci étant dit : tu tiens vraiment à ce 1 ou 0 dans la cellule ? Car en la liant à la checkbox (propriété Linkedcell de la checkbox), tu obtiendrais, sans aucun code, "VRAI" ou "FAUX" dans la cellule liée.

**laulas** · 11/02/2017, 09h59

Merci pour votre rapidité mais sachez que je débute en vba. Pour l'instant, je tente des choses afin de comprendre le langage vba. Dans le cas présent, j'ai inséré sur ma feuille de calcul, 2 cases à cocher. J'ai donc 2 petits carrés intitulés "Case à cocher 1" et "Case à cocher 2". Je souhaite lorsque je coche la première case, voir apparaître le chiffre 1 (ou n'importe quel texte) dans la case A1 ou le chiffre 0 (ou n'importe quel texte) quand la case est décochée. Idem pour la 2. J'ai fait un copié/coller de vos lignes de programmes dans une macro. Mais je n'arrive pas à affecter la macro à la case à cocher. Quand je tente de la faire, le bouton "Enregister" reste inactif.
Merci de votre aide

J'ai aussi essayé le Format de contrôle avec une cellule liée. Ce système fonctionne. C'est à dire que lorsque je coche ma case, la cellule liée affiche VRAI au premier clic. Par contre quand je déclique la case, le message VRAI reste affiché dans la cellule associée. Je suis obligé de changer de feuille ou de jouer avec le curseur monter/descendre pour rafraichir la feuille est voir le message FAUX apparaître. Idem si je recoche la case. Le message VRAI apparaît que si je change de feuille.
C'est galère !