Problème de Listbox
Résolu
DGVDR
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
DGVDR Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
DGVDR Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
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
Bonjour,
pas facile d'aligner les infos avec une listbox, des labels iraient mieux
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