Afficher tous les éléments d'une listbox dans une Msgbox
Résolu
GTA54
Messages postés
414
Date d'inscription
Statut
Membre
Dernière intervention
-
GTA54 Messages postés 414 Date d'inscription Statut Membre Dernière intervention -
GTA54 Messages postés 414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'arrive à lister le nom de tous les onglets de ma feuille active dans une listbox. Maintenant j'aimerais qu'une Msgbox apparaisse et me montre cette liste lorsque je clique sur un bouton.
Ma macro pour obtenir les noms d'onglets :
Private Sub CommandButton1_Click()
ListBox1.Clear
'je parcours chq feuille du classeur
For Each sh In Worksheets
'si la feuille est visible je met son nom dans ma listbox
If sh.Visible = True Then Me.ListBox1.AddItem sh.Name
Next sh
End Sub
En espérant avoir été clair. Merci !
J'arrive à lister le nom de tous les onglets de ma feuille active dans une listbox. Maintenant j'aimerais qu'une Msgbox apparaisse et me montre cette liste lorsque je clique sur un bouton.
Ma macro pour obtenir les noms d'onglets :
Private Sub CommandButton1_Click()
ListBox1.Clear
'je parcours chq feuille du classeur
For Each sh In Worksheets
'si la feuille est visible je met son nom dans ma listbox
If sh.Visible = True Then Me.ListBox1.AddItem sh.Name
Next sh
End Sub
En espérant avoir été clair. Merci !
A voir également:
- Afficher tous les éléments d'une listbox dans une Msgbox
- Photoshop elements gratuit - Télécharger - Retouche d'image
- Afficher appdata - Guide
- Afficher calendrier outlook dans google agenda - Guide
- Word afficher les commentaires dans la marge - Guide
- Afficher les modifications word - Guide
1 réponse
Bonjour,
un facon de faire:
Bonne suite
un facon de faire:
Private Sub CommandButton1_Click()
Dim tableau As String
ListBox1.Clear
'je parcours chq feuille du classeur
For Each sh In Worksheets
'si la feuille est visible je met son nom dans ma listbox
If sh.Visible = True Then
Me.ListBox1.AddItem sh.Name
End If
Next sh
'Les index des Listbox commencent par zéro
For i = 0 To ListBox1.ListCount - 1
tableau = tableau & ListBox1.List(i) & "-"
Next i
MsgBox "liste: " & tableau
End Sub
Bonne suite
GTA54
Messages postés
414
Date d'inscription
Statut
Membre
Dernière intervention
29
Merci ! Super !
