Microsoft 365 Liste déroulante

[Philippe17]

Bonsoir à toutes et à tous,

Possible de créer une liste déroulante pour choisir une feuille ? Pour l'instant, j'ai des textes hypertextes,
Merci pour vos réponses,

Philippe

 

[Dranreb]

Bonsoir.
Cette procédure dans le module ThisWorkbook créerait une liste des noms de feuille nommée LstFeuil" utilisable dans une liste de validation :

Private Sub Workbook_Open()
   Dim T(), Obj As Object, L As Integer
   ReDim T(1 To Me.Sheets.Count, 1 To 1)
   For Each Obj In Me.Sheets
      L = L + 1: T(L, 1) = Obj.Name
      Next Obj
   Me.Names.Add "LstFeuil", T
   End Sub

 

[Dranreb]

Remarque: je ne suis pas parvenu à utiliser le nom dans une liste de validation.
Alors j'ai fait :

Private Sub Workbook_Open()
   Dim T() As String, Obj As Object, L As Integer
   ReDim T(1 To Me.Sheets.Count)
   For Each Obj In Me.Sheets
      L = L + 1: T(L) = Obj.Name
      Next Obj
   With Feuil1.[G5].Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
          xlBetween, Formula1:=Join(T, ",")
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .ShowInput = True
      .ShowError = True
      End With
   End Sub

Serait peut être plus simple avec une ComboBox ActiveX.

 

[Gégé-45550]

Bonsoir à toutes et à tous,

Possible de créer une liste déroulante pour choisir une feuille ? Pour l'instant, j'ai des textes hypertextes,
Merci pour vos réponses,

Philippe

Bonsoir Philippe17, Dranreb, le forum
Une possibilité en utilisant les fonctions Excel 4.0.
Voir le gestionnaire de noms.
Cordialement,

 

[Philippe17]

Bonjour à tous,
Merci pour vos réponses, mais ça ne me va pas, merci pour vos propositions,
Bonne journée à toutes et à tous,

Philippe

 

[riton00]

Bonjour,

Peut-être comme cela!

Slts

 

[Philippe17]

Bonjour TooFatBoy & riton00,
Merci pour vos réponses, TooFatBoy, je vais essayer par curiosité, mais j'ai la solution avec riton00 (je viens de comprendre la procédure) c'est vraiment ce que je désirais, je vous remercie deux pour votre aide,

Bonne journée à toutes et à tous,

Philippe

 

[TooFatBoy]

Merci pour vos réponses, TooFatBoy, je vais essayer par curiosité, mais j'ai la solution avec riton00 (je viens de comprendre la procédure) c'est vraiment ce que je désirais, je vous remercie deux pour votre aide,

La réponse de Riton correspond à l'idée que je proposais (c'est pour ça que j'ai supprimé ma réponse), à ceci près qu'il n'utilise pas une macro pour remplir un TS, mais sinon pour le reste c'est la même chose.

 

[Philippe17]

Bonjour à toutes et à tous,

Je relance la conversation pour un complément, lorsque je sélectionne un mois, je vais sur l'onglet que je veux, mais mon menu déroulant est sur un autre mois, possible que ce soit sur le même mois que l'onglet ? Merci pour vos réponses,

Bonne journée à toutes et à tous,

Philippe

 

[Gégé-45550]

Bonjour à toutes et à tous,

Je relance la conversation pour un complément, lorsque je sélectionne un mois, je vais sur l'onglet que je veux, mais mon menu déroulant est sur un autre mois, possible que ce soit sur le même mois que l'onglet ? Merci pour vos réponses,

Bonne journée à toutes et à tous,

Philippe

Regarde la pièce jointe 1196069

Bonjour,
Une proposition en PJ.
Cordialement,

 

[riton00]

Bonjour,

Autre essai avec un UserForm une fois lancé va rester afficher dans toute les feuilles

Slts

 

[Philippe17]

Bonjour Gégé-45550 & riton00,
Merci pour votre aide et vos réponses, bien moins compliqué pour moi la solution de Gégé-45550 que je valide, mais un grand merci à vous deux,
Bonne après midi à toutes et à tous,

Philippe