Macro date

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

Bonjour

Avec le peu de renseignements fournis je propose cette idée

Sub truc()
Dim Lg

  Lg = Application.Match(CSng(Date - 15), Range("D1:D91"), 1)
  If Not IsError(Lg) Then
    ActiveSheet.Tab.ColorIndex = 3
  Else
    ActiveSheet.Tab.ColorIndex = -4142
  End If
End Sub

Si pas ça

merci,

serait il possible d'avoir des commentaires sur les lignes de codes?

Bonsoir

Banzai64 a écrit :

Lg = Application.Match(CSng(Date - 15), Range("D1:D91"), 1)

C'est la fonction Excel EQUIV(Valeur_Cherchée; Zone_de_recherche; Type)

CSng(Date - 15) : Retourne la date du jour - 15 jours

Range("D1:D91") : Zone de recherche

Si Type= 1 (dans ce cas) on récupère soit la valeur exacte soit la valeur inférieure

Banzai64 a écrit :

If Not IsError(Lg) Then

ActiveSheet.Tab.ColorIndex = 3

Else

ActiveSheet.Tab.ColorIndex = -4142

End If

Si lg ne retourne pas d'erreur on colorie l'onglet en rouge et dans le cas contraire on supprime la couleur

Pas plus compliqué que ça vu le peu de renseignements fournis

Pour la fonction EQUIV regardes l'aide d'Excel

je poste le fichier dans un petit moment,,,

merci beaucoup


voici le fichier avec une explication du but,,,vraiment vous me sauvez les gars

grand thank's

pour rappel : c'est d'une macro que j'ai besoin!!!

94test-color.xlsx (11.43 Ko)

Bonsoir

Ta demande a évoluée

Au départ c'était l'onglet qui devenait rouge maintenant ce sont des cellules qui le deviennent

Voir avec une MEFC (Excel 2003)

Zut

pour rappel : c'est d'une macro que j'ai besoin!!!

Bonsoir

Une version avec une macro

avec MEFC il ne me donne pas la main pour faire la différence entre les dates

Bonsoir

Tu as eu le temps de récupérer le fichier avant que je l'enlève ?

j.sparo a écrit :

avec MEFC il ne me donne pas la main pour faire la différence entre les dates

????

Je ne comprends pas

bonjour,

mais pourquoi il met en rouge la date de l'année 2014?

Bonjour

Tu as marqué "NOTE : ( date tableau - date aujourd'hui = 15)" moi j'ai juste modifier > 15 au lieu de = 15

Dans le code modifies

       '  [barrer]If Cel - Date > 15 Then                   ' OUI on teste si cette date est éloignée de 15 jours[/barrer]            If Cel - Date = 15 Then                   ' OUI on teste si cette date est éloignée de 15 jours

Mais tu n'auras aucune date de coloriée

Rechercher des sujets similaires à "macro date"