Les codes vba qui s'entrechoquent
Bonjour
Dans ma fenetre visual basic la feuille 1, j’avais un code :
Code:
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:
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
Les codes vba qui s'entrechoquent
merci mercatog tu es un vrai champion et en plus hyper rapide
A bientôt
Bob
