Message clignotant

[Hugues]

Bonjour Le Forum,

Je souhaiterais connaitre s'il est possible en plus d'une mise en forme conditionnelle rendre le message clignatant.
Exemple : je souhaite comparer deux cellules : si les valeurs sont identiques alors un message dans une troisième cellule apparait = 'OK' en vert ; si les valeurs sont différentes alors un message dans une troisieme cellule apparait 'attention différence ' en rouge et pour attirer encore plus l'attention je souhaiterais que ce message clignote.
Est-ce possible ? Si oui comment faire ?

Merci par avance,

Hugues

 

[ptitrobertpointfr]

Bonsoir,
tu peux essayer ça, c'est ok

Pour tester tu mets tes 2 valeurs de test dans les cellules A2 et B2
et tu lances la macro

@+

Sub Macro1()
Dim LaPause As Integer
Dim LeDebut
Dim Boucle As Integer

If Range('A2') = Range('B2') Then
Range('C2').Value = 'OK'
Range('C2').Font.ColorIndex = 50

Else

Range('C2').Value = 'Attention différence'

LaPause = 4 ' Définit la durée en sec
LeDebut = Timer 'Fonction

Do While Timer < (LeDebut + LaPause)
DoEvents ' Donne le contrôle à d'autres processus.

For Boucle = 1 To 3
Application.Wait (Now + TimeValue('00:00:01'))
Range('C2').Font.ColorIndex = 3

Application.Wait (Now + TimeValue('00:00:01'))
Range('C2').Font.ColorIndex = 2
Next Boucle
Loop

Range('C2').Font.ColorIndex = 3
End If
End Sub
:whistle:

 

[JeanMarie]

Bonsoir

Récupére le fichier Lien supprimé

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