Bonjour
Dans ma fenetre visual basic la feuille 1, j’avais un code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim plage As Range, cel As Range
Dim LastLig As Long
 
If Target.Column <> 1 And Target.Count > 1 Then Exit Sub
 
LastLig = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Set plage = Sheets("Feuil1").Range("A4:A" & LastLig)
 
Set cel = plage.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
 
If Not cel Is Nothing Then
Target.Offset(0, 1) = cel.Offset(0, 1) & " " & cel.Offset(0, 2)
End If
 
End Sub
J’ai rajouté un second code à la suite, pour teinter des cellules selon une fourchette d’heure ci-dessous


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
Ce second code fonctionne bien lorsqu’il est seul sur la feuille 1, je l'ai testé avec succès en supprimant le premier code , mais lorsque les deux codes sont à la suite ça ne fonctionne pas.
Que faut-il faire sachant que je ne peux supprimer le premier et que je voudrais intégrer le second.
Merci d’avance Bob