Cellule clignotante couleur date

Bonjour le forum,

Je cherche mais ne trouve pas.

Dans mon calendrier, j'ai des rendez-vous en blanc sur fond rouge et comme je suis tête en l'air ( peut être mon grand âge), j'aimerais que ces dates quand elle arrivent à échéance clignotent lorsque j'ouvre mon fichier calendrier, PJ en copie.

Par avance, merci pour vos solutions si cela est possible.

Cordialement

ericp

Bonjour,

Copiez ceci dans le module "ThisWorkbook"

Private Sub Workbook_Open()
    Dim Jour As Byte, Lig_Jour As Byte, Col_Mois As Byte
    Dim Couleur_de_Fond As Long
    Dim Mois As String
    Dim Annee As Integer
    Jour = Day(Date)
    Mois = WorksheetFunction.Proper(Format(Date, "mmmm"))
    Annee = Year(Date)
    Col_Mois = Application.Match(Mois, Range("A6:BF6"), 0)
    Lig_Jour = Jour + 7
    Couleur_de_Fond = Cells(Lig_Jour, Col_Mois + 2).Interior.Color
    For i = 1 To 4
        Cells(Lig_Jour, Col_Mois + 2).Interior.Color = RGB(109, 255, 142)
        Tempo
        Cells(Lig_Jour, Col_Mois + 2).Interior.Color = RGB(255, 153, 255)
        Tempo
    Next i
    Cells(Lig_Jour, Col_Mois + 2).Interior.Color = Couleur_de_Fond
End Sub

Sub Tempo()
    For j = 1 To 50000000: Next j
End Sub

Changez la valeur de la tempo pour l'ajuster à votre convenance.

Petite remarque: Vous n'êtes pas obligé de créer un module par macro, vous pouvez mettre plusieurs macros dans un même module.

Cdlt

Bonjour Arturo83,

Merci de vous êtes intéressé à mon sujet.

J'ai testé sur aujourd'hui mais je n'arrive pas à gérer le tempo, tout va trop vite, comment je pourrais faire pourque cela soit plus lent.

Je croyais qu'il fallait faire un module par macro, je pensais que ça allait entrer en conflit, je vais voir avec mes petites connaissance si je peux le faire.

Cordialement.

ericp

Dans la tempo:

Sub Tempo()
    For j = 1 To 50000000: Next j
End Sub

mettez un 0 de plus, et testez, modifiez jusqu'à ce que vous trouviez une valeur suffisante.

Je vous joins le fichier avec la valeur que de 50000000, et chez moi on voit bien la cellule du 8 février clignoter alternativement en rose et vert

Vidéo à l'appui

Cool, j'ai changé les paramètres du tempo.

100 To 50000000: Next j, et c'est nickel, je vous remercie.

Une question qui me taraude, y a t il un risque de ralentissement à cause de toutes les macros ?

Merci pour votre solution qui va me permettre d'honoré mes RV qui sont important, un grand grand merci.

Cordialement.

ericp

Bien sûr que non, puisque elles sont appelées à la demande

Ok donc je ferme le sujet.

Encore merci et bonne journée.

Cordialement.

ericp