comment faire clignoter une cellule avec mise en forme conditionnelle

[Sylvie]

Quelqu'un peut me dire comment je peux faire pour faire clignoter une cellule lorsque qu'une condition est remplie?
Un tout grand merci d'avance.
Sylvie.

 

[Pias]

Salut,

Clique ici...

http://www.excel-downloads.com/html/French/forum/messages/1_56307_56307.htm

 

[Sylvie]

Je te remercie Pias, je vais essayer ça du coup!
Si ça marche, je t'embrasse. Mais tu n'as pas beaucoup de chance car je ne connais pas du tout les macros, alors, on verra. Je vais quand même essayer. Merci.
A+.
Sylvie

 

[Sylvie]

Désolée mais ça ne fonctionne pas. Mais c'est pas grave après tout, c'est sûrement de ma faute puisque je n'ai jamais fait de macro. Mais y'a pas de problème, j'arrive déjà à la mettre en rouge avec un point d'exclamation donc c'est déjà très bien.
Merci quand même d'avoir pris le temps de me renseigner.
A+.
Sylvie.

 

[Evelynetfrancois]

Bonjour Sylvie
voici une macro toute faite qui : fait clignoter la cellule A1 si sont contenu est supperieur a 100
a toi eventuellement de l'adapter a ton souci!!!
tu dois la copier dans le module de ta feuille : Feuil1(Feuil1) par exemple
apres avoir fait Alt F11 pour rentrer dans VBE


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] >= 100 Then
Const Texte As String = ""
For i = 1 To 4
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
Exit Sub
End Sub

a ta dispo Bye.....
Evelynetfrancois

 

[Sylvie]

Merci Evelynetfrancois, je vais essayer de faire ça. On verra bien. Si je n'y arrive pas cette fois-ci, c'est que je suis vraiment très nule. (Mais je crois que oui, en faite!) ;ol

 

[Sylvie]

Merci à toi, Evelynetfrancois, c'est tout à fait ce que je veux mais il y a encore un petit détail: j'aurai aimé faire ça pour toutes les cellule de la colonne i. Là, j'arrive bien à le faire pour une cellule de la colonne mais je voudrais que ce soit pour toutes mes cellule de cette colonne. En tous cas, un grand merci, tu m'as bien aidé.

Sylvie.

 

[Evelynetfrancois]

Sylvie voici une autre approche
si une valeur de la colonne (I) depasse 100 Alors A1 se met a clignoter!!
( a copier dans feuil1 )

je comprends bien que tu voudrais que se soit le chiffre lui meme qui clignote mais je trouve po



Private Sub Worksheet_Change(ByVal Target As Range)
Dim fond
Dim i
Dim c As Range
For Each c In Worksheets(1).Range("I2:I120 ")

If c.Value >= 100 Then
fond = ActiveCell.Interior.ColorIndex
Range("I1").Select
fond = ActiveCell.Interior.ColorIndex
For i = 1 To 5
Application.Wait Now + TimeValue("00:00:01")
ActiveCell.Interior.ColorIndex = 3
Application.Wait Now + TimeValue("00:00:01")
ActiveCell.Interior.ColorIndex = 5
Next i
ActiveCell.Interior.ColorIndex = fond
End If
Next
End Sub

a toi de voir
bonne soirée
Evelynetfrancois qui s'aime : c'est de saison lol...

 

[Sylvie]

Merci pour ton aide. J'essayerai de tester ça demain car comme tu le dis c'est la saison des amours et faut se préparer pour passer une bonne petite soirée. Mais pour en revenir à notre problème, j'arrive bien à faire clignoter la cellule que je veux mais je voudrais que ce soit pour toute la colonne. Enfin, de toute façon, je vais voir ce que tu m'as concocté.
A+.
Sylvie.

 

[Sylvie]

Ben ça marche po!
Il me dit qu'il y a un bug.

 

[Sylvie]

Il me met une erreur à "If c.Value >=100 then"

 

[André]

essaie celle ci; je l'ai bricolé à paritr des existantes du forum, elle fonctionne
Tu peux enlever l'une ou l'autre des fonctions, et changer les couleurs.
La seule obligation est desélectionner les cellules avant le lancement de la macro.
Bon courage
André


Sub clignotant() 'fait clignoter la sélection et la police puis revient aux couleurs d'origine
fond = ActiveCell.Interior.ColorIndex ' couleur d'origine du fond
police = ActiveCell.Font.ColorIndex ' couleur d'origine de la police
Dim n As Byte, Start As Variant, i As Integer
Const Texte As String = ""
For i = 1 To 10
Selection.Interior.ColorIndex = 3 'interior 3= fond en rouge
Selection.Font.ColorIndex = 6 ' font 6 =police en jaune
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Selection.Interior.ColorIndex = xlNone 'interior xlNone=aucune couleur de fond
Selection.Font.ColorIndex = 3 'font 3 =police en rouge
End If
Next n
Next i
Selection.Font.ColorIndex = police 'reprend la couleur d'origine de la police
Selection.Interior.ColorIndex = fond 'reprend la couleur d'origine du fond
End Sub

 

[Pias]

Bonjour, André et Sylvie

Chez moi la formule de Evelynetfrancois fontionne parfaitement.

Par contre celle d'André je n'y sais pas dans quelle colonne il faut mettre les valeurs ? Colonne I ? pas compris ça marche pas ?

Merci d'avance..

 

[André]

Re bonjour (on va arriver à bonsoir)

La macro que j'ai envoyé ne fait que clignoter la cellule; à toi de sélectionner la cellule que tu veux faire clignoter...

 

[Sylvie]

Moi non plus, désolée, je ne comprends pas tout.
Et puis oui, la formule de Evelynetfrancois marchait très bien mais je voulais faire clignoter toute la colonne. En faite, j'ai mis une condition qui me dit qu'il doit me prévenir quand il me reste moins de 5 articles. Le problème c'est que je sais le faire pour un article, donc une cellule mais pas pour tout mes articles. Je voudrais que cette fonction aille pour toute la colonne. J'suis une chieuse, hein!!
Mais merci quand même, vous m'aide d'une aide précieuse.
Sylvie.