Macro
j.sparo83
Messages postés
109
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais créer une macro pour ce qui suit :
parcourir un tableau contenant plusieurs dates,et dés que la date d'aujourd'hui soit à 15jours de ces dates,l'onglet de la feuille se met en rouge....
merci d'avance
je voudrais créer une macro pour ce qui suit :
parcourir un tableau contenant plusieurs dates,et dés que la date d'aujourd'hui soit à 15jours de ces dates,l'onglet de la feuille se met en rouge....
merci d'avance
2 réponses
-
Salut,
tu n'as pas besoin de macro pour cela, une simple mise en forme conditionnelle le fait très bien.
mais que veux tu dire "dés que la date d'aujourd'hui soit à 15jours de ces dates"
lorsque aujourd'hui est dépassé de 15 jours ou la date est inférieure de 15 jours par rapport à aujourd'hui
-
Essaies cette macro, à adapter :
Option Explicit Sub ColorerOngletSelonDate() Dim cel As Range Dim nomFeuille As String 'Analyser chaque date de la plage des dates (à adapter) For Each cel In Range("A2:A10").Cells 'Si la date est à 15 jours ou moins d'aujourd'hui ... If cel.Value + 15 >= Date Then '... déterminer la feuille concernée (à développer) ... nomFeuille = "Feuil2" '... et colorer l'onglet en rouge Worksheets(nomFeuille).Tab.Color = 255 End If Next cel End Sub
