Condition avec case à cocher
Résolu
anthony
-
anthony -
anthony -
Bonjour,
J'ai inséré 2 cases a cochées (K47 et K48) via le ruban développeur et insérer.
Quand je clique dessus le "v" apparait bien.
Dans mon tableau c'est soit l'une, soit l'autre qui sera coché, c'est un choix que je doit faire.
Si c'est la première qui est coché, j'ai un certain calcul a faire, si c'est le 2ème ca sera un autre calcul.
j'ai essayé avec si(K47=vrai;1+1;si(k48=vrai;2+2);""). Mais il coonsidère que ma céllule est toujours vide.
Merci de votre aide
J'ai inséré 2 cases a cochées (K47 et K48) via le ruban développeur et insérer.
Quand je clique dessus le "v" apparait bien.
Dans mon tableau c'est soit l'une, soit l'autre qui sera coché, c'est un choix que je doit faire.
Si c'est la première qui est coché, j'ai un certain calcul a faire, si c'est le 2ème ca sera un autre calcul.
j'ai essayé avec si(K47=vrai;1+1;si(k48=vrai;2+2);""). Mais il coonsidère que ma céllule est toujours vide.
Merci de votre aide
A voir également:
- Condition avec case à cocher
- Excel cellule couleur si condition texte - Guide
- Supprimer case à cocher excel - Forum Excel
- Raccourci clavier case à cocher - Forum Clavier
- Enlever une case à cocher excel 2007 ✓ - Forum Excel
- Case a cocher - Forum Word
1 réponse
Bonjour
Tu peux récuperer l'état de la checkbox dans une cellule de ta feuille
Developpeur Mode création et double clic sur ta case à cocher pour ouvrir l'editeur de code correspondant
S'affiche alors
Private Sub CheckBox1_Click()
End Sub
Rajouter la ligne en gras qui mettra 1 en A1 quand la case est cochée et 0 dans le cas contraire ; à adapter selon tes besoins
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("A1") = 1 Else Range("A1") = 0
End Sub
Cdlmnt
Tu peux récuperer l'état de la checkbox dans une cellule de ta feuille
Developpeur Mode création et double clic sur ta case à cocher pour ouvrir l'editeur de code correspondant
S'affiche alors
Private Sub CheckBox1_Click()
End Sub
Rajouter la ligne en gras qui mettra 1 en A1 quand la case est cochée et 0 dans le cas contraire ; à adapter selon tes besoins
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("A1") = 1 Else Range("A1") = 0
End Sub
Cdlmnt
Merci beaucoup, cela fonctionne.