[vba/Excel] récuperer valeur listbox

Salut

Réponse tardive mais c'est toujours sa:
Chaque n° de ligne sont d'abord inscrit dans des cellules, j'ai pas pu faire autrement
à la limite tu pourra les mettre en cellule A3000 comme ça tu ne les verra pas.

Tu aura juste a double cliquer sur chaque ligne que tu veux

A mettre dans:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'désactivation de l'écran
Application.ScreenUpdating = False

'appel de la macro
'enregistre n° ligne
'dans variable target

Call essai(Target)

End Sub

A mettre dans un module:

Sub essai(Target As Range)

'déclare variable
'target et r sont des valeur de cellules

Dim r As Range

'enregistre la valeur de la cellule double cliqué

Set r = Target

'boucle ajoute valeur
'de ligne si cellule vide

For i = 1 To 2 'ligne 1 a 3
'abscisse variable i, ordonné 1 = A
If Cells(i, 1).Value = "" Then Exit For

Next i

Sheets("feuil1").Cells(i, 1).Value = r.Row

'si les 3 coordonnées sont complétées
If Range("A3").Value <> "" Then

'alors cellule B1 = valeur
'des autres cellules

Range("B1").Value = Range("A1").Value & "/" & Range("A2").Value & "/" & Range("A3").Value

End If

'mise a jour de l'écran activée
Application.ScreenUpdating = True

End Sub