recuperer le nom dans une listbox...

Bonjour, voici

sub procedure_x()
dim i as long
dim recupere as string
dim recherche as string
dim ok as boolean
'
ok = false
recherche = "texte recherché"
for i = 0 to listX.listcount -1
recupere = listX.list(i) ' i = n° de ton enregistrement (départ = 0)
if recherche = trim(recupere) then ' teste le contenu
ok = true
exit for
endif
next i
if ok = false then
msgbox "pas trouvé"
exit sub
endif
' ici = trouvé...
end sub
-----------

"Albator V" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 17d701c4dba4$1d1d1060$a601280a@phx.gbl...

Bonjour,
j'ai deja poser cette question ya quelques jours mais je
n'ai rien retrouve... :-(

donc je voudrais savoir comment recuperer le nom d'un
item d'une listbox...

Merci

* La listBox est-elle sur une feuille, un UserForm ?
* Est-elle issue de la barre d'outils Formulaire ou la barre d'outils Contrôles
?
* A quel moment veux-tu récuperer le nom de l'item sélectionné ?
* Au moment de la sélection ? A près clic sur un bouton ?
* Etc...

PS : Quoiqu'il en soit, pas besoin de bouclette !
AV

eh ben tout une macro pour recuperer un nom ???

pour repondre a toutes tes questions...
ma listbox se trouve ds un userform...
en fait, j'ai 2 listbox, 1 avec les feuilles du classeur
courant, lautre avec les feuilles d'un autre classeur. je
voudrais faire glisser un item dune liste a l'autre en
appyant sur un bouton... donc j'ai besoin de recuperer le
nom du ou des item selectionnés...

-----Message d'origine-----
* La listBox est-elle sur une feuille, un UserForm ?
* Est-elle issue de la barre d'outils Formulaire ou la
barre d'outils Contrôles

?
* A quel moment veux-tu récuperer le nom de l'item
sélectionné ?

* Au moment de la sélection ? A près clic sur un bouton ?
* Etc...

PS : Quoiqu'il en soit, pas besoin de bouclette !
AV


.

Dans le module de l'UF :

Récupération au moment du choix (Dans le module de l'UF )

Private Sub ListBox1_Change()
leChoix = ListBox1.Value
End Sub

AV