Faire clignoter des cellules sur excel Fermé

Question

Bonjour à tous ,

Je souhaite faire clignoter des cellules sur excel .

J'ai un tableau avec n interventions sur une machine , ces interventions ont une périodicité a respecté . Sur mon fichier excel , j'ai une colonne avec la date de la dernière intervention et une autre avec la date de la prochaine intervention,j'ai crée une nouvelle colonne que j'ai nommé alertes  ou j'ai mis 3 couleurs (Rouge ,orange et vert ) ,dans cette colonne j'ai mis  seulement une mise en forme conditionnel qui permet à la cellule de changer de couleur quand la date de la prochaine intervention est proche (en vert + J-7 , orange entre j-7 et la date d'intervention et rouge quand la date est arrivé ou dépassé ) .

Mon problème est que je souhaite faire mieux , au lieu que ces cellules ou il y a les couleurs change seulement de couleur , je souhaite que quand elle passe à l'orange et au rouge commence à clignoter.

J'espère que j'étais clair dans mes explications .S'il le faut vous me dite et je vous joint le fichier excel que j'ai crée .
Je vous remercie d'avance de vos réponses

cs_Le Pivert · Answer

Bonjour,

Voici un code qui fait clignoter une cellule au changement de saisie. A adapter suivant les besoin.

Mettre dans un module:

Option ExplicitSub Flash()Static i   i = i + 1  'le clignotement  If ActiveCell.Interior.ColorIndex = 6 Then    ActiveCell.Interior.ColorIndex = 3 'fond rouge    ActiveCell.Font.ColorIndex = 6 'caractères en jaune  Else    ActiveCell.Interior.ColorIndex = 6 'fond jaune    ActiveCell.Font.ColorIndex = 3 'caractères en rouge  End If    'tant que le nombre de clignotements choisi n'est pas atteint  '(ici 5) on continue  If i <= 5 Then    Application.OnTime Now + TimeValue("00:00:01"), "Flash"  Else    'sinon, on revient à la mise ne forme par défaut d'Excel    'et on arrête tout    ActiveCell.Interior.ColorIndex = xlNone 'fond incolore    ActiveCell.Font.ColorIndex = 1 'caractères en noir    i = 0  End IfEnd SubSub InitFlash()  'lance un clignotement toutes les secondes  Application.OnTime Now + TimeValue("00:00:01"), "Flash"End Sub 

Mettre dans la feuille concernée. C'est là qu'il faudra faire des modif. Elle est réglée pour le changement de la cellule C13.

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)  If Target.Address = "$C$13" Then InitFlash End IfEnd Sub

Bonne programmation

cs_Le Pivert · Answer

J'ai mis:

Mettre dans un module: 

pourquoi l'avoir mis dans ThisWorkBook ?

Allez dans Insertion- Module et collez le code. Supprimez celui dans ThisWorkBook . Cela doit fonctionner.

Mike-31 · Answer

Bonjour, Déjà sur ta feuille "Transstockeur" tu as une erreur de formulation avec une circulaire exemple formule en cellule G4 tu ne peux inclure dans la formule de calcul G4<>"" tu demandes à Excel de donner dans cette cellule un résultat dont cette cellule attend elle même le résultat, et bien sur idem dans les cellule au dessous, il faut donc supprimer G4<>"" =SI(ET(D4<>"";E4<>"";F4<>"";G4<>"");SI(ET(E4="Mois");MOIS.DECALER(F4;D4);SI(ET(E4="Année");MOIS.DECALER(F4;(D4*12));SI(ET(E4="Semaines");((D4*7)+F4);"Faute Saisie Périodicité")));"") ensuite tu as colonne I la colorisation rouge, en J orange et en K la couleur verte pourquoi utiliser 3 colonnes, peut on utiliser qu'une seule colonne pour afficher les trois couleurs

siklo57 · Answer

bien vu pour erreur de formulation , je me suis même pas rendu compte en tapent ma formule , et pour les trois couleurs dans les colonnes , j'ai essayé au début de mettre les 3 couleurs dans la même colonne et sa marchait pas (mnt j'ai trouvé aussi l'erreur  , j'ai changé et j'ai les 3 couleurs sur la même colonne).

Je sais pas si tu a compris le principe de mon tableau , maintenant ce que je cherche à faire ,c'est quand la date de l'intervention approche ,ma cellule commence à clignoter

voila le nouveau fichier complet avec toutes les modifications , et merci encore une fois du temps que vous consacrez 

https://www.cjoint.com/?DCCoHeO5ySB

Mike-31 · Answer

Re,

Je te regarde le fichier en fin d'après midi

Mike-31 · Answer

Re,

voila mais le fichier doit être enregistré avec l'extension XLSM ou dans un format XLS comme j'ai fait pour qu'il sit pris en compte par toutes les versions Excel. J'ai fait clignoter directement la colonne G mais si tu veux le clignotage décalé en I pas de problème

 	https://www.cjoint.com/c/DCCtgmaDWWj

Mike-31 · Answer

Bonjour,

Alors pas de nouvelle, ou on se contente de prendre sans le moindre retour ?

Faire clignoter des cellules sur excel

7 réponses

Discussions similaires