<VBA> comment afficher la séléction d'une liste déroulante dans une cellule ?

[Gametexx]

Bonjour, j'ai une question concernant un code en VBA. Voilà j'ai 3 feuilles, une dans laquelle je lance mon application, une qui contient la liste des paramètres et une dans laquelle je veux que ca s'affiche. Je lance mon userform puis je voudrais qu'un élément sélectionné dans la liste des paramètres s'affiche dans la cellule A1

Voici mon code je ne vois pas pourquoi il ne se passe rien :

Private Sub BtnOK_Click()


Dim Rep%, i%






For i = 0 To ListeEnergies.ListCount - 1
If Sheets("Paramétrages").ListEnergies.Selected(i) = True Then

Sheets("Feuil8").Range("A1").Value =Sheets("Paramétrages").ListEnergies.Selected(i)


End If
Next i
end sub

 

[Robert]

Bonjour Gametexx, bonjour le forum,

Peut-être comme ça :

Private Sub BtnOK_Click()
Dim I As Integer

For I = 0 To ListeEnergies.ListCount - 1
    If Me.ListeEnergies.Selected(I) = True Then
        Sheets("Feuil8").Range("A1").Value = Me.ListeEnergies.List(I)
        Exit For
    End If
Next I
Unload Me
End Sub