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.