Problème affichage pour valeur récupérée d'une liste déroulante ActiveX

Bonjour,

J'ai un peu continué mon Excel mais j'ai un dernier problème.

Lorsque je choisis un Robot 1 à 5 dans mon userform, il est censé afficher celui-ci en K10. Il affiche bien quelque chose quand je lui demande mais un 0 à la place du "Robot 1" par exemple si c'est la valeur par défaut.

Function TestDialogListe()

Dim lstInput As Integer

' Création du UserForm
With New frmDiagList
    ' Titre de la fenêtre
    .Caption = "Ma saisie personnalisée"
    ' Valeur par défaut dans la zone de texte
    .lstInput.Value = "Robot 1"
    ' Rend visible le UserForm
    .Show
    ' Test de la saisie
    If .DiagOK Then
         'si DiagOK = True => on a validé
        MsgBox "Valeur saisie : " & .lstInput.Value
        Sheets("2020").Range("K" & "10").Value = lstInput
    Else
        ' si DiagOK = False =>  la saisie a été annulée
        MsgBox "Saisie annulée"

    End If

End With

Unload frmDiagList

End Function

Merci par avance pour votre aide

Bonjour,

Sans fichier pour tester ... un essai ...

("2020").Range("K" & "10").Value = .lstInput.value

ric

Super merci beaucoup, ça a marché. Oui c'est vrai que c'est plus pratique.

Pourquoi fallait-il répéter le value alors que je l'avais déjà mis juste avant ?

Bonjour,

Tu utilises un With > lstInput est un objet de frmDiagList > il faut au minimum ajouter le point .lstInput

ric