Macro

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

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. 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
    1. 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