macro pour colorer des dates

Bonjour a tous. moi j'ai cette table avec comme colonnes

nom data nais examen date exame apres 6 mois apres 12 mois
PIPPO 01/02/1983 RADIO 01/02/2009 01/08/2009 01/02/2010
PIPPO 02/05/1952 RADIO 25/07/2009 25/01/2010 25/07/2010
PIPPO 02/11/1958 RADIO 02/05/2009 02/11/2009 02/05/2010
PIPPO 01/08/1978 RADIO 06/06/2009 06/12/2009 06/06/2010


moi je voudrais creer une macro qui permet de colorer en rouge les dates de la colonne "apres 6 mois" dont le mois est celui du mois courant.

donc si je l'ouvre aujourd'hui, il va colorer seulement la derneire date.

comment je peux faire?

moi j'ai fait cette macro

Code:

---

1 2 3 4 5 6

Sub Macro1() Dim c As Range For Each c In Range("f1:f" & Range("f65536").End(xlUp).Row) If c = Date Then c.Interior.ColorIndex = 3 Else c.Interior.ColorIndex = xlNone Next End Sub

---

mais ne marche pas. je pense parce que la colonne "apres 6 mois" est une formule =MOIS.DECALER(e2;6)

donc comment je peux faire?

Salut Daniela et le forum
Est-il nécessaire de passer par une macro ? Une MFC ne suffirait-elle pas ?

A1 sélectionnée
Menu Format>>Mise en Format Conditionnelle
Codition 1
Case 1 : la formule est
Case 2 : =(MOIS(AUJOURDHUI())=MOIS(A1))*(ANNEE(AUJOURDHUI())=ANNEE(A1))
Format : fond rouge

et tu recopies la mise en forme (icone Pinceau) sur toutes les cellules concernées.
Avantage : mise en forme est intantanée, dès la saisie, même sans recalcul de la feuille.
Inconvénient : On ne peut pas se servir du fait que la cellule soit affichée colorée dans les macros, puisqu'elle n'est pas colorée.


Edit : Je n'avais pas vu ton second poste : ta macro

Code:

---

1 2 3 4 5 6

Sub Macro1() Dim c As Range For Each c In Range("f1:f" & Range("f65536").End(xlUp).Row) If c = Date Then c.Interior.ColorIndex = 3 Else c.Interior.ColorIndex = xlNone Next End Sub

---

Date est une variable système contenant la date du jour. donc, avec ta macro, tu colories uniquement les dates de la rangée F dont la date correspond à celle du jour du système.
Il faudrait une macro dans le style

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() Dim Cel As Range For Each Cel In Range([F1], [F65536].End(xlUp)) If month(Cel) = month(Date) Then Cel.Interior.ColorIndex = 3 Else Cel.Interior.ColorIndex = xlNone end if Next Cel End Sub

---

Peu de différences avec la tienne. Juste une remarque : faire tenir les instructions sur une ligne rend, à mon sens, la lecture plus difficile. Sur une macro aussi simple, ça ne change rien. Sur une multitude de ligne de code, pour le dépannage, je préfère mon architecture.

A+

j'ai esseie ta macro mais il y a un probleme au niveau

Code:

---

If Month(Cel) = Month(Date) Then

---

il met dit type pas correspondente. Pourquoi?

Salut Daniela et le forum

Citation:

---

il met dit type pas correspondente. Pourquoi?

---

Parce que ça sert à rien que je sois bête si je le montre pas :mrgreen:.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1() Dim Cel As Range For Each Cel In Range([F1], [F65536].End(xlUp)) If IsDate(Cel) Then If Month(Cel) = Month(Date) Then Cel.Interior.ColorIndex = 3 Else Cel.Interior.ColorIndex = xlNone End If End If Next Cel End Sub

---

J'avais pas testé oups :roll:. la nouvelle macro devrait être mieux (je l'ai testée).
En colonne F, vraisemblablement, tu dois avoir d'autre chose que des dates et comme tu compares avec une date, si c'est un texte, Excel fait un KK nerveux :D.
A+