faire clignoter une cellule selon une condition

[compteabdou]

Bonjour,

je cherche comment faire clignoter une cellule avec n'importe quelle couleur suite à une condition.

j'ai trouvé un macro qui fait ça mais je le trouve pas efficace.

Merci.

 

[DL_13]

Re : faire clignoter une cellule selon une condition

Bonjour,

Essaye ce lien

Bonne Journée

 

[compteabdou]

Re : faire clignoter une cellule selon une condition

Merci beaucoup je vais voir comment personnaliser le code.

 

[compteabdou]

Re : faire clignoter une cellule selon une condition

Bonjour,

J'ai essayé d'appliquer la macro sur une colonne pour tester si la valeur de chaque cellule est < 5 et > -5 et après je veux que la cellule clignote mais je n'ai pas réussi.
voir (mafeuille) dans le fichier joint.

pourriez vous m'indiquer comment faire pour appliquer ce test sur chaque cellule de la colonne.

Merci.

 

[laurent950]

Re : faire clignoter une cellule selon une condition

Bonjour compteabdou et aussi le forum,

je suis arrivé a faire la macro mais j'i pas compris la condition avec (cellule est < 5 et > -5 et ) je sais pas l'intepreter

j'ai fait simple si les cellule corresponde a = 10 sur une liste de 1 à 10 repeter les cellule clignotte

je vous jouint mon fichier et si vous avez la solution la partie du code a modifier est celle ci

pour la reste cala fonctionne.


C'est juste cette condition a remplacer pour vos donné
If Val(Cells(i + 1, 9)) = 10 Then
c'est tous

ps : tenner moi au courant

merci
laurent

 

[compteabdou]

Re : faire clignoter une cellule selon une condition

bonjour,
merci laurent950 pour ta réponse,

est ce qu'il y a une solution pour éviter que la macro soit appliquée juste sur un fichier bien précis,
dans le cas de Activesheet, à chaque fois que j'ouvre un fichier Excel, la macro s'applique automatiquement sur la colonne de la feuille ouverte.

J'attends votre réponse.

Merci

 

[compteabdou]

Re : faire clignoter une cellule selon une condition

bonjour,

j'ai essayé de voir les autres discussions pour faire clignoter les cellules selon une condition mais je voudrais personnaliser la macro pour qu'elle ne pose pas des problèmes quand j'ouvre un autre fichier et je pense que cela revient à ActiveSheet.

Merci.

 

[Dranreb]

Re : faire clignoter une cellule selon une condition

Bonjour.
C'est pour ce genre de raison que j'utilise le moins possible la méthode Range de Application, la qualifie toujours d'une expression Worksheet, et je qualifie toujour cette dernière d'une expression WorkBook, sauf pour les feuilles de ThisWorkbook, dont j'utilise le CodeName.
ThisWorkbook permet de limiter le traitement aux objets du classeur qui porte la macro.
À+

 

[compteabdou]

Re : faire clignoter une cellule selon une condition

Bonjour,

j'ai essayé d'utiliser ThisWorkBook pour éviter que la macro s'applique sur un autre fichier ouvert mais toujours la même erreur,
voici le code que j'ai mis,

Public Sub Clign()
'ActiveSheet.Unprotect
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
With ThisWorkbook
        fin = Range("I65536").End(xlUp).Row
        For i = 1 To (fin - 1)
            If Val(Cells(i + 1, 9)) < 5 And Val(Cells(i + 1, 9)) > -5 Then
    With .Sheets("subcontracts").Range(Cells(i + 1, 9), Cells(i + 1, 9))
        .Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, 0, 3)
    End With
            End If
        Next i
'.Protect
End With

End Sub
Sub StopClign()
'ActiveSheet.Unprotect
    On Error Resume Next
    Application.OnTime Temps, "Clign", , False
With ThisWorkbook
    .Sheets("subcontracts").Cells.Interior.ColorIndex = 19
'.Protect
End With

End Sub

mais dès que j'ouvre une autre fenêtre une erreur se produit.

Merci.

 

[Dranreb]

Re : faire clignoter une cellule selon une condition

Bonjour.
Évitez autant que possible d'utiliser Range ou Cells sans qualificateur.
Pour Thisworkbook vous pouvez utiliser les noms VBA des feuilles (encore appelé CodeName), ce qui vous évite d'avoir à préciser aussi le classeur.
peut être devriez vous Stopper le clignotelment à la désactivation du classeur et la remettre à l'activation, dans des procédures évènement de ThisWorkbook.
À+

 

[compteabdou]

Re : faire clignoter une cellule selon une condition

Bonjour

merci Dranreb pour votre réponse,

et franchement je suis encore débutant avec excel et je ne sais pas comment modifier le code comme vous le dites.

pourriez vous me montrer comment le faire sur l'exemple cité au dessus.

Merci.