Macro
j.sparo83
Messages postés
109
Statut
Membre
-
Patrice33740 Messages postés 8931 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8931 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
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
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
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
