tcartillier
XLDnaute Nouveau
Bonjours à tous,
alors voila j'aimerai faire une chose qui ne me paraissait pas compliqué mais pour finir j'ai bien du mal a y arriver.
Je voulais simplement faire un FONCTION en VBA qui réécrit le contenu d'une cellule mais en changent la couleur de la police en fonction de la valeur de la cellule,
Je comptais par exemple mettre en vert si la cellule supérieur a 7, orange entre 0 et 6, et en rouge pour les chiffres négatif.
Pour le faire un macro que je lance en cliquant dessus il y a pas de problème mais pour le faire avec une fonction je n'y arrive pas...
j'aimerai utiliser cette fonction pour visualiser avec des couleurs le nombres de jours qu'il me reste avant de finir certaine taches.
alors voila le code que j'essaie mais qui n'applique pas la couleur que je souhaite... :
merci de votre aide
Thomas.
alors voila j'aimerai faire une chose qui ne me paraissait pas compliqué mais pour finir j'ai bien du mal a y arriver.
Je voulais simplement faire un FONCTION en VBA qui réécrit le contenu d'une cellule mais en changent la couleur de la police en fonction de la valeur de la cellule,
Je comptais par exemple mettre en vert si la cellule supérieur a 7, orange entre 0 et 6, et en rouge pour les chiffres négatif.
Pour le faire un macro que je lance en cliquant dessus il y a pas de problème mais pour le faire avec une fonction je n'y arrive pas...
j'aimerai utiliser cette fonction pour visualiser avec des couleurs le nombres de jours qu'il me reste avant de finir certaine taches.
alors voila le code que j'essaie mais qui n'applique pas la couleur que je souhaite... :
Code:
Function Alerte_Couleurs(Jours_restants As Object)
Application.Volatile
If Jours_restants < 0 Then
Selection.Font.ColorIndex = 3
Alerte_Couleurs = Jours_restants
End If
If Jours_restants >= 0 And Jours_restants <= 7 Then
Selection.Font.ColorIndex = 46
Alerte_Couleurs = Jours_restants
End If
If Jours_restants > 7 Then
Selection.Font.ColorIndex = 50
Alerte_Couleurs = Jours_restants
End If
End Function
merci de votre aide
Thomas.