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

charger dans ma ListBox1, toute la feuille pas seulement une colonne

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

demarer

Guest
bonjour

j'utilise le code ci-dessous ce qui me permet de charger dans ma listeBox la ligne B


Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.ListBox1.Clear
i = 1
Do While ThisWorkbook.Worksheets("feuille1").Range("B" & i) <> ""
UserForm1.ListBox1.AddItem ThisWorkbook.Worksheets("feuille1").Range("B" & i)
i = i + 1
Loop

Load UserForm1

Mon problème : je souhaite charger dans ma ListBox1, toute la feuille 1 pas seulement une colonne pourriez vous m'orienter.

Merci
 
Trier par date Trier par votes
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bonjour


Vous pouvez essayer ceci :

Code: 
Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear
ligne_max = ThisWorkbook.Worksheets("Feuil1").Rows(65000).End(xlUp).Row
col_max = ThisWorkbook.Worksheets("Feuil1").Columns(250).End(xlToLeft).Column
For Each cellule In ThisWorkbook.Worksheets("Feuil1").Range(Cells(1, 1), Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next


End Sub

Cordialement

Olivier
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

je ne sais pourquoi mais l'execution se bloque à ce niveau là
For Each cellule In ThisWorkbook.Worksheets("feuil1").Range(Cells(1, 1), Cells(ligne_max, col_max))
Cliquez pour agrandir...

en me donant l'erreur suivante : erreur d'execution '1004' , Erreur définie par l'application ou par l'objet
je n'arrive vraiment pas à trouver pk?
merci
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

j'ai changé le nom de la feuille, en oubliant de le remettre : feuil1 => feuille1
du coup, je pense que ligne_max et col_max renvoient 0 ?

il suffit de remettre "feuille1" partout à la place de "feuil1"

Cdt
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

bonjour

feuille1 ou feuil1 ce n est cela le problème car c'est juste un exemple , mes feuilles ont d'autre noms 😉 , je sais faire
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bon, de toute façon mon code n'est pas terrible, il faudra écrire ceci :

Code: 
Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear
ligne_max = ThisWorkbook.Worksheets("Feuil1").Rows(65000).End(xlUp).Row
col_max = ThisWorkbook.Worksheets("Feuil1").Columns(250).End(xlToLeft).Column
For Each cellule In ThisWorkbook.Worksheets("Feuil1").Range(ThisWorkbook.Worksheets("Feuil1").Cells(1, 1), ThisWorkbook.Worksheets("Feuil1").Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next


End Sub

voire ceci :

Code: 
Private Sub CommandButton1_Click()

Dim i As Long

UserForm1.ListBox1.Clear

With ThisWorkbook.Worksheets("Feuil1")
ligne_max = .Rows(65000).End(xlUp).Row
col_max = .Columns(250).End(xlToLeft).Column
For Each cellule In .Range(.Cells(1, 1), .Cells(ligne_max, col_max))
    If cellule.Value <> "" Then
        UserForm1.ListBox1.AddItem cellule.Value
    End If
Next
End With
End Sub

Ensuite, si le problème persiste, il va falloir enquêter...
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Salut

et ainsi (liste à 1 colonne)?
Code: 
Private Sub CommandButton1_Click()
  Dim D_li As Long, D_col As Integer, C_lule As Range
  UserForm1.ListBox1.Clear
  D_li = Cells.SpecialCells(xlCellTypeLastCell).Row
  D_col = Cells.SpecialCells(xlCellTypeLastCell).Column
  For Each C_lule In Range(Cells(1, 1), Cells(D_li, D_col))
    If Not IsEmpty(C_lule) Then UserForm1.ListBox1.AddItem C_lule
  Next
  UserForm1.Show
End Sub
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

salut

j'ai réussi à trouver le même résultat mais pas de la même manière.

mon code aindi que le tien ne permettent pas d'afficher mes donnees sous forme de matrice (tableau) mais se sont des données dans la m^me colonne.

par exemple :
nom prenom age
laporte laurent 45

s'affiche dans ma listBox dela façon suivante :

nom
prenom
age
laporte
laurent
45


Merci 😀
 
Vote positif 0 Vote négatif
Re : charger dans ma ListBox1, toute la feuille pas seulement une colonne

Bonjour Demarrer,
ben oui tu joins un fichier et tu auras la réponse souhaité.
Il ne sert à rien de remplir la listbox si tu ne paramètre ps ne serais ce que le nombre de colonnes!!!
alors fichier joint et tu auras des réponses
a+
papou 🙂
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
917
MGH
M
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
921
Mody200
M
  • Question Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
636
Jojo973
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
C
  • Résolu(e)
XL 2021 Alimenter Listbox si colonne 3 contient un mot précis
Réponses
5
Affichages
786
Claudinedu13
C
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
S
  • Question Question
XL 2013 Comment charger une combobox avec le nom des dossiers
Réponses
2
Affichages
506
patricktoulon
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
2 K
TooFatBoy
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
698
vgendron
M
  • Question Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
1 K
job75
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
1 K
eCHO
E
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
T
  • Question Question
XL 2019 Débute en vba, exécuter mon code dans une cellule précise
2
Réponses
22
Affichages
1 K
telemarrk
T
L
  • Résolu(e)
XL 2019 VBA erreur de débutant dans une boucle snifff
Réponses
2
Affichages
637
Lionel69890
L
  • Question Question
XL 2019 Combobox depuis une autre feuille
Réponses
11
Affichages
2 K
ChTi160
R
  • Question Question
Microsoft 365 Couleur de fond de textbox [CLOTURE]
Réponses
2
Affichages
917
romubzh35
R
M
  • Résolu(e)
XL 2016 VBA - Condition plage cellule feuille 1 par rapport a une colonne en feuille 2
Réponses
2
Affichages
623
Maxime26
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…