Bonjour à tous,
Je souhaite résoudre un problème de macros, je vous explique rapidement le principe. Je veux instaurer un niveau d'alerte en fonction de la date d'échéance d'une tâche :
- bleue: terminée
- vert : +3 de jours avt date
- orange : moins de 3 jours avt deadline
- rouge : jour de la date butoir
- noir : retard
Avec le code suivant j'arrive à appliquer ce raisonnement
- si date remplie, tâche faite dc cellule > 1 : bleu
- si différence date butoir - date d'aujourd"hui > 3 vert
-si différence < 3 orange
et ainsi de suite
je précise que je pars sur une macro car cet élément va s'inscrire dans un calcul plus complexe sur un gantt
Ma question est comment faire pour que le test s'applique à toutes les cellules de la colonne et non seulement E3. J'ai mis un visuel où les couleurs ne viennent pas de la macro mais st faites manuellement pr voir le résultat voulu.
Sub Essai_MEFC_par_macros()
Dim MaFeuille As Worksheet, Test As Double, Opr1 As Double, Opr2 As Double
Set MaFeuille = Application.Workbooks("Essai MEFC par macros.xlsm").Worksheets("Feuil1")
Test = Range("D3")
Opr1 = Range("C3")
Opr2 = Range("D3")
If Test > 1 Then
MaFeuille.Range("E3").Interior.ColorIndex = 32
ElseIf Opr1 - Opr2 < 0 Then
MaFeuille.Range("E3").Interior.ColorIndex = 1
ElseIf Opr1 - Opr2 <= 1 Then
MaFeuille.Range("E3").Interior.ColorIndex = 3
ElseIf Opr1 - Opr2 <= 3 Then
MaFeuille.Range("E3").Interior.ColorIndex = 45
Else
MaFeuille.Range("E3").Interior.ColorIndex = 10
End If
End Sub
[/URL] Uploaded with ImageShack.us[/IMG]
Merci d'avance pour votre aide
Je souhaite résoudre un problème de macros, je vous explique rapidement le principe. Je veux instaurer un niveau d'alerte en fonction de la date d'échéance d'une tâche :
- bleue: terminée
- vert : +3 de jours avt date
- orange : moins de 3 jours avt deadline
- rouge : jour de la date butoir
- noir : retard
Avec le code suivant j'arrive à appliquer ce raisonnement
- si date remplie, tâche faite dc cellule > 1 : bleu
- si différence date butoir - date d'aujourd"hui > 3 vert
-si différence < 3 orange
et ainsi de suite
je précise que je pars sur une macro car cet élément va s'inscrire dans un calcul plus complexe sur un gantt
Ma question est comment faire pour que le test s'applique à toutes les cellules de la colonne et non seulement E3. J'ai mis un visuel où les couleurs ne viennent pas de la macro mais st faites manuellement pr voir le résultat voulu.
Sub Essai_MEFC_par_macros()
Dim MaFeuille As Worksheet, Test As Double, Opr1 As Double, Opr2 As Double
Set MaFeuille = Application.Workbooks("Essai MEFC par macros.xlsm").Worksheets("Feuil1")
Test = Range("D3")
Opr1 = Range("C3")
Opr2 = Range("D3")
If Test > 1 Then
MaFeuille.Range("E3").Interior.ColorIndex = 32
ElseIf Opr1 - Opr2 < 0 Then
MaFeuille.Range("E3").Interior.ColorIndex = 1
ElseIf Opr1 - Opr2 <= 1 Then
MaFeuille.Range("E3").Interior.ColorIndex = 3
ElseIf Opr1 - Opr2 <= 3 Then
MaFeuille.Range("E3").Interior.ColorIndex = 45
Else
MaFeuille.Range("E3").Interior.ColorIndex = 10
End If
End Sub
Merci d'avance pour votre aide
Dernière édition: