Problème de résupération de valeur d'une ListBox dans une procédure

Code
Option Explicit

Private Sub Label1_Click()

End Sub

Private Sub lbOrientation_Click()

End Sub

Private Sub UserForm_Initialize()
lbOrientation.AddItem "Arc de cercle à Droite"
lbOrientation.AddItem "Arc de cercle à Gauche"
End Sub
[\quote]

Puis j'appelle ma fenêtre à s'ouvrir, dans une procédure d'un module du fichier, pour demander à la personne qui l'utilise

quel type de profil elle utilise avec la commande:

fmListBox.Show
[\quote]

Puis je veux récupérer la valeur qui a été sélectionner. Pour cela j'ai écrit à la suite dans la procédure le code suivant

:

Code
Dim Orientation As String
For i = 1 To fmListBox.ListCount
If fmListBox.Selected(1) = True Then
Orientation = fmListBox.List(1)
Else
Orientation = fmListBox.List(2)
End If
Next i
[\quote]

Le problème est qu'il me sort une erreure de compilation en me surlignant ListCount et en me disant Membre de méthode ou

de données introuvable.

Quelqu'un saurait-il comment je epux faire pour récupérer la valeur qui est sélectionnée dans ma fmListBox, dnas ma

procédure pour utiliser son résultat par la suite.

Merci d'avance de vos réponses.

Cliquez pour agrandir...

Cliquez pour agrandir...

Cliquez pour agrandir...