couleur des cellules

[bobafric]

Bonjour,
Je voudrai changer la couleur d’une cellule lorsqu’on tape un nombre en fonction de l’heure du PC.
Exemple :
Une cellule du champ A1 – F10 doit être rouge lorsqu’on l’active entre 15h et 21h, sinon elle doit rester dans l’état initial.
Merci pour vos réponses.
Bob

 

[JNP]

Re : couleur des cellules

Bonjour Bobafric 🙂,
Vous avez demandé la police, ne quittez pas 😛 !
Ça ressemble à du flicage, ton truc 😀...
Alors n'oublie pas qu'il suffit de désactiver les macros (ou de changer l'heure du PC) pour que ça ne marche pas 😉...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:F10")) Is Nothing Then Exit Sub
Select Case Hour(Now())
Case 15 To 20
Target.Interior.ColorIndex = 3 ' Rouge
Case Else
Target.Interior.ColorIndex = 43 'Vert
End Select
End Sub

Devrait fonctionner. Je suis parti sur un Select Case, comme ça, tu peux rajouter par exemple Case 14 pour mettre de l'orange 🙄...
Pour définir tes couleurs, il suffit de mettre une cellule en couleur et d'utiliser

Sub test()
MsgBox Selection.Interior.ColorIndex
End Sub

qui te donnera l'index à utiliser.
Bon WE 😎

 

[bobafric]

Re : couleur des cellules

Salut JNP
Il y a un problème avec l'heure je suppose (now) car lorsque il est 21h et plus les cellules changent de couleur, et ce n'est pas ce que je veux.
Il faut qu'elles se colorisent seulement entre 15h et 21h.
Merci de te pencher sur mon problème et ne t'inquiète pas je ne surveille personne.
A plus Bob

 

[JNP]

Re : couleur des cellules

Re 🙂,

Salut JNP
Il y a un problème avec l'heure je suppose (now) car lorsque il est 21h et plus les cellules changent de couleur, et ce n'est pas ce que je veux.
Il faut qu'elles se colorisent seulement entre 15h et 21h.
Merci de te pencher sur mon problème et ne t'inquiète pas je ne surveille personne.
A plus Bob

Tecniquement, c'est pas logique 😕...
Hour(Now()) renvoie :
à 14h59 : 14
de 15h00 à 20h59 : 15 à 20
à partir de 21h00 : 21 et +
Et mes tests (faits avec Minute(Now() pour voir rapidement le résultat 😛) fonctionnaient très bien 😱...
Par contre, si c'est le fait de repasser en vert après 21h, il suffit de supprimer Case Else

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:F10")) Is Nothing Then Exit Sub
Select Case Hour(Now())
Case 15 To 20
Target.Interior.ColorIndex = 3 ' Rouge
End Select
End Sub

Pour vérifier la validité de Hour(Now()), tu peux tout simplement utiliser

Sub test()
MsgBox Hour(Now())
End Sub

Si par contre, tu as fait des tests en bidouillant ton horloge (je vois pas comment à 17h01, tu as pu vérifier autrement après 21h 😀), là, je ne garanti rien, pour qu'ils soient 100% valables, il faudrait modifier l'heure, puis redémarrer la machine, et personnellement, je ne m'amuserait pas avec ça, certains fichiers et applis sont directement impactés par un changement d'horloge trop important, et tu risque de fusiller d'autre choses sans rapport avec Excel 😱...
Bon courage et dit moi 😎

 

[bobafric]

Re : couleur des cellules

Salut JNP
Merci d'avoir passé du temps sur mon problème, j'ai eu la solution sur un autre forum je te la donne.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, c As Range
Set plage = Intersect(Target, Range("A1:F10"))
If Not plage Is Nothing Then
   For Each c In plage
      If c <> "" And Hour(Now) >= 15 And Hour(Now) < 21 Then
         c.Interior.ColorIndex = 34
      Else
         c.Interior.ColorIndex = xlNone
      End If
   Next c
End If
End Sub

Je vais quand même tester la tienne.
A plus
Bob