Macro ?

[Stéph]

Bonjour,

J'ai un planning sur excel qui me permet de visualiser les différents délais qu'il me reste pour réaliser un travail.Je souhaiterai savoir s'il est possible de trouver un système (macro par ex) de manière à m'alerter à chaque ouverture du fichier des délais très courts qu'il me reste à faire, par ex :

- Que la police de la cellule se mettre en rouge si la date du délais est à 3 jours de la date du jour.
- Que la police de la cellule se mettre en orange si la date du délais est à 8 jours de la date du jour.

Avis aux experts...
B)

Merci d'avance

 

[Staple1600]

Une autre approche pour revenir à ton souhait initial

Sub misenforme()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
T = Date - c

Select Case T
Case 3
With c.Font
.ColorIndex = 3
.Bold = True
End With
Case 8
With c.Font
.ColorIndex = 46
.Bold = True
End With
End Select

Next c

End Sub

A coller dans un module
Puis Outils/Macros Exécuter

Ou alors à lancer à l'ouverture du classeur
Avec cette macro (Dans ThisWorkBook)

Private Sub WorkBook_Open()
Call misenforme
End sub

 

[Stéph]

Tu vas devenir fou mais j'ai une erreur de comptabilité sur 'T = Date - c'

 

[Stéph]

Compatibilité pardon mdrr !! Jsuis fatiguée, j'ai très mal dormi B)

 

[Stéph]

Oui ça suffit ça ! Tant que ça marche c'est le principal ! Par contre, il me faudrait aussi que les J-1, J-2.. Jusque J-8 soit d'une police différente, j'ai essayé d'en rajouter mais ça marche pas lol !

 

[Stéph]

C'est nikel !!!!

Mais une dernière petite chose ! Est ce qu'il est possible d'appliquer la police à la colonne qui suit ex :

Police appliquée en A1, possibilité de l'étendre sur B1 ?

 

[Stéph]

Dernière fois

Je te remercie d'être si patient ! Mais une dernière question : si je veux remettre à zéro ? lol

 

[Staple1600]

Re:Dernière fois

Pour la dernière question

Sub ANNULMEF()
For Each C In ActiveSheet.UsedRange
    Application.ScreenUpdating = False
    With C.Font
        .Name = 'Arial'
        .FontStyle = 'Normal'
        .Size = 10
        .ColorIndex = xlAutomatic
    End With
    Next C
End Sub

 

[Un grand merci !!!]

Reernière fois

Ne t'inquiète pas je ne te demande plus rien, tout fonctionne à merveille !!! Je suis très surprise que tu es répondu à toutes mes requêtes !! Alors comment pourrais-je te remercier ??

 

[Stéph]

Reernière fois

En fait j'ai un souci avec la macro mise en forme ! Le pb c'est que lorsque je l'execute, elle étale la mise en forme sur toute la ligne au lieu de la ligne de la colonne suivant uniquement, pourtant j'ai essayé de regarder le code il m'a l'air bon regarde :

Sub misenforme()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
If IsDate(c) Then T = Date - c

Select Case T
Case 1
With c.Font
.ColorIndex = 3
.Bold = True
End With
With c.Offset(1, 0).Font
.ColorIndex = 3
.Bold = True
End With
.......

Merci d'avance