Bonjour,
Essai à étudier :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Tsort(), n%, i%, resp$
On Error GoTo Fin
If Not Intersect(Target, [Entrée]) Is Nothing Then
On Error GoTo 0
n = Target.Row - 1
With [Entrée]
resp = .Cells(n, 1)
ReDim Tsort(1 To .Columns.Count - 2, 1 To 3)
For i = 1 To UBound(Tsort, 1)
Tsort(i, 1) = Replace(.Cells(0, i + 2), "date fin ", "")
Tsort(i, 2) = resp
Tsort(i, 3) = .Cells(n, i + 2)
Next i
End With
With Worksheets("tableau_sorties")
.Range("A1").CurrentRegion.Offset(2).ClearContents
.Range("A3").Resize(UBound(Tsort, 1), 3).Value = Tsort
.Activate
End With
Cancel = True
End If
Fin:
End Sub
Double-clic dans le tableau entrées, le tableau sortie est alimenté avec la ligne cliquée.
La base Entrées est nommée Entrée : nom dynamique en lignes et colonne (la base peut s'étendre dans les deux sens.
Noter que la 1re colonne de Sortie est alimentée par la ligne d'en-tête d'Entrée après enlèvement de "date fin ".
Cordialement.