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

Récupérer données distinctes ds listbox à 2 colonnes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lio59
  • 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 !

S'inscrire
L

Lio59

XLDnaute Nouveau
Bonjour!

Quelle serait la syntaxe permettant de charger dans une listbox à 2 colonnes des données qui ne se présentent pas sous la forme d'un tableau.
Je souhaite récupérer :
- dans la colonne 1 de la listbox le NOM des feuilles (feuille active jusqu'à la dernière)
- dans la colonne 2, le contenu d'une cellule (A4, par exemple) de chacune des feuilles précédentes.

J'y arrive en mettant ttes les données dans 2 colonnes de la première feuille par exemple et arrive à récupérer ces 2 colonnes. Mais ce n'est pas joli,joli!

J'arrive à rajouter ces données ds ma listbox mais une en dessous les unes des autres!
Code: 
Private Sub UserForm_Initialize() 
Dim FeuilRest As Integer
For FeuilRest = ActiveSheet.Index To Sheets.Count   
Me.ListBox1.AddItem Sheets(FeuilRest).Name 
Me.ListBox1.AddItem Sheets(FeuilRest).Range("M4").Value
Next FeuilRest
End Sub

Sinon, j'ai du mal avec la syntaxe List (dans l'aide),
Listbox1.List(FeuilRest,0)
ListBox1.List(FeuilRest,1)

si quelqu'un pouvait m'aiguiller sur la syntaxe!
Merci
Lio59
 
Trier par date Trier par votes
Re : Récupérer données distinctes ds listbox à 2 colonnes

Bonjour,
Peut-être comme ceci
Code: 
Private Sub UserForm_Initialize()
Dim FeuilRest As Integer
For FeuilRest = ActiveSheet.Index To Sheets.Count
    ListBox1.AddItem Sheets(FeuilRest).Name
    ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets(FeuilRest).Range("A4")
Next FeuilRest

End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Récupérer données distinctes ds listbox à 2 colonnes

Merci kjin, mais j'ai déjà testé cette solution! Je viens de la reprendre au cas où...., mais non, ma colonne 2 de la listbox reste vide!

zut!

je n'ai pas envie de passer par 2 colonnes masquées! Je tourne.... en rond!

Lio59
 
Vote positif 0 Vote négatif
Re : Récupérer données distinctes ds listbox à 2 colonnes

Merci kjin!

Ben oui j'étais super clair dans mes explications, ai bien tout expliqué. Mais c'est vous qui n'avez pas su vous déplacer pour :
prendre ma souris
faire un clic droit de ts les caractères
copier
coller
et surtout remplacer l'adresse de la cellule!
Vous auriez pu me dire qu'il fallait changer cette adresse
Moi je n'avais rien dans cette cellule
Donc la colonne 2 était vide

Voilà c'est clair, non! Quand on est stupide (pour ne pas dire ...) c'est pour longtemps voire pour la vie!!


Merci bcp kjin pour votre aide super rapide et votre patience!
Merci!
Lio59
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
567
Excellearning
E
T
  • Question Question
Listbox 14 colonnes
Réponses
6
Affichages
743
TAL
T
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
752
Messan
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
861
eCHO
E
B
  • Question Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
862
cp4
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
962
vgendron
  • Résolu(e)
XL 2013 Userform recherche - Listbox double clic renvoi vers cellule
Réponses
7
Affichages
1 K
CGU2022.
  • Résolu(e)
Power Pivot Intégrer objectifs mensuels dans données de vente
Réponses
5
Affichages
756
bencheuch
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
  • Question Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
2 K
patricktoulon
W
  • Question Question
XL 2019 Peupler une listbox à partir de plusieurs feuilles ayant un nom spécifique.
Réponses
7
Affichages
1 K
WG95
W
  • Résolu(e)
XL 2010 Impossible de lire la propriété .List
Réponses
6
Affichages
2 K
cathodique
L
  • Question Question
XL 2016 Ajouter des colonnes dans une listbox
Réponses
7
Affichages
2 K
Laurent97310
L
E
  • Question Question
Microsoft 365 ListBox TextBox
Réponses
5
Affichages
2 K
ChTi160
T
  • Question Question
ListBox interactive
Réponses
5
Affichages
2 K
tabernake
T
  • Question Question
XL 2016 Résultat d'un listbox à deux colonnes
Réponses
10
Affichages
905
frederio
  • Question Question
Microsoft 365 UserForm / Combobox / ListBox / erreur d'execution 13
Réponses
2
Affichages
1 K
_Thierry
D
  • Question Question
XL 2019 Tri automatique d'une listbox après filtrage dans une combobox
Réponses
11
Affichages
4 K
BOISGONTIER
T
  • Résolu(e)
XL 2019 Format de date dans ListBox US (MM/JJ/AAAA) à changer en FR (JJ/MM/AAAA).
3 4 5
Réponses
71
Affichages
8 K
job75
  • Question Question
Listbox qui ne se rempli pas ????
Réponses
4
Affichages
1 K
Menibelus
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…