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

Manipulation des listbox

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

Stoopid

XLDnaute Nouveau
Bonjour,

J'ai créé une listbox multi-colonnes (4 ou 5), pouvant contenir un nombre important de données (dans mon cas, pour test, environ une cinquantaine de lignes), une barre de défilement se créer donc automatiquement.

Problème 1:

La première colonne est pré remplie.
En fonction des lignes sélectionnées, la macro remplit les autres colonnes
(boucle if ligne sélectionnée = True then...)

Certaines ligne ne sont pas remplies (les lignes non visibles).
En faisant descendre la barre de défilement et en relançant la macro ces lignes se remplissent.
On dirait donc un bug Excel, ce problème n'intervient que sur les lignes non visibles et en mode pas à pas aucun problème.

Une solution?


Problème 2:

Une macro permet de sélectionner ou de dé-sélectionner l'ensemble des lignes, par contre en mode manuel (pour ne sélectionner que certaines lignes), je ne parviens qu'à sélectionner les lignes les unes après les autres.

Est-il possible de modifier les propriétés de la listbox pour permettre une sélection de plusieurs lignes, par exemple en utilisant la touche shift du clavier, ou en faisant glisser la souris avec le clic gauche enfoncé?

Merci pour votre support 😉

ps: Pas de fichier à vous joindre en exemple dans l'immédiat (fichier sur le pc du taf, pas sous la main ce weekend...), désolé...
 
Trier par date Trier par votes
Re : Manipulation des listbox

Bonjour,

Le plus simple et rapide pour remplir une listbox ayant plusieurs colonnes et beaucoup de données :
En supposant que tu veuilles insérer les données des colonnes A à E de la feuil1 dans le textbox

VB: 
Private Sub UserForm_Initialize()
Dim DerLig As Long, Rg As Range
With Worksheets("Feuil1")
    DerLig = .Range("A:E").Find(What:="*", _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious).Row
    
    Set Rg = .Range("A1:E" & DerLig)
End With

With Me.ListBox1
    .RowSource = ""
    .ColumnCount = Rg.Columns.Count
    .ColumnWidths = "50;50;50;50;50"
    .Clear
    .List = Rg.Value
End With
End Sub


Problème II

En mode création, il y a la propriété du listbox : Multiselect tu as plus d'une possibilité
 
Vote positif 0 Vote négatif
Re : Manipulation des listbox

MichD à dit:
Problème II

En mode création, il y a la propriété du listbox : Multiselect tu as plus d'une possibilité
Cliquez pour agrandir...

Problème 2 résolu:
Merci, en effet c'est tout bête, j'étais en mode "simple", en mode "extended" cela semble fonctionner.

Reste le problème 1.
La première colonne est remplie d'une traite, à partir de données stockées dans une matrice.
Les autres colonnes ne doivent être remplies que si la ligne est sélectionnée, d'où l'utilisation d'une boucle IF.

Cette listbox est alimentée à partir de données sélectionnées dans 1 autre listbox et dans un combobox.
 
Vote positif 0 Vote négatif
Re : Manipulation des listbox

Tu publies un petit fichier tout simple.

A ) Dans une plage de cellules le contenu qui devrait remplir le contrôle Listbox

B ) Que doit contenir le ListBox? Explique ce que tu veux faire exactement?
 
Vote positif 0 Vote négatif
Re : Manipulation des listbox

MichD à dit:
Tu publies un petit fichier tout simple.

A ) Dans une plage de cellules le contenu qui devrait remplir le contrôle Listbox

B ) Que doit contenir le ListBox? Explique ce que tu veux faire exactement?
Cliquez pour agrandir...

MichD je comprends ton code, je sais remplir une liste box, là n'est pas le problème.

Je vais essayer d'être synthétique:

Les ingrédients (tous dans le même userform):

- 1 combobox > tout plein de valeurs
- 1 listbox 2 colonnes > listbox titi> tout plein de valeur
- 1 listbox 4 colonnes > listbox grosminet > uniquement la première colonne (colonne 0) est remplie

La recette:

- sélectionner une ou plusieurs lignes de grosminet (mode multiselect)
- sélectionner 1 ligne de titi

cliquer sur le bouton "ajouter"

les valeurs de titi remplissent les colonnes 2 et 4 de grosminet

- sélectionner une ou plusieurs lignes de grosminet (mode multiselect)
- sélectionner la valeur souhaitée dans le combobox

cliquer sur le bouton "ajouter"

la valeur du combo est affectée à la colonne 3 de grosminet, pour toutes les lignes sélectionnées.

Parfois mon code fonctionne, parfois non (comme dit plus haut certaines lignes ne sont pas remplies) . En mode pas à pas il marche systématiquement.

Problème de mémoire ? (j'ai une mega matrice 5000 lignes x 300 colonnes en variant...)
Ce que je trouve bizarre c'est que les lignes non remplies sont uniquement des lignes non visibles.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Manipulation des listbox

A ) Je suis bénévole! Aide-toi et le ciel t'aidera!

B ) Tu veux que je te ponde l'application qui va bien à ton problème + le code

C ) Je vais essayer d'être synthétique... regarde tout est là, avec un peu d'imagination!

Je passe la main à un plus vaillant!
 
Vote positif 0 Vote négatif
Re : Manipulation des listbox


😉

A) Et je te remercie de m'avoir accordé un peu de ton temps, grâce aux gens comme toi et avec un peu d'entraide, on avance.

B) L'application et le code sont déjà pondus, certes ça bug un peu... Mais ça tourne.

C) Sûr que la solution n'est pas loin, devant mon nez certainement, je ne désespère pas.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Manipulation des listbox

Bon j'ai récupéré un bout de mon code, ce sera plus parlant que mon blabla qui embrouille:


VB: 
Sub paste_mat()
With userform
    For i = 0 To .ListBox_grosminet.ListCount - 1
        If .ListBox_grosminet.Selected(i) = True Then .ListBox_grosminet.List(i, 2) = .ComboBox_mat
    Next
End With
End Sub

VB: 
Sub paste_titi()
Dim titi_ As String
Dim titi_offset As Long
 
With userform
    For i = 0 To .ListBox_titi.ListCount - 1
        If .ListBox_titi.Selected(i) = True Then
            titi = .ListBox_titi.List(i)
            titi_offset = .ListBox_titi.List(i, 1)
        End If
    Next
    For i = 0 To .ListBox_grosminet.ListCount - 1
        If .ListBox_grosminet.Selected(i) = True Then
            .ListBox_grosminet.List(i, 1) = titi
            .ListBox_grosminet.List(i, 3) = titi_offset
        End If
    Next
End With
End Sub

Donc pour résumer, certaines des lignes non visibles à l'écran ne se remplissent pas. Je suis obligé de faire descendre la barre de défilement verticale de ma listbox et de relancer la macro pour remplir ces lignes.
 
Dernière édition:
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

  • Résolu(e)
XL 2016 Adapter hauteur d'un UserForm et d'un Listbox en fonction du contenu
Réponses
8
Affichages
202
halecs93
M
  • Résolu(e)
XL 2013 Feuille protégée avec certaines cellules verrouillées
2
Réponses
19
Affichages
441
Manutela
M
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
652
jeff1494
J
  • Résolu(e)
XL 2019 Problème format recopie ListBox sur un UserForm
Réponses
2
Affichages
107
JLR67
J
  • Question Question
XL 2019 colorier une ligne sur deux mais uniquement les lignes visibles
Réponses
6
Affichages
229
pascal21
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
975
kiko_23
K
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
432
Musbek
M
K
  • Résolu(e)
XL 2016 Filtre et affichage listbox
Réponses
9
Affichages
314
KRUG WOO
K
F
  • Question Question
XL 2016 Fusion 1 onglet de plusieurs fichiers EXCEL
Réponses
1
Affichages
74
chris
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
141
AtTheOne
U
  • Question Question
Autres [RÉSOLU] Comment faire masquer mes plages de cellules vides par macro
2
Réponses
17
Affichages
483
un internaute
U
F
  • Résolu(e)
XL 2019 Power Query - Pivoter avec données = null
Réponses
5
Affichages
120
Cousinhub
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
700
Eric 888
A
  • Question Question
Microsoft 365 problème de remplissage de listbox
Réponses
8
Affichages
276
job75
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
136
SPARKLETOF
S
P
  • Résolu(e)
XL 2019 Masquage et tri.
Réponses
6
Affichages
201
Paulle
P
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
140
ChTi160
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
112
vgendron
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
354
Yogean
Y
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
186
agayet
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…