Bonjour
Code dans un Module (Code origine Soft pour excel pratique)
Function RechercheMultiples(ValeurCherchée As String, MatriceCherche, MatriceTrouve, Optional Seprator As String) As String
Dim c, i As Long
If Separator = "" Then Separator = "-"
For Each c In MatriceCherche
i = i + 1
If ValeurCherchée = c Then
If RechercheMultiples = "" Then
RechercheMultiples = MatriceTrouve(i)
Else
RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
End If
End If
Next c
End Function
Suite de quoi, formule en B5 à incrémenter vers la droite et vers le bas
=SI(ESTERREUR(RechercheMultiples($A5;INDIRECT("Planning!$B$"&EQUIV(B$4;Planning!$A:$A;0)&":$K$"&EQUIV(B$4;Planning!$A:$A;0));Planning!$B$3:$K$3;""));"";RechercheMultiples($A5;INDIRECT("Planning!$B$"&EQUIV(B$4;Planning!$A:$A;0)&":$K$"&EQUIV(B$4;Planning!$A:$A;0));Planning!$B$3:$K$3;""))
Je suis en excel 2003, tu changeras la formule si besoin.
cordialement