Deux codes en un : Worksheet_Change

Bonjour à tous,

Je fais appel à vous car j'ai un problème et je ne sais pas comment le régler. J'ai plusieurs Worksheet_Change dans mon code donc celui-ci ne fontionne pas.

D'après ce que j'ai vu sur le forum, il faudrait réunir les deux codes en un seul or je ne sais pas du tout comment.

Pourriez-vous m'aider ?

Vous trouverez ci-dessous le code en question ...

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Range("G13").Value
Case Is = "Annuel"
Sheets("AnalyseAnnuelle").Visible = True
Sheets("RapportFlash").Visible = False

Case Is = "Comparatif"
Sheets("RapportFlash").Visible = True
Sheets("AnalyseAnnuelle").Visible = False

Case Is = ""
Sheets("RapportFlash").Visible = False
Sheets("AnalyseAnnuelle").Visible = False

End Select

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Range("D283").Value
Case Is = "Trame automatique"
Sheets("PrévisionAuto").Visible = True
Sheets("PrévisionVide").Visible = False

Case Is = "Trame vierge"
Sheets("PrévisionVide").Visible = True
Sheets("PrévisionAuto").Visible = False

Case Is = ""
Sheets("PrévisionVide").Visible = False
Sheets("PrévisionAuto").Visible = False

End Select

Vous remerciant d'avance pour votre coopération et compréhension,

Bien à vous,

jj93

Il suffit pas juste de réunir les deux codes?

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Range("G13").Value
Case Is = "Annuel"
Sheets("AnalyseAnnuelle").Visible = True
Sheets("RapportFlash").Visible = False

Case Is = "Comparatif"
Sheets("RapportFlash").Visible = True
Sheets("AnalyseAnnuelle").Visible = False

Case Is = ""
Sheets("RapportFlash").Visible = False
Sheets("AnalyseAnnuelle").Visible = False

End Select

Select Case Range("D283").Value
Case Is = "Trame automatique"
Sheets("PrévisionAuto").Visible = True
Sheets("PrévisionVide").Visible = False

Case Is = "Trame vierge"
Sheets("PrévisionVide").Visible = True
Sheets("PrévisionAuto").Visible = False

Case Is = ""
Sheets("PrévisionVide").Visible = False
Sheets("PrévisionAuto").Visible = False

End Select

End Sub

Bonjour,

Essaie avec :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$G$13" Then
        Select Case Target.Value
        Case Is = "Annuel"
            Sheets("AnalyseAnnuelle").Visible = True
            Sheets("RapportFlash").Visible = False
        Case Is = "Comparatif"
            Sheets("RapportFlash").Visible = True
            Sheets("AnalyseAnnuelle").Visible = False
        Case Is = ""
            Sheets("RapportFlash").Visible = False
            Sheets("AnalyseAnnuelle").Visible = False
        End Select
    End If
    If Target.Address = "$D$283" Then
        Select Case Target.Value
        Case Is = "Trame automatique"
            Sheets("PrévisionAuto").Visible = True
            Sheets("PrévisionVide").Visible = False
        Case Is = "Trame vierge"
            Sheets("PrévisionVide").Visible = True
            Sheets("PrévisionAuto").Visible = False
        Case Is = ""
            Sheets("PrévisionVide").Visible = False
            Sheets("PrévisionAuto").Visible = False
        End Select
    End If
End Sub

A+