Modification de macro

  • Initiateur de la discussion Initiateur de la discussion klorane
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

klorane

XLDnaute Occasionnel
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
 

Pièces jointes

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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
247
Réponses
21
Affichages
2 K
Réponses
2
Affichages
556
Retour