Discussion :

[vinc44]

bonjour , j'ai creer un formulaire avec des listes deroulantes et j'ai creer des feuille avec des donnes dessus
Je voudrai maintenant introduire les donnees mise sur les feuilles les mettre dans la barre deroulante et que lorsque j'apuuie sur la petite fleche sur le cote de la liste que les donnees deroules et que je puisse selectionner l'une dentre elle
merci de repondre svp

[jmh51]

Bonjour,

Tu peux essayer un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Userform1.Listbox1.rowsource=sheets("data").range("a1:b10)

Mais après avoir sélectionné une data, tu fais quoi ?

Le mieux serait d'aller lire le tutoriel à ce sujet, c'est très bien fait, et on apprend beaucoup de choses (mais pas tout...)

[vinc44]

en fait ce que je veux faire c'est recuper toute une colonne d'une feuille secondaire et la mettre dans mon formulaire(liste deroulante) et voir toutes les donnes qui etais dans ma colonne de la feuille
Au pire tu n'aurait pas une adresse ou un moyen que je te montre le code???

[jmh51]

Je ne comprends pas bien ce que tu veux faire, et tu peux publier ton code dans ce forum...

[vinc44]

je vous joint mon fichier pour que vous voyer mon probleme , je veux en fait mettre les donnes des feuilles pieces , emplacement , nombre_pieces dans les liste deroulante qui sont prevu dans le formulaire mais moi lorsque je deroule mais liste deroulante et bien elle sont vides

[laetitia]

bonjour vinc44 jmh51 le forum. suppose les donnees sur feuille3 sur colonne A il faut adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_initialize()
  Dim t As Variant
  With Sheets("feuil3")
   t = .Range("a1", .Cells(Rows.Count, "a").End(xlUp))
   ComboBox1.List = t
  End With
End Sub

[vinc44]

je ne comprend pas la ligne t=??? pourrai tu me lexpliquer s'il te plais
et je ne comprend pas tout ton code pourrai tu me le faire comprendre stp

[laetitia]

re, que dit la variable t

t= de la cellule a1 jusqu'a la derniere cellule non vide de la colonne a

si ta liste n'est pas dynamique on peut ecrire comme cela si tu connais la plage

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
t = .Range("a1:a10")
ComboBox1.List = t

[vinc44]

j'ai essayer de rentrer le code que vous m'aver donner mais il me trouve pile une erreur sur la ligne que je viens de rentrer , j'aimerai vous montrer mon code et mon projet pour que vous voyer l'erreur que j'ai mais je ne vois pas comment faire a moins que vous ayez msn?

[laetitia]

re,il faudrait voir ton code comment tu as ecris cela... tu as remarque que j'utilise l'instruction with comme j'ai comprise les donnees sont sur une autre feuille le pb..vient peut être de la??? je reponds pas au message prive en dehors du forum sorry!!

[vinc44]

et comment on fai pour mettre le code ou alors envoyer mon fichier??? pour que tu vois d'ou vient l"erreur et que tu puisse ouvrir mon fichier, j'ai reussi a tenvoyer le fichier tu va pouvoir voir l'erreur quil me fait

[laetitia]

re ,vinci je viens d'ouvrir ton fichier je travaille sous excel 2003 en general passer sous 2007 oblige a passer sous un autre systeme d'exploitation d'ou l'importance de de preciser la version d'excel utilisee.. hormis cela j'ai regardee rapide ton userform tu l'ouvres sur la feuille BATEAU ou autre d'ou with !!
autrement cela parait pas trop complique a realiser
au pire si pas de reponse d'un autre forumeur(e) je regarderais demain soir pas trop de temps a moi .mes cours me prennent beaucoup de temps

[vinc44]

daccord merci beaucoup car si je n'arrive pas a avoir les donnes dans la liste deroulante je ne peux pas aller plus loin donc c'est pour cela

[Qwazerty]

Salut les gens, 'tite Leti
Comme je te l'ai dis dans ton autre poste (...vive le multiposting) l'utilisation de vba n'est pas necessaire ici aux vues de ce que tu demandes.
Lorsque tu vas sur ta combobox et que tu regardes ses propriete (touche F4), tu y trouveras RowSource.
2 cas de figure

1er cas: tu connais ta plage de cellule qui reste toujours la même, tu met alors directement cette plage (ex BATEAU!A2:A11)

2eme cas: le nombre de ligne peut varier, la solution est de créer une étiquette dynamique dans ton tableau excel, puis d'y faire référence dans ta listbox
exemple pour la listebox NomDeLaPiece
Dans Excel, tu vas dans menu Insertion->Nom, dans la fenêtre qui s'ouvre tu renseigne comme suit

Nom dans le classeur :
Liste_NomPiece

Fait référence à:
=DECALER(BATEAU!$D$2;0;0;NB.SI(BATEAU!$D:$D;"<>")-1;1)

Ensuite tu cliques sur 'OK'

Maintenant tu vas dans VBA, sur ta combobox, dans la propriété RowSource tu mets Liste_NomPiece.

Et voila c'est fait normalement.
Pour plus d'explication sur les etiquettes dynamique outre les tuto qui doivent déjà exister, regarde ce post

Le VBA c'est bien, mais faut pas réinventer la roue a chaque fois
A++
Qwaz