Colorer des cellules en fonction d'une date entrée dans une "box"

Messages postés
16
Date d'inscription
mercredi 14 juin 2017
Statut
Membre
Dernière intervention
5 octobre 2019
- - Dernière réponse : ccm81
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
- 5 oct. 2019 à 21:16
Bonjour,

Je ne m'y connais pas trop en programmation VBA, et, pour mon boulot, j'aurai besoin de vos lumières...
D'avance merci (avec explications en commentaires, c'est super, car petit à petit j'intègre !) !!

L’objet de la macro est :

1- à l'ouverture du fichier, si les dates du tableau sont dépassées par la date du jour alors les cellules vert, rouge, jaune passent en blanc vide.
2- de pouvoir entrer dans une "box" une date future. La date rentrée est comparée à toutes celles présentes en vert, rouge, jaune. Si les dates du tableau sont dépassées par celle qui vient d’être renseignée alors les cases passent en blanc vide.

La cerise sur le gâteau serait enfin d’additionner le nombre de cases blanches par colonne.

Merci à la communauté.

Gérard

Le fichier Excel : https://www.cjoint.com/c/IIzqRQmzMBs

Configuration: Windows / Firefox 69.0
Afficher la suite 

5 réponses

Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651
0
Merci
Bonjour

1- à l'ouverture du fichier, si les dates du tableau sont dépassées par la date du jour alors les cellules vert, rouge, jaune passent en blanc vide.
1.1. Toutes les dates étant dépassées dans ton fichier passeront en blanc
1.2. Veux tu des cellules blanches ou sans aucune couleur
1.3. Vide ??? tu veux vider les cellules de ces dates ?

CDlmnt
Leghe59
Messages postés
16
Date d'inscription
mercredi 14 juin 2017
Statut
Membre
Dernière intervention
5 octobre 2019
-
1.1, 1.2 et 1.3 : oui, totalement vides, de dates et de couleurs !
:-D
Commenter la réponse de ccm81
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651
0
Merci
Un début
https://mon-partage.fr/f/p95i7vBG/

Ctrl+k pour lancer la macro
Alt-F11 pour accéder au code (dans Module 1)

Cdlmnt
Commenter la réponse de ccm81
0
Merci
Bonjour, et merci pour votre retour, pas mal du tout !!

Cependant, 2 questions, car j'ai rajouté une "entête" à mon classeur, en ligne 3, avec une périodicité de date :
- au lancement de la macro, est-il possible d'avoir une "box" qui s'ouvre afin de renseigner la date que l'on veut ?
- et la macro peut-elle "calculer" la périodicité ?

Je m'explique :
- Cellule C6 : 17/01/2019 pour une révision annuelle
- Cellule D4 : 04/05/2016 pour une révision quadriennale (tous les 4 ans ;-))
- Date renseignée dans la box : 18/01/2020

-> résultat désiré :
- C6 s'efface car 17/01/2019 + 1 an = 17/01/2020 < 18/01/2020, à moi de renseigner manuellement la nouvelle date
- D4 ne change pas car 04/05/2016 + 4 ans = 04/05/2020 > 18/01/2020

Merci beaucoup beaucoup !!

https://www.cjoint.com/c/IJbmVvN5CBs
Commenter la réponse de LeGhe
Commenter la réponse de LeGhe
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651
0
Merci
Je ne sais pas si j'ai tout compris
https://mon-partage.fr/f/p3nlRG6S/
A tester (Ctrl+k pour lancer)

Cdlmnt
Leghe59
Messages postés
16
Date d'inscription
mercredi 14 juin 2017
Statut
Membre
Dernière intervention
5 octobre 2019
-
Je vous remercie infiniment !
Je teste ça ce WE.

Belle journée !
ccm81
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651 -
Une correction sur cette ligne (remplacer le 2 par 5 pour quiquennal)
Case "Quinquennal": dd = DateAdd("yyyy", 5, ds)

Cdlmnt
Commenter la réponse de ccm81