mise en forme conditionnelle

  • Initiateur de la discussion Initiateur de la discussion loran45
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

loran45

Guest
Bonjour à tous,

J aimerais savoir si il est possible d'avoir un format clignotant (le fond ou la police) en passant par 'la mise en forme conditionnelle' ?


par avance merci

loran
 
Bonjour

je vais utiliser une réponse de normand bien que je ne le sois pas
P'tet bien que oui, p'tet bien que non
Mais par contre je peux t'affirmer que par le biais d'une macro c'est possible

Comment faire clignoter du texte dans une cellule ?
Sans macro, pas possible dans excel...(lui il n'est pas Normand)(lol)
Avec une macro de Bill Manville :

Pour créer une cellule qui clignote :
Définit un nouveau style (format/style/Flash/ajouter)
Applique le à la cellule que tu choisis, place le code suivant dans un module de
feuille et lance la procédure flash en tant que auto-open. Le texte clignote entre
rouge et blanc.

Dim NextTime As Date

Sub Flash()
NextTime = Now +
TimeValue('00:00:01')
With ActiveWorkbook.Styles('Flash').Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With

Application.OnTime NextTime, 'Flash'
End Sub

Sub StopIt()

Application.OnTime NextTime, 'Flash', schedule:=False

ActiveWorkbook.Styles('Flash').Font.ColorIndex = xlAutomatic
End Sub

Bill Manville (traduction Flo)
****************************
Autre solution :

Comment faire pour qu'une cellule clignote quand la souris passe dessus.
Je suppose ici que la cellule que tu veux faire clignoter est B5.
1. Sors la boîte à outils Contrôles,
2. Insère un contrôle Image (sans image !) sur ta cellule,
3. Choisis les propriétés suivantes pour ton contrôle :
BackStyle : Transparent
BorderStyle : None
4. Le contrôle doit avoir les mêmes dimensions que ta cellule,
5. Utilise alors les deux macros suivantes :
Private Sub Image1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call Clignote
End Sub
Sub Clignote()
For i = 1 To 50
With [B5].Interior
.ColorIndex = 3
ColorIndex = xlNone
End With
Next i
End Sub
Bill Manville, Serge Garneau, (N°783)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
196
Réponses
5
Affichages
665
W
Réponses
2
Affichages
239
Réponses
7
Affichages
689
Retour