Microsoft 365 Liste déroulante

Dranreb

XLDnaute Barbatruc

• 30 Avril 2024

• #2

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 :

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Avril 2024

• #3

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

Code:

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.

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 30 Avril 2024

• #4

Philippe17 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Lister Feuilles.xlsm

  18.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

Supporter XLD

• 30 Avril 2024

• #5

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

Philippe

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 30 Avril 2024

• #6

Bonjour,

Peut-être comme cela!

Slts

 

Pièces jointes

• affiche_onglet_par_liste_deroulante.xlsm

  27.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

Supporter XLD

• 30 Avril 2024

• #7

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Avril 2024

• #8

Philippe17 à dit:

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,

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

Supporter XLD

• 2 Mai 2024

• #9

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

 

Pièces jointes

• Janvier.xlsm

  20.9 KB · Affichages: 2

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 2 Mai 2024

• #10

Philippe17 à dit:

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

Cliquez pour agrandir...

Bonjour,
Une proposition en PJ.
Cordialement,

 

Pièces jointes

• Janvier.xlsm

  29.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

riton00

XLDnaute Impliqué

• 2 Mai 2024

• #11

Bonjour,

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

Slts

 

Pièces jointes

• Choix-feuilles onglets avec UserForm.xlsm

  28.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Philippe17

XLDnaute Occasionnel

Supporter XLD

• 2 Mai 2024

• #12

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

 

Vote positif 0 Vote négatif