Clignotement cellules

Bonjour,
Faire un tour par ici.

Bonjour,

Regarde cette discussion pour te mettre sur la voie

https://forums.commentcamarche.net/forum/affich-32151851-creer-une-macro-pour-declencher-clignotement-de-cellules?page=2

Bonjour CALI,
Je pense que vous devriez regarder en détail la proposition de Mike-31 (salutations) et là il vous suffira d'adapter le classeur selon vos besoin, tout y est et de belle manière.

Bonjour,

Voici un exemple:

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

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

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/

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

Merci pour votre coopération.

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

Re,

voila le fichier de CALI

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

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,

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,

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

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

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

bonjour à vous deux et encore un grand merci.

Je vais tester ce matin et vous tiens au courant.

Cordialement,

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

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

Bonjour,

En attendant celui de Mike_31

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

bonjour et merci

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