Macro Excel Clignoter selon date du jour

voisin22 -  
Bonjour,
Dans un tableau excel, je voudrais mettre une macro commandable ou automatique à l'ouverture du tableau qui fasse clignoter toutes les cellules correspondantes à la date du jour ?
Merci à vous
Configuration: Windows XP
Internet Explorer 7.0

4 réponses

  1. booddha
    Par expérience, c'est très gourmand et ça va vite te gonfler.

    Passer le fond dans une couleur t'irais bien?
    0
    1. booddha
      Sinon tu as ça, il ne te reste plus qu'à insérer ta condition

      Changer la couleur de fond et de la police.
      Macro à incorporer dans le module de la feuille.

      Public OrigBkgCol As Long, OrigTxtCol As Long
      Public OldCell As Range

      Sub InitFlash()
      Set OldCell = ActiveCell
      OrigBkgCol = ActiveCell.Interior.ColorIndex
      OrigTxtCol = ActiveCell.Font.ColorIndex
      Application.OnTime Now + TimeValue("00:00:01"), "Flash"
      End Sub

      Sub Flash()
      If ActiveCell.Interior.ColorIndex < 0 Then
      ActiveCell.Interior.ColorIndex = 1 'fond noir
      ActiveCell.Font.ColorIndex = 2 'texte en blanc
      Else
      ActiveCell.Interior.ColorIndex = (ActiveCell.Interior.ColorIndex + 1) Mod 2
      ActiveCell.Font.Color = 1
      End If
      Application.OnTime Now + TimeValue("00:00:01"), "Flash"
      End Sub
      0
  2. voisin22 Auteur
    C'est un tableau de rdv et je veux pouvoir sur cde faire clignoter toutes les cellules qui sont disséminées sur le tableau pour attirer l'oeil.
    Après j'arrête le clign pour agir sur les lignes et colonnes comportant ces dates
    0
    1. voisin22 Auteur
      Ok pour passer le fond dans une couleur mais je voudrais alors pouvoir annuler aussi car j'utilise les couleurs de fonds pour différents indices dans mon tableau
      0
      1. voisin22 Auteur
        ok sympa
        Mais pour la condition ?
        j'ai toujours la meme cellule qui a toujours la fonction "aujourd'hui" interne.
        Je peux reprendre cette cellule pour faire la condition ?
        0