Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment remplir une zone de liste déroulante Userform avec tous les noms de feuille dans Excel?

Cet article parle de remplir tous les noms de feuille du classeur actuel dans une zone de liste déroulante de formulaire utilisateur dans Excel.

Remplir une zone de liste déroulante Userform avec tous les noms de feuille avec le code VBA


Remplir une zone de liste déroulante Userform avec tous les noms de feuille avec le code VBA


Le code VBA suivant peut vous aider à insérer tous les noms de feuille du classeur actuel dans une zone de liste déroulante userform. Veuillez faire comme suit.

1. appuie sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez insérer un formulaire utilisateur en cliquant sur insérer > Formulaire utilisateur comme ci-dessous la capture d'écran montrée.

3. Puis dessinez et insérez un contrôle de zone de liste déroulante dans le Userform. Voir la capture d'écran:

4. Cliquez avec le bouton droit de la souris sur la zone de liste déroulante insérée et sélectionnez Voir le code dans le menu contextuel. Voir la capture d'écran:

5. Dans l'ouverture Microsoft Visual Basic pour applications , veuillez copier et coller ci-dessous le code VBA pour remplacer celui d'origine dans la fenêtre Code.

Code VBA: remplissez une zone de liste déroulante Userform avec tous les noms de feuille du classeur actuel

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Notes: Dans le code, ComboBox1 est le nom de la zone de liste déroulante insérée. Veuillez le remplacer par le vôtre.

6. appuie sur le F5 clé pour exécuter le code. Dans le formulaire utilisateur d'ouverture, vous pouvez voir tous les noms de feuille du classeur actuel s'affichent dans la zone de liste déroulante comme ci-dessous capture d'écran:


Répertoriez facilement tous les noms de feuilles dans Excel

Le Créer une liste de noms de feuilles utilité de Kutools pour Excel peut aider à répertorier facilement tous les noms de feuille de calcul du classeur actif dans une nouvelle feuille de calcul dans Excel. Et vous pouvez passer directement à la feuille de calcul correspondante en cliquant sur le nom de la feuille comme illustré ci-dessous.
Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)


Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Raj Pradhan · 3 years ago
    Dear Sir/Madam,
    Thanks for you kind help. I'm a new Lerner of VBA and these article helps me a lot. I have used this code to show all worksheets in a userform combobox. It is perfect. I have a doubt. Can I show those sheet name alphabetically on Userform_Initialize? Though my worksheets are not arranged alphabetically.
    Please guide me how to proceed further with my requirement.
    Thanks,
    R.P
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good Day,
      Sorry for replying so late. The following VBA code can help you solve the problem.

      Private Sub UserForm_Initialize()
      Dim xWSs As Worksheets
      Dim xWS As Worksheet
      Dim xName As String
      Dim xI As Integer
      Dim xRg As Range
      On Error Resume Next

      xName = "StoreWorkSheetsName"

      Application.DisplayAlerts = False

      If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
      Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
      Else
      Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
      End If
      Set xWS = Sheets(xName & "")

      For xI = 1 To Sheets.count - 1
      xWS.Range("A" & xI).Value2 = Sheets(xI).Name
      Next xI
      xI = xI - 1
      Set xRg = xWS.Range("A1:A" & xI)
      ActiveWorkbook.Worksheets(xName).Sort.SortFields.Clear
      ActiveWorkbook.Worksheets(xName).Sort.SortFields.Add Key:= _
      Range("A1:A" & xI), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
      xlSortNormal
      With ActiveWorkbook.Worksheets(xName).Sort
      .SetRange Range("A1:A" & xI)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
      End With

      Me.ComboBox1.Clear
      For i = 1 To xRg.count
      Me.ComboBox1.AddItem xRg.Item(i).Value

      Next
      Me.ComboBox1.Value = ActiveSheet.Name

      xWS.Delete
      Application.DisplayAlerts = True
      End Sub