Modification de macro

[klorane]

Bonsoir à tous,

je joins à ce message une feuille excel dans laquelle j'ai une macro rattachée au bouton1 qui me recopie la valeur de la cellule E3 de la feuille 1 dans une cellule de feuille2.

Comme vous pourrez le voir, cette macro me recopie les valeurs les unes derriere les autres de gauche à droite.

Il faudrait que cette macro ne travaille plus de façon horizontal mais quelle me fasse le meme travail de façon vertical (de haut vers le bas) j'ai bien essayé de modifier des paramètres mais ça ne fonctionne pas.

Qui pourrait m'aider?

Merci à tous.

Bastien [file name=exemple_20060131002741.zip size=6134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060131002741.zip[/file]

Message édité par: klorane, à: 31/01/2006 00:27

 

[Charly2]

Bonsoir klorane

Sans trop toucher à la macro, tu peux écrire :

Sub Bouton1_QuandClic()
'
Dim Cel As Range
Dim DeltaLigne As Long
'
  Application.ScreenUpdating = False
  
  Range('E3').Value = Range('E3').Value * 2 '?
  
  Set Cel = Sheets(Feuil2).Range('A65536').End(xlUp)
  If Cel ‹› '' Then DeltaLigne = 1
  Cel.Offset(DeltaLigne, 0) = Feuil1.Range('E3')
  
  Application.ScreenUpdating = True

End Sub

Bonne nuit et A+

 

[Klorane]

Bonjour Charly et merci.

C'est super.

A bientôt
Bastien