Macro Excel date et couleur Résolu/Fermé

Question

Bonjour le forum,

j'aurai besoin d'un peu d'aide et je suis sur que certaines personnes pourront m'aider ;-)

voici mon problème j'ai une plage cellule de (C4:k24) qui contiennent des dates je voudrais que les dates supérieur à aujourd'hui passe en fond rouge. SANS MISE EN FORME AUTOMATIQUE  pourquoi ? car mes autres macros n'interagisse pas avec mise en forme auto.

le top serai même que les dates avec une échéance de moins de 15 jours passe en orange... 

j'ai eu beau chercher je n'ai pas réussi a adapter un bout de code pour répondre a mes attentes c'est pourquoi je me tourne vers vous. ( en plus je ne suis pas très doué)

Merci de votre aide.

eriiic · Answer

Bonjour,

SANS MISE EN FORME AUTOMATIQUE  pourquoi ? car mes autres macros n'interagisse pas avec mise en forme auto
C'est plus simple et plus lisible si tes macros testent la date justement plutôt que de tester une couleur de cellule.
Partant de ce principe tu peux utiliser une MFC. Non ?
eric

freddv · Answer

En effet, j'ai essayé de réétudier le fichier mais le résultat n'est pas concluant.
donc problème non résolu pour le moment.

Si vous avez besoin de quelque chose, appelez-moi. Je vous dirai comment vous en passer.   Coluche lol

eriiic · Answer

Bonjour,

alors: 
for each c in range(C4:k24)
  If c > Date Then c.Interior.ColorIndex = 3
next c

eric

freddv · Answer

Merci Beaucoup Eriic, passe une bonne journée; (et que dieu te garde...sur le forum) ;-)

Voici mon résultat si cela peut aider qq'un a l'avenir:

Private Sub Worksheet_Change(ByVal Target As Range)
'plage de données ("C4:K24")
For Each c In Range("C4:k24")
'Données supérieur à la date du jour
If c > Date Then c.Interior.ColorIndex = 50
'Données inférieur à la date du jour
If c < Date Then c.Interior.ColorIndex = 3
'plage vide de données
If c = "" Then c.Interior.ColorIndex = 2
Next c
End Sub

eriiic · Answer

Merci pour le retour.
A la place de .ColorIndex = 2 met plutôt .ColorIndex = xlnone

Gleen · Answer

Bonjour à tous,

Je sais que ce sujet date un peu mais je tente le coup ...

Je n'y connais (quasiment) rien en macros et j'aimerais réussir quelque chose dans le style de cette demande.

La différence est la suivante.
J'aimerais que les dates de ma colonne se colorent (de façon automatique) comme ceci : en vert si moins de 15 jours par rapport à la date du jour, en jaune si entre 15 et 30 jours, en orange si plus de 30 jours.

Quelqu'un saurait-il m'apporter son génie ??? Cela me rendrait un service vraiment immense.

Merci par avance.

Gleen

Macro Excel date et couleur

6 réponses

Discussions similaires