Ajouter cellules dans un listbox

Bonsoir Luc,
Regarde avec ceci, à mettre dans le module de ta Form :

Private Sub UserForm_Initialize()
Dim Fe As Worksheet
Dim Plage As Range
Dim I As Integer
Set Fe = Worksheets("Feuil1")
With Fe
Set Plage = .Range(.[A1], .[IV1].End(xlToLeft))
End With
For I = 1 To Plage.Count
ListBox1.AddItem Plage(I)
Next I
Set Plage = Nothing
Set Fe = Nothing
End Sub

ps : Si tu veux te servir de ta feuille comme base de données, je te
conseillerai de mettre tes Champs non pas en lignes comme c'est le cas mais
en colonne, ce qui est plus logique car tu ne pourras pas dépasser 256 noms
contre 65536 en ligne.

Hervé.

"Luc" <l.girard@equipe-lca.com> a écrit dans le message news:
b808c520.0308060951.7cb2af29@posting.google.com...

Bonjour à tous,

J'ai une feuille qui contient les données suivantes:
A B C D E
1 JEAN MARC LUC DAVID
2 25 ANS 22 ANS 27 ANS 30 ANS
3
4
Je voudrais qu'à l'ouverture de mon userform on puisse lire dans mon
textbox:Jean, Marc, Luc, David et les autres qui suivront. De sorte
que mon utilisateur puisse en sélectionné un et récupérer par les
suite les informations qui s'y rattachent tel son age, adresse, etc...

Merci à ceux qui prendront le temps de m'aider

Bonsoir,

Dans la procédure d'initialisation de ton UserForm utilise un code de ce genre :

Private Sub UserForm_Initialize()
dercell = Range("A1").End(xlToRight).Address
ListBox1.List = Application.Transpose(Range("A1:" & dercell).Value)
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tous,

J'ai une feuille qui contient les données suivantes:
A B C D E
1 JEAN MARC LUC DAVID
2 25 ANS 22 ANS 27 ANS 30 ANS
3
4
Je voudrais qu'à l'ouverture de mon userform on puisse lire dans mon
textbox:Jean, Marc, Luc, David et les autres qui suivront. De sorte
que mon utilisateur puisse en sélectionné un et récupérer par les
suite les informations qui s'y rattachent tel son age, adresse, etc...

Merci à ceux qui prendront le temps de m'aider

-----Message d'origine-----
Bonjour à tous,

J'ai une feuille qui contient les données suivantes:
A B C D E
1 JEAN MARC LUC DAVID
2 25 ANS 22 ANS 27 ANS 30 ANS
3
4
Je voudrais qu'à l'ouverture de mon userform on puisse
lire dans mon

textbox:Jean, Marc, Luc, David et les autres qui
suivront. De sorte

que mon utilisateur puisse en sélectionné un et récupérer
par les

suite les informations qui s'y rattachent tel son age,
adresse, etc...

Merci à ceux qui prendront le temps de m'aider
.

Pour l'associer, il faut lui mettre l'adresse qu'il faut

dans "RowSource".
Exemple (tu marque : "le nom de la feuille"!A1:E1)

J'espère que ça ira !!!