Macro Excel Clignoter selon date du jour
voisin22
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
voisin22 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
voisin22 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro Excel Clignoter selon date du jour
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Word et excel gratuit - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
4 réponses
Par expérience, c'est très gourmand et ça va vite te gonfler.
Passer le fond dans une couleur t'irais bien?
Passer le fond dans une couleur t'irais bien?
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
Après j'arrête le clign pour agir sur les lignes et colonnes comportant ces dates
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