thomasdu40
XLDnaute Occasionnel
Bonjour,
J'ai les deux codes suivants qui ne peuvent fonctionner car ce sont les mêmes événementielles. Peut-on les réunir ?
Merci.
J'ai les deux codes suivants qui ne peuvent fonctionner car ce sont les mêmes événementielles. Peut-on les réunir ?
Merci.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6:C511")) Is Nothing Then: Exit Sub
ThisWorkbook.Worksheets("ConstatsBRC").Visible = xlSheetHidden
ThisWorkbook.Worksheets("ConstatsIFS").Visible = xlSheetHidden
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([D6:D501], Target) Is Nothing Then
On Error Resume Next
Target.Font.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex
End If
End Sub