Macro
Fermé
j.sparo83
Messages postés
98
Date d'inscription
vendredi 14 mai 2010
Statut
Membre
Dernière intervention
18 juin 2012
-
20 nov. 2011 à 11:12
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 20 nov. 2011 à 12:30
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 20 nov. 2011 à 12:30
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
20 nov. 2011 à 11:44
20 nov. 2011 à 11:44
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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
20 nov. 2011 à 12:30
20 nov. 2011 à 12:30
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