Salut Micka,
Salut l'équipe,
alors, si en plus, on a le feu vert de jmd pour nauséabonder en VBA, on ne va pas se priver, n'est-ce pas?
Un double-clic en 'Feuil2' [E1] ou [G1] déclenche la macro qui affiche le résultat en 'Feuil3'.
Pour les besoins de la cause, j'ai postulé que le terme à inscrire en 'Feuil3' [A...] est le terme à droite de [E1] ou [G1]...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData, tExtract()
Dim iRow%, iCol%, sData As String
Cancel = True
'
If Not Intersect(Target, Union(Range("E1"), Range("G1"))) Is Nothing Then
With Worksheets("Feuil1")
iRow = .Range("A" & Rows.Count).End(xlUp).Row
iCol = .Cells(1, Columns.Count).End(xlToLeft).Column
sData = Target.Offset(0, 1)
tData = .Range("A1").Resize(iRow, iCol).Value
End With
For x = 1 To UBound(tData, 1)
If tData(x, 15) = Target Then
iIdx = iIdx + 1
ReDim Preserve tExtract(iCol, iIdx)
For y = 1 To iCol
tExtract(y - 1, iIdx - 1) = IIf(y = 1, sData, tData(x, y))
Next
End If
Next
With Worksheets("Feuil3")
.Cells.ClearContents
.Range("A1").Resize(iIdx, iCol) = WorksheetFunction.Transpose(tExtract)
.Activate
End With
End If
'
End Sub
A+