comment faire clignoter une cellule excell Résolu

Question

Bonjour, 
comment faire  clignoter une cellule sous Excel avec une condition par exemple si C11>6000, la cellule affiche "MAUVAISE DÉPENSE" comment faire clignoter cela pour attirer mon attention sur mes dépenses s'il vous plait j'ai besoin de votre aide

Merci


Configuration: Windows XP / Chrome 21.0.1180.89

rolandvan88 · Accepted Answer

voici un exemple de fichier que je dois créer pour l'entreprise
http://www.cjoint.com/confirm.php?cjoint=BInr5OZSi9w

Mike-31 · Answer

Salut,

comme ce fichier

https://www.cjoint.com/?BInqO595Tso

rolandvan88 · Answer

oui pareille comme ca

Mike-31 · Answer

Re,

alors avec le VBA il faut être très précis, cela concerne quelle plage, uniquement C11 ou ?

Qui a t il en C11 des valeurs ou  "MAUVAISE DÉPENSE" résultat d'une formule

et quel élément déclencheur faut il retenir les valeurs > à 6000 ou "MAUVAISE DÉPENSE"

rolandvan88 · Answer

pourrais je savoir comment faire ca car je dois introduire aussi mes conditions selon lesquelles si C11>6000 = mauvaise depense et faire clignoter la cellule

rolandvan88 · Answer

en c11 il y a le total de mes dépenses qui est de 5600 ( représenté par la formule =SOMME(C7:C10).
je ne sais pas si j'explique bien ?

rolandvan88 · Answer

un exemple concret :
objet                          quantité             coût
x1                                 1                       2500
x2                                 2                        300
x3                                 4                         500
total                                                        3300
donc je voudrais faire clignoter la cellule de 3300 étant donné que je me suis fixé un objectif de dépenser 2500  alors que cette cellule dépasse 2500 ( 3300>2500)
voila en quelque sorte ce que je voulais expliquer

Mike-31 · Answer

Re,

Comme je te l'ai dit, ce problème ne peut se traiter qu'en VBA si tu as quelques notions et être très précis. Dans chaque post tu donnes des valeurs de déclenchement différentes >6000 puis > à 5600 puis > à 2500. cette valeur de déclenchement est elle variable et dans quelle cellule est elle affichée ?
Ensuite tu parlais de la cellule C11 puis de X1 etc même si ce x représente une colonne un code VBA est écrit pour une plage bien précise.
Le mieux serait d'avoir ton fichier que l'on apprécie sa structure que tu peux joindre avec ce lien

https://www.cjoint.com/

Mike-31 · Answer

Re,

Voila comme cela, change les valeurs entre C7 et C10
par contre j'ai enregistré le fichier sous l'ancienne extension Excel 97_2003 .XLS sinon il faut l'enregistrer en XLSM à cause des codes

https://www.cjoint.com/?BIntlY7Noqh

rolandvan88 · Answer

OK merci bcp pour ce service que tu viens de me rendre mais pourrais je savoir comment tu l'as fait s.t.p décris moi les différentes étapes car si je devais le présenter je dois être en mesure au moins de le faire 
Merci bcp

rolandvan88 · Answer

car je ne maîtrise pas trop l'informatique donc je voudrais vraiment que tu puisse donner les instructions précises pour le faire depuis excel svp.

Merci

Mike-31 · Answer

Re,

Le problème est bien là, si tu ne connais pas trop l'informatique et surtout le langage VBA cela va être difficile.

il faut aller dans le visual basic editor du fichier, pour cela clic droit sur l'onglet d'une feuille/Visualiser le code. 
Dans le projet VBAProject tu verras Thisworbook dans lequel j'ai écrit ces codes pour lancer les procédures dès l'ouverture du fichier, arrêter les procédures à la fermeture et le dernier pour lancer la procédure lors de changement de données

Option Explicit

Private Sub Workbook_Open()
    'Lance le clignotement  à l'ouverture si la cellule B11 ="Mauvais"
    If Feuil1.Range("B11").Value = "Mauvais" Then Clign
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Interrompt le clignotement éventuel avant fermeture
    StopClign
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim F As Worksheet
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("C7:C10")) Is Nothing Then
        'S'assure que la même valeur apparaisse en B3 sur chaque feuille
    If Feuil1.Range("B11") = "Mauvais" Then Clign
    If Feuil1.Range("B11") = "Bon" Then StopClign
        'Lance ou stoppe le clignotement
    End If
End Sub

 Ensuite j'ai créé un module dans lequel j'ai écrit la procédure de clignotement et l'arrêt du clignotement

Option Explicit

Dim Temps As Variant

Public Sub Clign()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With Feuil1
        .[B11].Interior.ColorIndex = IIf([B11].Interior.ColorIndex = 3, xlNone, 3)
    End With
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    On Error GoTo 0
    'Cache l'alerte
    With Feuil1
        .[B11].Interior.ColorIndex = xlNone
    End With
End Sub

Mais si tu n'as pas de notion mieux vaut ne pas y toucher

Mike-31 · Answer

Re,

dans la Thiswokbook colle ce code

 Private Sub Workbook_Open()    'Lance le clignotement  à l'ouverture si la cellule B3 supérieure à 9    If Val(Sheets(1).Range("F2").Value) >= 5 Then ClignEnd SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)    'Interrompt le clignotement éventuel avant fermeture    StopClignEnd Sub

et dans un module ce code

Option ExplicitDim Temps As VariantPublic Sub Clign()    'Programmation de l'évènement toutes les secondes    Temps = Now + TimeValue("00:00:01")    Application.OnTime Temps, "Clign"    'Affiche l'alerte ou la fait disparaître (alternativement)    With ThisWorkbook        With .Sheets("Feuil1").Range("F2")            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)        End With    End WithEnd SubPublic Sub StopClign()    On Error Resume Next    'Stoppe la gestion de l'évènement OnTime    Application.OnTime Temps, "Clign", , False    On Error GoTo 0    'Cache l'alerte    With ThisWorkbook        .Sheets("Feuil1").Range("F2").Interior.ColorIndex = xlNone    End WithEnd Sub

et dans les propriétés de ta feuille ce code

Private Sub Worksheet_Activate()'Lance le clignotement  à l'ouverture si la cellule B3 supérieure à 9    If [F2].Value = "" Then Exit SubIf [F2].Value >= 0.05 Then Clign Else StopClignEnd SubPrivate Sub Worksheet_Deactivate()'Interrompt le clignotement éventuel avant fermeture   Call StopClignEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Union([C2], [E2])) Is Nothing ThenStopClignIf [F2].Value = "" Then Exit SubIf [F2].Value >= 0.05 Then Clign Else StopClignEnd IfEnd Sub


le clignotement se lancera à l'ouverture du fichier, ou lorsque tu changeras les valeurs en C2 ou F2 ou lorsque tu reviendras sur ta feuille nommée Feuil1

Mike-31 · Answer

Re,

comme tu relances la discussion, j'ai relu ton post et relève que le clignotement concerne plusieurs cellules de la colonne F ce qui remet en cause le code, je te conseille de supprimer les codes précédents et utiliser ces codes

dans la Thiswokbook colle ce code
Private Sub Workbook_BeforeClose(Cancel As Boolean)Call ArretClignotementEnd SubPrivate Sub Workbook_Open()Sheets("Feuil7").SelectCall ArretClignotementCall CellulesClignotentEnd Sub

dans les propriétés de ta feuille afin que le clignotement reprenne automatiquement quelque soit tes interventions sur ton classeur
 Private Sub Worksheet_Activate()Call CellulesClignotentEnd SubPrivate Sub Worksheet_Deactivate()Call ArretClignotementEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Call ArretClignotementCall CellulesClignotentEnd Sub

et dans un module colle ce code
Dim Durée As DatePublic Sub CellulesClignotent()    Dim c As Range    For Each c In Range("F2:F100").Cells 'Zone du clignotement        If c.Interior.ColorIndex = xlNone Then            If c.Value <> "" And c.Value >= 0.05 Then                c.Interior.ColorIndex = 3            Else                c.Interior.ColorIndex = 0            End If        Else            c.Interior.ColorIndex = 0        End If    Next c    Durée = Now() + TimeValue("00:00:01") 'le temps du clignotement    Application.OnTime Durée, "CellulesClignotent"End SubSub ArretClignotement()On Error Resume Next    Application.OnTime Durée, "CellulesClignotent", , False    Range("F2:F100").Interior.ColorIndex = xlNoneEnd Sub

un exemple de fichier enregistré en XLS que tu peux enregistrer sous avec une extension XLSM prenant en compte les macros, mais en aucun cas en XLSX
 https://www.cjoint.com/c/EKzjhkFoIUj
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Dans la Thiswokbook ajoute de code
 
Private Sub Workbook_Deactivate()Call ArretClignotementEnd Sub Private Sub Workbook_Activate()Call ArretClignotementCall CellulesClignotentEnd Sub
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

et pour que le code s'adapte automatiquement à la plage de cellules à traiter colonne F, dans le module remplace le code par

Dim Durée As DatePublic Sub CellulesClignotent()    Dim c As Range    For Each c In Range(Range("F2"), Range("F65000").End(xlUp)).Cells 'Zone du clignotement        If c.Interior.ColorIndex = xlNone Then            If c.Value <> "" And c.Value >= 0.05 Then                c.Interior.ColorIndex = 3            Else                c.Interior.ColorIndex = 0            End If        Else            c.Interior.ColorIndex = 0        End If    Next c    Durée = Now() + TimeValue("00:00:01") 'le temps du clignotement    Application.OnTime Durée, "CellulesClignotent"End SubSub ArretClignotement()On Error Resume Next    Application.OnTime Durée, "CellulesClignotent", , False    Range(Range("F2"), Range("F65000").End(xlUp)).Interior.ColorIndex = xlNoneEnd Sub

Mike-31 · Answer

Re,

au certainement, je regarde cela dans la soirée

Mike-31 · Answer

Re,

Bizarre que le code se mette en erreur, ajoute dans le module en début de code une gestion d'erreur
On Error Resume Next

exemple de l'emplacement ou tu dois ajouter la ligne dans le code

Public Sub CellulesClignotent()
    Dim c As Range
    On Error Resume Next
    For Each c In Range(Range("F2"), Range("F65000").End(xlUp)).Cells 'Zone du clignotement 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,  

le sablier !

je ne sais pas si j'ai bien compris, n'es ce pas le pointeur de souris ou pourquoi pas le sablier qui s'affiche à chaque clignotement !

Mike-31 · Answer

Re,

c'est bien ce que j'avais compris, cela vient du clignotement et il n'y a pas de manip pour l'éviter, par contre si tu actives une cellule, le clignotement s'arrête de le sablier ne s'affiche pas ce qui ne gêne pas pour travailler sur la feuille

Comment faire clignoter une cellule excell

20 réponses

Discussions similaires

Newsletters