Afficher tous les éléments d'une listbox dans une Msgbox

Résolu/Fermé

GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 - 4 juin 2013 à 15:39
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 - 5 juin 2013 à 09:02

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 !

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
Afficher les commentaires word - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
4 juin 2013 à 16:09

Bonjour,

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 jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 28
5 juin 2013 à 09:02

Merci ! Super !

Discussions similaires

webcame eton et 838b

Salut, j ai perdu mon CD pour installer ma webcame eton et 838b, s il vous plais , vous pouvez m envoyer votre aide?

Durée d'une diapositive animée

Bonjour,

Je souhaite créer un diaporama entièrement automatisé (sans clic) sous PowerPoint 2010. J'ai donc établi les différent paramètres d'animation (durée, effet d'apparition, de disparition...) pour les titres, photos dans chacune de mes diapos (onglet animation). J'ai également choisi mes transitions entre chaque diapo (onglet transition). Jusqu'ici tout va bien.

Mon souci est la durée de chacune des diapositives. Je souhaiterai que le changement de diapo se fasse directement après la dernière animation de la diapo sans laps de temps.
Voici le problème :

Dans l'onglet transition, j'ai indiqué "passer à la diapositive suivante après ...

additionner nombres dans cellules avec texte

Bonjour à tous,
Je vous contacte car je n'ai pas trouvé la solution à mon problème.
J'ai vu des posts qui s'en rapprochaient mais pas réussi à mettre en œuvre :/

J'ai deux colonnes contenant texte et chiffres et souhaite "simplement" additionner les chiffres afin de contrôler si les totaux sont bons.
Voilà ce que j'ai :
Existe [3] N'existe pas [223]
Existe [185] N'existe pas [41]
Existe [10] N'existe pas [216]
Existe [21] N'existe pas [205]
Existe [6] N'existe pas [220]
Existe [6] N'existe pas [220]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]

Cellules en surbrillance selon une TextBox

Bonjour à tous,

Voici mon problème : j'ai une liste d'utilisateurs dans une TextBox. Chaque utilisateur est lié à plusieurs références listées sur la feuille 'Principal'.
Est-il possible de mettre en surbrillance (police en gras ou coloriage temporaire de la cellule) toutes les références liées à un utilisateur choisi dans la TextBox ?

Une copie d'écran pour me faire comprendre (enfin j'espère !)

Merci pour votre aide !
Wyrgle

remettre toutes les colonnes et les lignes masquées

Bonjour,
Je travaille avec Excel 2010 sous XP Pro. On a déjà vu dans d'autres sujets, la façon de masquer toutes les colonnes et les lignes vides et inutiles de la façon suivante :
Petit rappel :
se positionner sur la 1ère colonne à supprimer
Ctrl + Maj + Flèche vers la droite puis clic droit et Masquer pour les colonnes
se positionner sur la première ligne à supprimer
Ctrl + Maj + Flèche vers le bas puis clic droit et Masquer pour les lignes.
Pour moi, je n'ai besoin de voir qu'un certain nombre de lignes et de colonnes. Question d'esthétisme pour ne voir qu'une plage qui sert d'interface avec boutons et macros. J'aurais pu passer par une ouv...