Discussion :

[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 lorsqu'on active après 21h et avant 15h.
Merci pour vos réponses.
Bob

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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

[bobafric]

Bonjour,mon message précédent était
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 lorsqu'on active après 21h et avant 15h.

la réponse de JNP:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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

Le problème c'est que dans mon classeur lorsque j'entre ce code sur la feuille j'ai le message suivant:
Erreur de compilation
Nom ambigu détecté :worksheet_change
peut être que 'est à cause du code précédent sur la même feuille qui commence par:

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim plage As Range, cel As Range
Dim LastLig As Long

Le début des codes étant les mêmes j'ai supprimé le code existant et ça fonctionne.

Merci pour votre aide
Bob