Discussion :

[Daniela]

Bonjour a tous. J'ai besoin d'aide pour construire une macro en excel.
moi j'ai une table avec 5 colonnes : Nom, Prenom, annee_naiss, debut_traitement, fin_traitement.

moi je voudrais faire une macro qui chaque fois que j'ouvre le fichier, lance une macro qui permet de mettre en rouge tous les traitement qui finit à la date d'aujourd'hui.

comment je peux faire ça?

[PPz78]

Il n'y a pas de notion de jours fériés ?
La macro sera bien ouverte tous les jours ?

[PPz78]

Il n'y a pas besoin de macro :

- dans une cellule de ta feuille tu ajoute "=aujourdhui" cela te permet d'avoir la date du jour dans ta feuille

- tu mets une mise en forme conditionnelle sur les cellules que tu souhaites

[zandru]

Bonjour,

pour que ta macro se lance à l'ouverture du fichier, place ton code dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_Open()

pour comparer avec la date du jour, utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If feuil.Cells(i, 5) = Now() Then
    feuil.Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = 3
End If

Avec colorindex=3 pour remplir en rouge.

[laetitia]

bonjour Daniela PPz78 zandru le forum

dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
Private Sub Workbook_Open()
Call Macro1
End Sub

dans un module standard ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
Sub Macro1()
Dim c As Range
For Each c In Range("e1:e" & Range("e65536").End(xlUp).Row)
If c = Date Then c.Interior.ColorIndex = 3
Next
End Sub

attention je considere que tu sauvegarde ton fichier sur cette feuille
autrement il faut preciser le nom de la feuille ou son numero merci pour l info zandru a+

[zandru]

Leatitia, pourquoi appeler macro1 à partir de woorkbook_open au lieu d'insérer le code directement dedans ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Call Macro1
End Sub

Il manque la definition de date, qui ne renvoi pas la date du jour mais défini la date systeme, il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Now()

.

PS : n'oubli pas les balise CODE

[Daniela]

je pas bien compris ce que je dois faire
mon probleme est que j'ai une table

NOM PRENOM DATE_NAISC DATE_DEBUT DATE_FIN
x t 12/05/1983 15/02/2007 25/02/2007
e p 05/05/1983 31/01/2008 15/02/2008
r o 14/05/1986 15/01/2009 10/02/2009
t b 02/04/1985 16/01/2009 12/02/2009

ce que je voudrais est que si je ouvre excel aujourd'hui (le 12/02/2009), je voudrais que la 4eme ligne devien rouge.
si je l'ouvre demain aucune ligne devien rouge.

comment je peux faire ça?

Leatitia, pourquoi appeler macro1 à partir de woorkbook_open au lieu d'insérer le code directement dedans ?


Il manque la definition de date, qui ne renvoi pas la date du jour mais défini la date systeme, il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Now()

.

PS : n'oubli pas les balise CODE

[laetitia]

rebonjour le fil le forum un exemple a adapter

[zandru]

ce code devrait fonctionner, s'il est insérer dans le code de "thisworkbook":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    For i = 1 To 99 'fin de ta liste
        If feuil.Cells(i, 5) = Now() Then
            feuil.Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = 3
        End If
    Next
End Sub

A tester et à adapter à tes besoins...

[Daniela]

MERCIIIIIIIIII marche super bien...

bonjour Daniela PPz78 zandru le forum

dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
Private Sub Workbook_Open()
Call Macro1
End Sub

dans un module standard ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
Sub Macro1()
Dim c As Range
For Each c In Range("e1:e" & Range("e65536").End(xlUp).Row)
If c = Date Then c.Interior.ColorIndex = 3
Next
End Sub

attention je considere que tu sauvegarde ton fichier sur cette feuille
autrement il faut preciser le nom de la feuille ou son numero merci pour l info zandru a+

[ouskel'n'or]

Leatitia, pourquoi appeler macro1 à partir de woorkbook_open au lieu d'insérer le code directement dedans ?

Parce qu'à l'ouverture d'un classeur il faut, pour le systère, un "certain temps" aux feuilles pour "exister".
Ainsi ton code pourrait-il ne pas s'exécuter. Dans Thisworkbook, on peut placer toutes les commandes concernant l'application ou le classeur (Application.ScreenUpdating, Application.DisplayAlerts, etc. ou les événements concernant le classeur, appel de macro se trouvant dans un module standard...) alors qu'une macro traitant les données d'une feuille ne doit pas s'y trouver.
Et d'ailleurs on a assez de place pour les mettre ailleurs
Ce conseil provient d'un constat.
Bonne journée

Edit
Pendant que j'y suis : Call LaMacro ne sert à rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaMacro 'suffit

[Daniela]

J'ai une autre question sur ce sujet. si au lieu de souligner en rouge seulement le traitement qui termine ou moment que je ouvre le ficher, je voudrais souligner tous les traitement dejà terminé, donc toutes les dates du passé. comment je peux faire?

Edit
je suis arrivé... il suffit de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If c <= Date Then