Modification de macro

klorane · 31 Janvier 2006

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 · 31 Janvier 2006

Bonsoir klorane

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

Code:

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 · 31 Janvier 2006

Bonjour Charly et merci.

C'est super.

A bientôt
Bastien

Modification de macro

klorane

XLDnaute Occasionnel

Pièces jointes

Charly2

Nous a quittés en 2006

Klorane

Guest

Discussions similaires