Sujet Précédent Sujet Suivant

Probléme de case à cocher Excel

Résolu/Fermé
chapter Messages postés 3 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 13 juin 2008 - 12 juin 2008 à 11:30
m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 - 13 juin 2008 à 11:09
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
A voir également:

4 réponses

Réponse 1 / 4
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 39
12 juin 2008 à 13:28
mais est ce que tu as lié ta case a coché a une cellule?
3
Réponse 2 / 4
shuya89 Messages postés 470 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 28 novembre 2014 39
12 juin 2008 à 11:33
utilise les mise en forme conditionnel, et de plus tu est sous excel 97!!!! passe au 2003 il est beaucoup mieux pour tout ca
1
chapter Messages postés 3 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 13 juin 2008
12 juin 2008 à 12:16
J'ai essayé les mises en forme conditionnel mais je n'arrive pas à associer la case à cocher et la mise en forme de plus pour excel 97 c'est ma boîte qui utilise ça et je suis dans un secteur ou la mise à jour informatique n'est pas prevu
merci
0
Réponse 3 / 4
m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
12 juin 2008 à 15:44
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
1
chapter Messages postés 3 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 13 juin 2008
13 juin 2008 à 05:52
Impec ça marche si j'ai une augmentation je t'en fais profiter ;-)
Merci m@rina
0
Réponse 4 / 4
m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
13 juin 2008 à 11:09
Impec ça marche si j'ai une augmentation je t'en fais profiter ;-)

Waouhhh !!! Super !!! Merci !! ;)))))

m@rina
1

Discussions similaires

Cocher un case sur Word
rikano -
rikano -

2 réponses
URGENT - codes ALT + ???
infotruc -
infotruc -

2 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses