Problème de Listbox
Résolu
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
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
-
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 -
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
