Liste de validation

[CAMPEN]

Bonjour à tous,

J'ai besoin d'une aide sur une macro qui permet de m'afficher des feuilles à partir d'une liste de validation. Je souhaite créer une seconde liste de validation dans la même feuille mais je ne sais pas à quel niveau de la macro la modification doit se faire. Le code est le suivant :

Public F As String
Private Sub Worksheet_Activate()
Sheets(F).Visible = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
F = CStr(Target.Value)
Sheets(F).Visible = True
Application.Goto Reference:=Worksheets(F).Range("A1")
End If
End Sub


En pièce jointe un exemple (je souhaite rajouter la liste B) !

Merci à tous de votre aide.

 

[BOISGONTIER]

Re : Liste de validation

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Or Target.Address = "$B$5" Then
        F = CStr(Target.Value)
        Sheets(F).Visible = True
        Application.Goto Reference:=Worksheets(F).Range("A1")
    End If
End Sub

JB

 

[CAMPEN]

Re : Liste de validation

Merci JB pour ton aide précieuse !

arnaud