Probléme de case à cocher Excel
Résolu
chapter
Messages postés
3
Statut
Membre
-
m@rina Messages postés 27212 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27212 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Voilà mon problème sous Excel 97, j'aurais voulu savoir comment faire : j'ai 70 cellules avec chacune une case à cocher qui lorsqu'elles ne sont pas cochées sont rouge lorsque je coche la case j'aurais voulu que la cellule devienne verte j'ai essayé avec une macro ça marche mais lorsque je décoche la case, elle reste verte et ne redevient pas rouge.
Et le dernier problème
J'aurais voulu comptabiliser les case coché pour en faire un pourcentage.
Merci parce que je bloque et je frise la migraine
Bonne journée Chapter
Voilà mon problème sous Excel 97, j'aurais voulu savoir comment faire : j'ai 70 cellules avec chacune une case à cocher qui lorsqu'elles ne sont pas cochées sont rouge lorsque je coche la case j'aurais voulu que la cellule devienne verte j'ai essayé avec une macro ça marche mais lorsque je décoche la case, elle reste verte et ne redevient pas rouge.
Et le dernier problème
J'aurais voulu comptabiliser les case coché pour en faire un pourcentage.
Merci parce que je bloque et je frise la migraine
Bonne journée Chapter
A voir également:
- Probléme de case à cocher Excel
- Case à cocher libre office - <a href="https://forums.commentcamarche.net/forum/libreoffice-openoffice-146">Forum LibreOffice / OpenOffice</a>
- Raccourci clavier case à cocher - <a href="https://forums.commentcamarche.net/forum/clavier-236">Forum Clavier</a>
- Case à cocher word ne fonctionne pas ✓ - <a href="https://forums.commentcamarche.net/forum/word-141">Forum Word</a>
- Case à cocher open office - <a href="https://forums.commentcamarche.net/forum/libreoffice-openoffice-146">Forum LibreOffice / OpenOffice</a>
- Cocher une case avec Libre Office Writer - <a href="https://forums.commentcamarche.net/forum/libreoffice-openoffice-146">Forum LibreOffice / OpenOffice</a>
4 réponses
Bonjour,
Ton code doit ressembler à ça :
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
Range("A1").Interior.ColorIndex = 3
Else: Range("A1").Interior.ColorIndex = 4
End If
End Sub
Pour calculer le nombre de cases cochées dans ta page, voici une macro partant du principe que toutes tes checkbox commencent par le nom "checkbox" (ça veut dire que tu n'as pas modifié les noms. EN effet, les contrôles dans les feuilles ne sont pas des Control (comme pour les Userforms) mais des Shapes ou OleObjects... Donc, il faut les identifier par quelque chose :
Sub compter()
For Each C In Sheets("Feuil1").OLEObjects
If Left(C.Name, 8) = "CheckBox" Then
n = n - C.Object.Value
End If
Next
MsgBox n & " cases cochées"
End Sub
m@rina
Ton code doit ressembler à ça :
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
Range("A1").Interior.ColorIndex = 3
Else: Range("A1").Interior.ColorIndex = 4
End If
End Sub
Pour calculer le nombre de cases cochées dans ta page, voici une macro partant du principe que toutes tes checkbox commencent par le nom "checkbox" (ça veut dire que tu n'as pas modifié les noms. EN effet, les contrôles dans les feuilles ne sont pas des Control (comme pour les Userforms) mais des Shapes ou OleObjects... Donc, il faut les identifier par quelque chose :
Sub compter()
For Each C In Sheets("Feuil1").OLEObjects
If Left(C.Name, 8) = "CheckBox" Then
n = n - C.Object.Value
End If
Next
MsgBox n & " cases cochées"
End Sub
m@rina
