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
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.
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
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
