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

Chargement Listbox multicolonne plusieurs Bibli

  • Initiateur de la discussion Initiateur de la discussion VIARD
  • 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 !

VIARD

XLDnaute Impliqué
Bonjour à toutes et tous

Pour un chargement listbox multicolonne à un emplacement fixe pas de souci,
tout fonctionne, ici module "Box" avec entête (utilisation RowSource) ok.

Je veux charger une bibli au choix sur la ListBox, et là j'ai un problème avec "List".
Si le chargement est effectué au premier emplacement colonne "A" c'est ok (sur 6 colonnes).
Mais pas au suivant ? Pourtant je n'ai que le numéro de colonne qui change.

Fichier joint, sur l'USF, j'ai une listbox et une combobox pour le choix.
J'ai également placé plusieurs bibli sur la feuille2 avec des données bidons.

J'ai effectué un tas de manip et consulté les posts.

Merci à tous

Jean-Paul
 

Pièces jointes

Re : Chargement Listbox multicolonne plusieurs Bibli

bonjour Viard
col=8 d'où l'erreur
pour corriger mettre i-col+1

Code:
'---------- Affichage ------------
For J = 1 To Nb
    ListBox1.AddItem Cells(3, Col + 1)
    For i = Col To Col + 6
        ListBox1.List(ListBox1.ListCount - 1, i - Col + 1) = Cells(J + 2, i + 1)
    Next i
Next J
End Sub
 
Re : Chargement Listbox multicolonne plusieurs Bibli

Bonjour Bebere, PM02

Merci à tous deux, ça marche superbien

Bebere: je n'avais pas vu (i-col+1), c'est logique mais à force de regardé on ne voit plus rien, merci

PM02: j'aime beaucoup la concision du code, je n'ai pas poussé assez loin la plage, merci également.

Salutation

Jean-Paul
 
Re : Chargement Listbox multicolonne plusieurs Bibli

Rebonjour Bebere

J'ai apporté une petite correction.
(i-col+1) devient (i-col).
sans quoi le remplissage est bizzare.

amicalement

Jean-Paul
 
- 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

M
Réponses
6
Affichages
2 K
max11233
M
G
Réponses
6
Affichages
2 K
Guillaume
G
C
Réponses
2
Affichages
2 K
Chris35
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…