bonjour,
une 'tite macro ?
Sub Test()
For i = 1 To 4
ActiveSheet.Cells(8 + i, 5).FormulaR1C1 = '=OFFSET(Chat!R6C[-3],0,' & i & ')'
Next
End Sub
Et la même sans décalage...
Sub Test()
For i = 1 To 5
Cells(7 + i, 5).FormulaR1C1 = '=Chat!R[-' & (1 + i) & ']C[' & (i - 4) & ']'
Next
End Sub
(Solutions adaptées à ton exemple...)
Ok ?
Message édité par: galopin01, à: 26/02/2005 13:45