Chargement Listbox multicolonne plusieurs Bibli

[VIARD]

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

 

[Bebere]

Re : Chargement Listbox multicolonne plusieurs Bibli

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

'---------- 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

 

[PMO2]

Re : Chargement Listbox multicolonne plusieurs Bibli

Bonjour,

Essayez la pièce jointe où les modifications sont cernées par des ####

 

[VIARD]

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

 

[VIARD]

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