Report du contenu d'une ListeBox dans une case sélectionné

Comme expressément stipuler dans le titre, j'aimerai reporter les informations d'une colonne (toujours la même) de ma ListeBox vers une case sélectionné de ma feuille.

En sélectionnant cette ligne (image ci-dessus), je souhaiterai que soit inscrit "AI" dans la case sélectionnée AC7.

J'étais partis sur cette base pour réaliser cette fonction en choisissant d'abord la cellule, mais le résultat n'est pas au rendez-vous.

Sub ExportLbx()
    Dim Tbl, n%, k%
    With ListBox1
        n = .ListCount: k = .ColumnCount: Tbl = .List
    End With
    Worksheet("résultat").Range("AC7").Resize(n, k).Value = Tbl
End Sub

Dans l'attente de votre réponse,

Cordialement.

Bonjour,

Un test ci-joint qui fonctionne.

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
    ActiveCell = ListBox1.Column(0, i)
End If
Next i
End Sub

La prochaine fois essaies de joindre un fichier.

Il faut d'abord tester chacune des lignes voir s'il elle est sélectionnée, ici tu ne comptes que le nombre de ligne à l'aide de ListCount mais tu n'en fais rien. Ensuite le columncount ne sert à rien, tu sais dors et déjà que ça va être la valeur de la colonne 0 que tu veux renvoyer.

Bonne soirée.