Comment remplir une ComboBox de UserForm avec tous les noms d'onglets dans Excel ?

Cet article explique comment remplir tous les noms d'onglets du classeur actuel dans une ComboBox de UserForm dans Excel.

Remplir une ComboBox de UserForm avec tous les noms d'onglets à l'aide de code VBA

Remplir une ComboBox de UserForm avec tous les noms d'onglets à l'aide de code VBA

Le code VBA suivant peut vous aider à insérer tous les noms d'onglets du classeur actuel dans une ComboBox de UserForm. Veuillez procéder comme suit.

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, veuillez insérer une UserForm en cliquant sur Insertion > UserForm comme le montre la capture d'écran ci-dessous.

3. Ensuite, dessinez et insérez un contrôle ComboBox dans la UserForm. Voir la capture d'écran :

4. Cliquez avec le bouton droit sur la ComboBox insérée, puis sélectionnez Afficher le code dans le menu contextuel. Voir la capture d'écran :

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

Code VBA : Remplir une ComboBox de UserForm avec tous les noms d'onglets 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

Remarque : Dans le code, ComboBox1 est le nom de la ComboBox insérée. Veuillez le changer pour correspondre au vôtre.

6. Appuyez sur la touche F5 pour exécuter le code. Dans la UserForm qui s'ouvre, vous pouvez voir que tous les noms d'onglets du classeur actuel sont affichés dans la ComboBox comme le montre la capture d'écran ci-dessous :

Articles connexes :

• Comment copier la valeur d'une ComboBox vers la cellule active dans Excel ?
• Comment afficher le format de date dans la sortie d'une ComboBox dans Excel ?
• Comment ouvrir une feuille de calcul spécifique à partir de la valeur sélectionnée dans une ComboBox dans Excel ?
• Comment empêcher ou désactiver la saisie dans une ComboBox dans Excel ?
• Comment sortir d'une ComboBox avec la touche Tab pour sélectionner une cellule spécifique dans Excel ?