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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas