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

Leghe59 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 11033 Statut Membre -
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

5 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. Leghe59 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention  
       
      1.1, 1.2 et 1.3 : oui, totalement vides, de dates et de couleurs !
      :-D
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  3. LeGhe
     
    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
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Je ne sais pas si j'ai tout compris
    https://mon-partage.fr/f/p3nlRG6S/
    A tester (Ctrl+k pour lancer)

    Cdlmnt
    0
    1. Leghe59 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention  
       
      Je vous remercie infiniment !
      Je teste ça ce WE.

      Belle journée !
      0
    2. ccm81 Messages postés 11033 Statut Membre 2 434
       
      Une correction sur cette ligne (remplacer le 2 par 5 pour quiquennal)
      Case "Quinquennal": dd = DateAdd("yyyy", 5, ds)

      Cdlmnt
      0