Discussion :

[bobafric]

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

[mercatog]

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
18
19
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
    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)
ElseIf Not Intersect(Target, Range("A1:F10")) Is Nothing Then
    For Each cel In Intersect(Target, Range("A1:F10"))
        If cel <> "" And Hour(Now) >= 15 And Hour(Now) < 21 Then
            cel.Interior.ColorIndex = 34
        Else
            cel.Interior.ColorIndex = xlNone
        End If
    Next cel
End If
End Sub

[bobafric]

merci mercatog tu es un vrai champion et en plus hyper rapide
A bientôt
Bob