Clignotement cellules

Re,

je viens de regarder les formules, tu pourrais les alléger, exemple la formule que tu as en A5
=SI(MOIS(DATE(An;COLONNE($A1:$IV12);LIGNE($A1:$IV31)))=COLONNE($A1:$IV12);DATE(An;COLONNE($A1:$IV12);LIGNE($A1:$IV31));"")

tu pourrais l'écrire
=SIERREUR((LIGNE()-4&"/"&COLONNE()&"/"&An)*1;"")

ensuite incrémente vers la droite jusqu'à la colonne L, puis incrémente la ligne jusqu'à la ligne 35

éventuellement sécurise le tableau en matriciel

Re,

Bizarre, que tu n'ai pas le son, fait un clic droit sur le fichier Happy_Birthday.mp3 et Lecture et dis moi si le lecteur média fonctionne

bonjour,

C'est fabuleux, sincèrement merci pour votre professionnalisme et à bientôt.

Re,

voilà le fichier je pense opérationnel, n'hésitez pas à faire remonter vos remarques.
actuellement le fichier ne contient pas de commentaire, il suffit d'en saisir aux dates souhaitées. Actuellement le fichier audio est prévu pour relever les anniversaires.
la procédure se lance automatiquement à l'ouverture du fichier, au changement d'onglet, au changement de date ou par l'unique bouton qui change d'aspect en fonction de la procédure en cours
dans tous les cas la procédure peut être arrêtée avec le bouton ou en quittant la feuille
le code s'exécute en partie ou en totalité si la cellule du jour contient un commentaire
télécharger le dossier ZIP puis sortir le dossier Anniv avant de tester le fichier Classeur2 que vous pouvez renommer
https://www.cjoint.com/c/EIci1gbUZjj

bonjour et merci

Bonjour,

En attendant celui de Mike_31

http://www.cjoint.com/c/EHFqISKbGRQ

ok, je vais voir mais pour la musique pas possible, pas de carte son, dommage.
Merci

Re,

Merci de ton retour, il est également possible de piloter dans le même code la mise en forme conditionnelle, et au choix faire clignoter la cellule ou le commentaire, ou clignoter la cellule et faire apparaitre le commentaire de la cellule concernée et si tu veux pousser la curiosité faire jouer une musique comme Happy_Birthday

bonjour à vous deux et encore un grand merci.

Je vais tester ce matin et vous tiens au courant.

Cordialement,

Bonne approche, merci pour cette solution.

J'ai modifié pour approcher de la demande:

dans un module:

Option Explicit
Dim Timer As Date
Dim Cell As Variant
Sub Comman()
   For Each Cell In Range("A5:L35")
       If Not (Cell.Comment Is Nothing) And Cell = Date Then 'MsgBox Cell.Comment.Text
       Cell.Select
       Clign
       End If
    Next
End Sub
Sub Clign()
On Error Resume Next
Static i
   i = i + 1
 'tant que le nombre de clignotements choisi n'est pas atteint
  '(ici 5) on continue
  If i <= 5 Then
  Timer = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime Timer, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
                'Commentaire
        With .Sheets("Calendrier").Range(ActiveCell.Address)
            .Comment.Visible = Not .Comment.Visible
        End With
    End With
  Else
   Application.OnTime Timer, "Clign", , False
    'Cache l'alerte
     Sheets("Calendrier").Range(ActiveCell.Address).Comment.Visible = True
    i = 0
  End If
End Sub

et dans la feuille:

Option Explicit
Dim f, ligne, cmt
Dim mois, jour
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
  [A5:L35].ClearComments
  [A5:L35].Interior.ColorIndex = xlNone
  Set f = Sheets("evenement")
  For ligne = 2 To f.[A65000].End(xlUp).Row
    cmt = f.Cells(ligne, 1) & " " & f.Cells(ligne, 2) & " " & f.Cells(ligne, 4)
    mois = Month(f.Cells(ligne, 3))
    jour = Day(f.Cells(ligne, 3))
With Sheets("calendrier").Cells(jour + 4, mois)
       If .Comment Is Nothing Then .AddComment
       .Comment.Text Text:=cmt
       .Comment.Shape.TextFrame.AutoSize = True
       .Interior.ColorIndex = 3
       .Comment.Visible = True
      End With
      Next ligne
      Comman 'lance le clignotement
        Application.ScreenUpdating = True
End Sub

Cordialement

Re,

Excuse le retard, problème de connexion, merci à Pivert d'avoir assuré le suivi, mais si tu repasses par là

tu pourrais faire simple en affichant le commentaire du jour courant , ou si tu tiens au clignotement une autre variante, faire clignoter le commentaire
pour tester coller ce code dans un module et associer le code Comman et ArretClign à un bouton ou dans la Thiswokbook pour un lancement automatique

Option Explicit
Dim Timer As Date
Dim Cell As Variant

Sub Comman()
   For Each Cell In Range("A5:L35")
       If Not (Cell.Comment Is Nothing) And Cell = Date Then 'MsgBox Cell.Comment.Text
       Cell.Select
       Clign
       End If
    Next
End Sub

Sub Clign()
On Error Resume Next
    Timer = Now() + TimeValue("00:00:01") 'le temps du clignotement
    Application.OnTime Timer, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
                'Commentaire
        With .Sheets("Calendrier").Range(ActiveCell.Address)
            .Comment.Visible = Not .Comment.Visible
        End With
    End With
End Sub

Sub ArretClign()
On Error Resume Next
    Application.OnTime Timer, "Clign", , False
    'Cache l'alerte
     Sheets("Calendrier").Range(ActiveCell.Address).Comment.Visible = False
End Sub

bonjour,

Sincèrement merci, je l'ai testé et c'est génial.
Merci à tous les 2

Cordialement,

Voilà le classeur modifié. J'ai mis un anniversaire bidon pour aujourd'hui, pour voir le bon fonctionnement:

http://www.cjoint.com/c/EHCjPvWkD5Q

Mike-31, il y a certainement moyen de simplifier le code.

Il ne reconnaissait pas les numéros de colonne!

Si tu peux le regarder

Cordialement à vous 2

bonjour et merci à tous les deux pour votre patience.
Je vais essayer de me débrouiller avec votre envoi mais par contre si vous arrivez à corriger mon fichier, ce serait géniaL

Cordialement,

Re,

voila le fichier de CALI

https://www.cjoint.com/c/EHBrxlogKGj

Ton lien est inactif. Tu devrais t'inscrire, c'est gratuit. Tu recevrais des messages quand on te répond. Les liens sont en bleus et cliquables.

voici un autre exemple qui s'adapte à tous les classeurs:

Tu fais Alt F11 pour accéder à l'éditeur.

Les codes sont dans module1 et ThisWorkbook

http://www.cjoint.com/c/EHBpDuRogDQ

http://www.cjoint.com/c/EHBlKyOi3Ai

Merci pour votre coopération.

Re,

si tu commençais par mettre ton fichier anonymisé à notre disposition il serait peut être possible d'adapter un code
pour joindre ton fichier à partir de ce lien
https://www.cjoint.com/

re,

Désolée mais je n'arrive pas adapter cette macro à mon fichier. Je sais, je ne suis pas très douée , aussi j'ai vraiment besoin d'aide.

Merci

Bonjour,

Voici un exemple:

http://www.cjoint.com/c/EHBjkGUh1GQ