Liste déroulante et feuilles masquées

CAMPEN · 18 Avril 2008

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 · 18 Avril 2008

Re : Liste déroulante et feuilles masquées

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

Code:

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 · 18 Avril 2008

Re : Liste déroulante et feuilles masquées

Bonjour Campen, bonjour le forum,

Essaie comme ça :

Code:

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 · 18 Avril 2008

Re : Liste déroulante et feuilles masquées

bonjour CAMPEN

peut-etre comme ceci

Code:

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 · 18 Avril 2008

Re : Liste déroulante et feuilles masquées

RENAUDER à dit:

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

Code:

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

Liste déroulante et feuilles masquées

CAMPEN

XLDnaute Junior

Pièces jointes

RENAUDER

Nous a quitté

Robert

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

CAMPEN

XLDnaute Junior

Discussions similaires