Clignotement cellules Résolu/Fermé

Question

bonjour,

J'ai un  calendrier avec des dates d'anniversaire à souhaiter pour lesquelles une macro me les mets en couleur et j'aimerais que celles ci clignotes quand c'est le jour J.

Par avance, merci pour votre aide.

Cordialement,

Le Pingou · Answer

Bonjour,
Faire un tour par ici.

Mike-31 · Answer

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

Le Pingou · Answer

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.

cs_Le Pivert · Answer

Bonjour,

Voici un exemple:

 http://www.cjoint.com/c/EHBjkGUh1GQ

CALI · Answer

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

Mike-31 · Answer

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/

CALI · Answer

http://www.cjoint.com/c/EHBlKyOi3Ai

Merci pour votre coopération.

cs_Le Pivert · Answer

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

Mike-31 · Answer

Re,

voila le fichier de CALI

 https://www.cjoint.com/c/EHBrxlogKGj

CALI · Answer

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,

cs_Le Pivert · Answer

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

CALI · Answer

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

Mike-31 · Answer

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 ExplicitDim Timer As DateDim Cell As VariantSub 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    NextEnd SubSub 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 WithEnd SubSub ArretClign()On Error Resume Next    Application.OnTime Timer, "Clign", , False    'Cache l'alerte     Sheets("Calendrier").Range(ActiveCell.Address).Comment.Visible = FalseEnd Sub

cs_Le Pivert · Answer

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

CALI · Answer

bonjour à vous deux et encore un grand merci.

Je vais tester ce matin et vous tiens au courant.

Cordialement,

Mike-31 · Answer

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

CALI · Answer

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

cs_Le Pivert · Answer

Bonjour,

En attendant celui de Mike_31

 http://www.cjoint.com/c/EHFqISKbGRQ

CALI · Answer

bonjour et merci

Mike-31 · Answer

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

CALI · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

Clignotement cellules

23 réponses

Discussions similaires