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

Gametexx

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
Bonjour Gametexx, bonjour le forum,

Peut-être comme ça :

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal