au final j'ai pas reussi a le faire par macro mais je suis passe par le tri de Excel
ce qui donne
Sub affecterplace()
Columns("B:B" ).Select
Range("B2" ).Activate
Selection.Insert Shift:=xlToRight
k = 0
For i = 4 To 152 Step 4
k = k + 1
Sheets("Tamponbis" ).Select
Range("C2:EY22" ).Select
Selection.Sort Key1:=Cells(3, i), Order1:=xlDescending, Key2:=Cells(3, i + 3) _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
For ii = 3 To 22 Step 1
plc = Sheets("Tamponbis" ).Cells(ii, 1)
eq = Sheets("Tamponbis" ).Cells(ii, 3)
For iii = 4 To 23 Step 1
Sheets("Evolution" ).Select
If Trim(Sheets("Evolution" ).Cells(iii, 2)) = Trim(eq) Then
ieq = iii
GoTo suite1
End If
Next iii
suite1:
Sheets("Evolution" ).Cells(ieq, k + 2) = plc
Next ii
Next i
End Sub
Message édité par 86vomito33 le 16-03-2009 à 15:27:15