Réunir deux codes

thomasdu40 · 19 Avril 2011

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.

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

Pierrot93 · 19 Avril 2011

Re : Réunir deux codes

Bonjour,

peut être ainsi :

Code:

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
  On Error GoTo 0
    If Intersect(Target, Range("C6:C511")) Is Nothing Then: Exit Sub
        ThisWorkbook.Worksheets("ConstatsBRC").Visible = xlSheetHidden
        ThisWorkbook.Worksheets("ConstatsIFS").Visible = xlSheetHidden
End Sub

bon après midi
@+

tototiti2008 · 19 Avril 2011

Re : Réunir deux codes

Bonjour thomasdu40,

un truc comme ça ?

Private Sub Worksheet_Change(ByVal Target As Range)
If not Intersect(Target, Range("C6:C511")) Is Nothing Then
ThisWorkbook.Worksheets("ConstatsBRC").Visible = xlSheetHidden
ThisWorkbook.Worksheets("ConstatsIFS").Visible = xlSheetHidden
end if
If Not Intersect([D6501], Target) Is Nothing Then
On Error Resume Next
Target.Font.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex
End If
On error goto 0
End Sub

Edit : Arf, Pierrot, content de voir que l'on est toujours sur des longueurs d'ondes compatibles

Pierrot93 · 19 Avril 2011

Re : Réunir deux codes

Re,

j'ai édité le message précedent, 1ère ligne du code erronée...

thomasdu40 · 19 Avril 2011

Re : Réunir deux codes

Bonjour Pierrot93,

Merci pour ton aide. Cela fonctionne parfaitement.

Bonne après-midi.

Réunir deux codes

thomasdu40

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

thomasdu40

XLDnaute Occasionnel

Discussions similaires