listbox

arno44

XLDnaute Nouveau
Bonsoir,

je suis actuellement en train de m'inspirer d'un fichier pour l'adapter à mes besoins et je rencontre des difficultés pour l'affichage du contenu de ma listbox.
La 2ème complication est que je souhaite faire un tri alphabétique dans celle-ci.

Je vous joint mon ébauche avec des explications pour que vous puissiez m'expliquer mes erreurs.

Merci d'avance

Arnaud
 

Pièces jointes

  • Classeur1.zip
    37.8 KB · Affichages: 48
  • Classeur1.zip
    37.8 KB · Affichages: 45
  • Classeur1.zip
    37.8 KB · Affichages: 43

fanfan38

XLDnaute Barbatruc
Re : listbox

Bonjour
Dans la macro box1 de l'userform tu as: Nb = Range("E2").Value
or e2 est vide...(si tu mets 10 en e2 la listbox ce remplie...)
je te conseille: nb=range("a65536").end(xlup).row
soit la dernière ligne non vide de ton tableau...
Si tu mets les données dans un autre classeur tu dois, dans cette même macro, préciser le nom du classeur
Données = Workbooks("nomclasseur").Sheets("nomfeuille").Range("B" & i + 2).Value

A+ François
 

arno44

XLDnaute Nouveau
Re : listbox

je rencontre encore des problèmes pour la saisie dans le tableau, pour ce qui est de l'utilisation de 2 fichiers je verrais après sinon merci pour vos réponses.
 

Pièces jointes

  • test.zip
    38.2 KB · Affichages: 24
  • test.zip
    38.2 KB · Affichages: 29
  • test.zip
    38.2 KB · Affichages: 27

fanfan38

XLDnaute Barbatruc
Re : listbox

bonjour
Dans la macro commandbutton28 de l'userform1 tu utilises une variable z
Z = 6 'Ligne de départ sur la "Feuil1" => Sheets("Feuil1").Range("B" & Z).Select
Mais cette variable ne change pas...
Si tu veux ecrire à la suite il faut mettre z=range("a65536").end(xlup).row

A+ François
 

Statistiques des forums

Discussions
312 113
Messages
2 085 420
Membres
102 886
dernier inscrit
eurlece