Discussion :

[target111]

Bonjour,

J'aurais aimé faire clignoter les cellules de S5 à S500 à l'ouverture de cette feuille sous la condition >0 <5 de couleur rouge j'ai essayé plusieurs codes mais sans résultat .

Merci d'avance pour vos réponses

Cordialemrnt

[SfJ5Rpw8]

bonsoir,

montre nous le code entre balise [code] [/Code]

[target111]

Bonsoir,
merci pour la réponse rapide

ce code dans la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
 Clignote
End Sub

celui ci dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Clignote()
  If ActiveSheet.Name = "Achats_Jours" Then
   Application.OnTime Now + TimeSerial(0, 0, 1), "Clignote"
   ThisWorkbook.Sheets("Achats_Jours").Range ("S5;S900") > 0 < 5 - ThisWorkbook.Sheets("Achats_Jours").Range("S5;S900")
  End If
End Sub

d'ailleurs tu reconnaitras ce code qui est le tiens il viens d'une recherche sur le forum
et Jai une erreur sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Achats_Jours").Range ("S5;S900") > 0 - ThisWorkbook.Sheets("Achats_Jours").Range("S5;S900")

erreur bizarre d'ailleurs cela dis ne peux continuer en mode arrêt même si je ferme le fichier et l'ouvre â nouveau

je préfererais que le chiffre clignote plutôt que de le mettre en rouge

Cordialement

[SfJ5Rpw8]

bonjour,

tu devrais relire la discussion initiale ..

je ne comprends pas ce qu'est censé faire ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   ThisWorkbook.Sheets("Achats_Jours").Range ("S5;S900") > 0 < 5 - ThisWorkbook.Sheets("Achats_Jours").Range("S5;S900")

[target111]

Bonjour,

Merci pour ta réponse j'essaye de faire clignoter les cellules S5 a S900 avec le critère >0 et <5 j'ai mis 900dans le cas ou la liste s'allongerai. C'est vrai j'ai lu juste le titre de plus le vba je ne connais pas. La feuille que j'ai mis est une partie d'un fichier qui me permet de faire les achats de la Cie ou je travaille. Ce fichier je l'aie construit à base de macros que j'ai essayé d'adaptés au besoin du fichier mais ce n'est pas optimisé du tout dés fois je n'arrive pas à faire ce que je veux alors je prends des morceaux de code. j'essaye de les comprendre mais après 10 heures de travail je n'aie plus l'esprit ouvert je ne veux déranger personne je vais essayé de trouvé quelque chose Merci

Cordialement