Problème de Listbox

Résolu/Fermé
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - 19 nov. 2014 à 16:46
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - 20 nov. 2014 à 09:33
Bonjour,

Je sollicite votre aide pour un soucis de Listbox

Vous trouverez ci-joint mon fichier de travail : https://www.cjoint.com/?0KtqWUNmyLl

Commencer par aller dans "Visuel" dans l'encadré fournisseur sur la page d'accueil.

Apparait un Userform

Ma listbox du bas (Contact), ne fonctionne pas totalement puisqu'elle ne m'affiche pas l'information du téléphone sensée être dans la 4eme colonne de la listbox.

Information se trouvant dans la 10eme colonne de l'onglet "Contacts".

Le mot de passe de mon code est "unzo"

Merci de votre aide,

DGVDR

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 nov. 2014 à 17:05
Bonjour,

    With Sheets("Contacts")
Listboxcontact.AddItem .Cells(i, 7) 'nom
Listboxcontact.List(Listboxcontact.ListCount - 1, 1) = .Cells(i, 8) ' fonction
Listboxcontact.List(Listboxcontact.ListCount - 1, 2) = .Cells(i, 9) '@mail
Listboxcontact.List(Listboxcontact.ListCount - 1, 3) = .Cells(i, 10) 'Tel
End With


pas facile d'aligner les infos avec une listbox, des labels iraient mieux
0
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
20 nov. 2014 à 09:33
C'est parfait f894009,

Ca marche avec la Listbox et en effet je n'avais pas pensé à des labels, mais ça serait bien plus simple ( pas de problème de taille de colonne)

Merci beaucoup,

Sujet résolu,

DGVDR
0