Liste déroulante et feuilles masquées

[CAMPEN]

Bonjour à tous,

Petit exercice du jour !
J'ai une liste déroulante qui avec une macro me renvoie vers la feuille sélectionnée. Quand je masque mes feuilles (cf. fichier ci-joint), la macro attachée à ma liste déroulante bug. Existe t-il une solution pour que ma liste déroulante fonctionne également avec des feuilles masquées ?
Merci par avance à tous de votre aide.

 

[RENAUDER]

Re : Liste déroulante et feuilles masquées

Bonjour,
J'ai testé cela et ça fonctionne

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$1" Then
        F = CStr(Target.Value)
        Sheets(F).Visible = True
        Application.Goto Reference:=Worksheets(F).Range("A1")
    End If
End Sub

 

[Robert]

Re : Liste déroulante et feuilles masquées

Bonjour Campen, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$1" Then
  F = CStr(Target.Value)
    [COLOR=red]Sheets(F).Visible = True[/COLOR]
    Application.Goto Reference:=Worksheets(F).Range("A1")
  End If
End Sub

Édition :

Bonjour Éric on s'est croisés

 

[pierrejean]

Re : Liste déroulante et feuilles masquées

bonjour CAMPEN

peut-etre comme ceci

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

Edit: Salut a tous

 

[CAMPEN]

Re : Liste déroulante et feuilles masquées

Bonjour,
J'ai testé cela et ça fonctionne

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$1" Then
        F = CStr(Target.Value)
        Sheets(F).Visible = True
        Application.Goto Reference:=Worksheets(F).Range("A1")
    End If
End Sub

Eric,
Merci infiniment ! C'est exactement ce qu'il me fallait. Je peux continuer à bosser sereinement ...
Bonne apm