Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA ListBox multiselection enregistrement dans variable

  • Initiateur de la discussion Initiateur de la discussion vivi4561
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

vivi4561

Guest
Bonjour,

Savez vous comment faire en VBA lorsque j'utilise une ListBox pour entrer les valeurs dans un tableau (la listBox est en mode multiselection) ?

Puis ensuite comment lire les valeurs du tableau ?


Merci d'avance pour votre aide.



Vince
 
Re : VBA ListBox multiselection enregistrement dans variable

Bonjour,

en utilisant une boucle, enfin si j'ai bien compris ta question, exemple ci dessous à adapter :

Code:
Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(i + 1, 1) = ListBox1.List(i, 1)
   End If
Next i

bon après midi
@+

Edition : attention, ici listbox à 2 colonnes..
 
Re : VBA ListBox multiselection enregistrement dans variable

Bjr Pierrot,

Merci pour ta réponse. Enfait je voudrais enregistrer les valeurs sélectionnées de la listBox dans une variable. (je me suis mal exprimé en disant tableau).

Vincent
 
Dernière modification par un modérateur:
Re : VBA ListBox multiselection enregistrement dans variable

Re,

ceci, dans une variable tableau.... pour une listbox à une colonne...
Code:
Dim i As Byte, t() As Variant
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        ReDim Preserve t(0 To i)
        t(i) = ListBox1.List(i)
    End If
Next i
 
Re : VBA ListBox multiselection enregistrement dans variable

Nikel merci bcp à vous 2, Pierrot et Sousou.

2 très bons exemples qui m'ont permis de bien avancer.


Vince
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
18
Affichages
543
Réponses
19
Affichages
762
Réponses
18
Affichages
607
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…