Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

cocher et décocher une case

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Christian3000

XLDnaute Nouveau
Bonjour à tous,

Je fais face à un problème dont la solution doit certainement être toute simple.
J'ai créé un calendrier dont les cases se colorent automatiquement (en jaune ou en vert selon les cas) si elles correspondent à des dates de tâches à effectuer, rentrées sur des colonnes tierces. Tout est géré par VBA. J'ai ensuite inséré une case à cocher qui, lorsqu'elle est cochée, signifie que la tâche a été effectuée. Dans ce cas, les cases du calendriers s'affichent en rouge.
Jusque là tout va bien.
Le problème survient lorsque je décoche la case à cocher: dans ce cas là, j'aimerais que le changement de couleur (de jaune ou vert à rouge) s'annule. Le problème c'est que je ne sais pas comment faire pour annuler les effets de la case à cocher!

Voici le code pour un peu plus de clarté:

Private Sub CheckBox1_Click()

Dim dates As Range, planning As Range, debut As Range, fin As Range, today As Range

Set dates = Sheets("planning RH").Range("dates")
Set planning = Sheets("planning RH").Range("planning")
Set debut = Sheets("planning RH").Range("debut")
Set fin = Sheets("planning RH").Range("fin")

For x = 1 To 40
For y = 1 To 180

With CheckBox1

If CheckBox1.Value = True _
And (dates.Cells(1, y).Value >= debut.Cells(1, 1)) _
And (dates.Cells(1, y).Value <= fin.Cells(1, 1)) Then
planning.Cells(1, y).Interior.ColorIndex = 3
End If

If CheckBox1.Value = False _
And (dates.Cells(1, y).Value >= debut.Cells(1, 1)) _
And (dates.Cells(1, y).Value <= fin.Cells(1, 1)) Then
😕😕😕

End If

End With

Next y
Next x

End sub

Grand merci pour votre aide toujours précieuse!

Salutations,

Christian
 
Trier par date Trier par votes
Re : cocher et décocher une case

Bonjour Christian, bonjour le forum,

Sans aveoi teste peut-être comme ça :
Code: 
planning.Cells(1, y).Interior.ColorIndex = xlNone

Juste une remarque, en l'état le With CheckBox1...End With ne sert à rien...
 
Vote positif 0 Vote négatif
Re : cocher et décocher une case

Merci Robert.
Le problème avec cette formule est qu'elle me supprime toute couleur, alors que j'aimerais, lorsque je décoche la case, retrouver les couleurs d'origine, vert ou jaune en l'occurrence...
 
Vote positif 0 Vote négatif
Re : cocher et décocher une case

Bonjour Christian, bonjour le forum,

Oui je comprend mieux le problème (je me disais aussi qu'une réponse aussi c... n'allait pas satisfaire, lol). Mais du coup c'est beaucoup plus complexe car il faudrait stocker ces couleurs ailleurs avant de faire le changement. Donc eventuellement avoir un copie cachée du planning et aller récupérer les couleurs dans cette copie si on désélectionne la case à cocher par la suite... Je ne vois que ça pour l'instant.
 
Vote positif 0 Vote négatif
Re : cocher et décocher une case

Ok, c'est plus compliqué que je pensais: je me disais qu'on pouvait peut-être rappeler la sub qui avait permis de colorer initialement les cases, du genre:

If CheckBox1.Value = False _
And (dates.Cells(1, y).Value >= debut.Cells(1, 1)) _
And (dates.Cells(1, y).Value <= fin.Cells(1, 1)) Then
sub(color).activate

Est-ce une voie sans issue?

Merci pour ton aide en tout cas.
 
Vote positif 0 Vote négatif
Re : cocher et décocher une case

Bonjour Christian, bonjour le forum,

Oui ce que tu proposes me semble être une bonne idée, remettre les couleurs en utilisant la macro qui avait coloré les cellules au départ.
Mais comme je n'ai pas toutes les données il m'est difficile de t'aider d'avantage. Un fichier exemple serait le bien venu pour mieux cerner le problème. Si il est trop lourd tu l'épure un maximum et ne laisse que quelques données liées au problème...
 
Vote positif 0 Vote négatif
Re : cocher et décocher une case

Bonjour Christian, bonjour le forum,

Ça à l'air de marcher comme ça :
Code: 
Private Sub CheckBox1_Click()
Dim dates As Range, planning As Range, debut As Range, fin As Range, today As Range
 
Set dates = Sheets("planning RH").Range("dates")
Set planning = Sheets("planning RH").Range("planning")
Set debut = Sheets("planning RH").Range("debut")
Set fin = Sheets("planning RH").Range("fin")
Set today = Sheets("planning RH").Range("today")
 
For x = 1 To 40
    For y = 1 To 180
 
        If CheckBox1.Value = True _
            And (dates.Cells(1, y).Value >= debut.Cells(1, 1)) _
            And (dates.Cells(1, y).Value <= fin.Cells(1, 1)) Then
                planning.Cells(1, y).Interior.ColorIndex = 3
        End If
 
        If CheckBox1.Value = False _
            And (dates.Cells(1, y).Value >= debut.Cells(1, 1)) _
            And (dates.Cells(1, y).Value <= fin.Cells(1, 1)) Then
                If (dates.Cells(1, y).Value >= debut.Cells(x, 1)) _
                    And (dates.Cells(1, y).Value <= fin.Cells(x, 1)) _
                    And (dates.Cells(1, y).Value <= fin.Cells(x, 1)) Then
                        planning.Cells(x, y).Interior.ColorIndex = 6
                End If
 
                'les tâches du jour en orange
                If (dates.Cells(1, y).Value = today.Cells(x, 1)) _
                    And (dates.Cells(1, y).Value >= debut.Cells(x, 1)) _
                    And (dates.Cells(1, y).Value <= fin.Cells(x, 1)) Then
                        planning.Cells(x, y).Interior.ColorIndex = 45
                End If
 
                'les week-ends en gris
                If Weekday((dates.Cells(1, y)), vbMonday) > 5 Then
                    planning.Cells(x, y).Interior.ColorIndex = 15
                End If
        End If
 
    Next y
Next x
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
646
kiki29
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
552
Attila451
A
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
378
patricktoulon
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
512
Abi23
A
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
922
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
721
patricktoulon
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
708
Oneida
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
727
MBEPID
M
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
654
Jojo973
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
409
sebastien176
S
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
835
GClaire
G
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
678
job75
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
1 K
Amigo
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
71 K
NONO14
N
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
600
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…