Macro d'enregistrement, feuille à feuille
Bonjour,
Je souhaite enregistrer des données d'un tableau présent sur la feuille 1, directement dans la feuille 2.
Cependant j'aimerais que l'enregistrement des données suivantes ne se fasse pas sur les cases de l'enregistrement précédent.
Exemple: si mon première enregistrement ce place dans la case A1, comment faire pour que le deuxième ce place deux case plus bas que la précedente
J'ai déjà un début de code:
Range("B10:B18").Select
Selection.Copy
Sheets("DATA").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Tri-4couleurs").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C11").Select
End Sub
Merci Loris
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Merci de m'avoir répondu!
Oui dans le principe c'est cela.
Mais j'ai besoin de copier une plage entière qui sera toujours pareil, même si des cellules sont vides. Et non sélectionné la case ou je veut commencer mon copier coller.
Merci Loris
Bonjour
Alors, essaie ça :Mais j'ai besoin de copier une plage entière qui sera toujours pareil,
Bye !
Non, toujours pas...
Voici ma macro complète:
Sub Enregistrer()
'
' Enregistrer Macro
'
'
Range("A4:D4").Select
Selection.Copy
Sheets("DATA").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Tri-4couleurs").Select
Range("A8:AT51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATA").Select
Range("A5").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Sheets("Tri-4couleurs").Select
Range("AS51,AR8:AS51,AO8:AP51,AL8:AM51,AI8:AJ51").Select
Range("AJ8").Activate
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
Range( _
"AS51,AR8:AS51,AO8:AP51,AL8:AM51,AI8:AJ51,AF9:AG51,AC8:AD51,Z8:AA51,W8:X51,T8:U51,Q8:R51" _
).Select
Range("R8").Activate
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
Range( _
"AS51,AR8:AS51,AO8:AP51,AL8:AM51,AI8:AJ51,AF9:AG51,AC8:AD51,Z8:AA51,W8:X51,T8:U51,Q8:R51,N8:O51,K8:L51,H8:I51" _
).Select
Range("I51").Activate
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Range( _
"AS51,AR8:AS51,AO8:AP51,AL8:AM51,AI8:AJ51,AF9:AG51,AC8:AD51,Z8:AA51,W8:X51,T8:U51,Q8:R51,N8:O51,K8:L51,H8:I51,E8:F51,B8:C51,C4,D4" _
).Select
Range("D4").Activate
Application.CutCopyMode = False
Selection.ClearContents
End Sub
J'ai besoin d'y ajouter un code qui me permettent d'enregistrer deux ligne en dessous du précédent enregistrement sans modifier grandement ma formule.
Ou bien que la tienne ne demande pas de selectionné la plage avant d'appuyer sur report, mais qu'en appuyant sur report sa envoie toujours A1:C8.
Ou bien que la tienne ne demande pas de selectionné la plage avant d'appuyer sur report, mais qu'en appuyant sur report sa envoie toujours A1:C8.
Alors ça :
Bye !
Oui c'est pas mal je vais essayer çà
Merci
La méthode est bien mais je ne voudrais pas avoir le message, "encore?" . Malheureusement quand je l'enlève l'opération se répète en boucle sans jamais s'arrêter....
Eh bien ça c'est parfait merci beaucoup !!!