Bonjour tout le monde,
je débute dans tout ça!! je travaille sur windows XP et Excel 2003.
je souhaiterai avoir un fichier qui concerne les dates de modification des fiches avec des codes couleur.
avec les conditions suivantes :
- Si dernière modification inférieure à un mois: couleur verte.
- Si dernière modification entre 1 et 2 mois: orange.
- Si dernière modification supérieure à 3 mois : rouge.
j'ai essayé de pomper un peu de bidouiller mais je n'y arrive pas!!
Si quelqu'un peux m'aider!!
Merci d'avance!
voici ce que j'avais trouvé :
Sub Change_Couleur_2()
'
' Change_Couleur_2 Macro
'
'
Range("A1:B3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A1>=AUJOURDHUI-30"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A1<AUJOURDHUI-30"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A1<=AUJOURDHUI-90"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
End Sub
je débute dans tout ça!! je travaille sur windows XP et Excel 2003.
je souhaiterai avoir un fichier qui concerne les dates de modification des fiches avec des codes couleur.
avec les conditions suivantes :
- Si dernière modification inférieure à un mois: couleur verte.
- Si dernière modification entre 1 et 2 mois: orange.
- Si dernière modification supérieure à 3 mois : rouge.
j'ai essayé de pomper un peu de bidouiller mais je n'y arrive pas!!
Si quelqu'un peux m'aider!!
Merci d'avance!
voici ce que j'avais trouvé :
Sub Change_Couleur_2()
'
' Change_Couleur_2 Macro
'
'
Range("A1:B3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A1>=AUJOURDHUI-30"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A1<AUJOURDHUI-30"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=A1<=AUJOURDHUI-90"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
End Sub
Pièces jointes
Dernière édition: