Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment remplir un ComboBox Userform avec tous les noms de feuille dans Excel?

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

Remplir un ComboBox Userform avec tous les noms de feuille avec le code VBA


Lister facilement tous les noms de feuilles dans Excel

Cliquez Entreprise > Feuille > Créer une liste de noms de feuille pour facilement lister tous les noms de feuille de calcul dans une nouvelle feuille de calcul dans Excel. Et vous pouvez directement passer à la feuille de calcul correspondante en cliquant sur le nom de la feuille.

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Lire la suite Téléchargez l'essai gratuit maintenant


Remplir un ComboBox 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 en cours dans une zone de liste modifiable userform. S'il vous plaît 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, s'il vous plaît insérer un Userform en cliquant sur insérer > Userform comme ci-dessous capture d'écran montré.

3. Ensuite, 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 sur la zone de liste déroulante insérée, puis sélectionnez Voir le code dans le menu contextuel. Voir la capture d'écran:

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

Code VBA: remplir un ComboBox de formulaire utilisateur avec tous les noms de feuilles du classeur en cours

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

Note: Dans le code, ComboBox1 est le nom de la zone de liste déroulante insérée. S'il vous plaît changer à celui de votre choix.

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


Articles connexes:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 1 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 months 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