Bonjour,
Par formule : (à mettre en H12 et tirer dans tous les sens...)
=SI(GAUCHE(TEXTE(H$11;"jjj");3)=$C$11;$C12;
SI(GAUCHE(TEXTE(H$11;"jjj");3)=$D$11;$D12;
SI(GAUCHE(TEXTE(H$11;"jjj");3)=$E$11;$E12;
SI(GAUCHE(TEXTE(H$11;"jjj");3)=$F$11;$F12;
SI(GAUCHE(TEXTE(H$11;"jjj");3)=$G$11;$G12;"")))))
sinon en macro à mettre dans le module de la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [B4] Then test
End Sub
Private Sub test()
Dim Arr, i, k
For i = 3 To 7
Arr = Range(Cells(12, i), Cells(24, i)).Value
For k = 8 To 38
If Left(Cells(11, k).Text, 3) = Cells(11, i) Then
Range(Cells(12, k), Cells(24, k)) = Arr
End If
Next
Next
End Sub
A+