Macro de clignotement

[Pierre]

Bonjour
je voudrais utiliser une macro pour faire en sorte que des cellules clignotent si leur valeur est positive (couleur bleue).
exemple cellule C5= 03:30 D5= 01:00 à la différence de E5 = - 36:55
le problème c'est que j'ai jamais utilisé de macro :-( donc je sais pas faire.
Merci d'avance

PS: je joint un exemple que j'ai trouvé sur le net si cela peu aider

Dans cet exemple, la mise en forme conditionnelle
met un nombre supérieur à 100 en rouge.
et la macro de feuille :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
End Sub

fait passer la couleur de remplissage du blanc
au rouge 300 fois.

Sub Clignotement()
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
End Sub

 

[Jean-Marie]

Bonjour, Pierre

Dans ce Lien supprimé tu trouveras une autre type de code[/ulr].

Ce fichier utilise :
- 2 procédures dans un module,
- 1 procédure lancée à l'ouverture du fichier, qui est placée dans le thisworkbook,
- 1 nom défini,
- 1 mise en forme conditionnelle.

Ouvre le en activant les macros, regarde si cela te convient, ferme le fichier.

Pour l'adapter à ton fichier :
1) Ouvre le sans activer les macros.
2) Dans ton fichier, Clique sur le menu Insertion/Nom/définir...
3) dans la boîte de dialogue, tu tapes dans le champ du haut VarEclairage,
dans le champ du bas, tape la valeur 0, valide
4) Sélectionne les cellules qui devront clignoter,
5) clique sur le menu Format/Mise en forme conditionnelle...
6) dans la boîte de dialgoue, change "la valeur est " par la "formule est,
dans le champ saisissable il faut inscrire VarEclairage=1, change le format, valide 2 fois.

Pour l'instant, les valeurs ont changées de format, mais elles ne clignotent pas

Il faut rajouter le code
1) Appuie sur la touche Alt+F11
2) Dans la fenêtre "Projets"
3) Clique droit sur le module contenu dans le fichier "ECLAIRAGE.XLS", puis sur "code" dans le menu contextuel, ce qui permet d'ouvrir la fenêtre du module
4) Sélection les lignes des deux Sub, et fait un copier
5) Clique sur ton Fichier dans la fenêtre "Projet"
6) Menu Insertion/Module
7) Dans la nouvelle fenêtre, colle le texte

On passe au Thisworkbook
8) Clique droit sur le Thisworkbook du fichier "ECLAIRAGE.XLS" puis sur "code", tu connaîs la manip.
9) Tu copies
10) Clique sur le Thisworkbook de ton fichier
11) fait un coller dans la nouvelle fenêtre
12) Clique sur le menu Fichier/Retourner à Excel
13) fait une sauvegarde
14) ferme et rouvre le fichier

L'avantage avec ce code, une fois installé dans le fichier, tu n'y touches plus (sauf pour changer la temporisation), c'est Excel par l'intermédiaire de la mise en forme conditionnelle qui fait tout, toi tu choisis les cellules, le format de la MFC et c'est tout.

@+Jean-Marie