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

Fermé
Leghe59 Messages postés 34 Date d'inscription mercredi 14 juin 2017 Statut Membre Dernière intervention 17 avril 2021 - 25 sept. 2019 à 18:46
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 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
A voir également:

5 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
26 sept. 2019 à 20:21
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
0
Leghe59 Messages postés 34 Date d'inscription mercredi 14 juin 2017 Statut Membre Dernière intervention 17 avril 2021
27 sept. 2019 à 10:15
1.1, 1.2 et 1.3 : oui, totalement vides, de dates et de couleurs !
:-D
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
27 sept. 2019 à 11:37
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
0
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
0
up ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 4 oct. 2019 à 21:19
Je ne sais pas si j'ai tout compris
https://mon-partage.fr/f/p3nlRG6S/
A tester (Ctrl+k pour lancer)

Cdlmnt
0
Leghe59 Messages postés 34 Date d'inscription mercredi 14 juin 2017 Statut Membre Dernière intervention 17 avril 2021
5 oct. 2019 à 11:39
Je vous remercie infiniment !
Je teste ça ce WE.

Belle journée !
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
5 oct. 2019 à 21:16
Une correction sur cette ligne (remplacer le 2 par 5 pour quiquennal)
Case "Quinquennal": dd = DateAdd("yyyy", 5, ds)

Cdlmnt
0