Recopier des cellules

[Caninge]

Bonjour a tous

je remarque que le forum a changé de visage.

Je n'ai pas réussi à m'inscrire comme nouveau membre.

J'espère que je vais pouvoir poser ma question:

comment opérer pour recopier des cellules placées horizontalement
dans une feuille et les recopier dans une autre feuille mais verticalement sans utiliser le fonction transpose .

Merci [file name=Recopie.zip size=4691]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recopie.zip[/file]

 

[galopin01]

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

 

[Caninge]

Bonjour Galopin


Je te remercie

Ces macros sympas me seront bien utiles

a +