Bonjour a tou(te)s,
Etant néophyte en VBA (En fait j'en ai jamais fait ), je cherche un petit coup de pouce.
Je veux réaliser une macro simple, mais quelque chose m’échappe.
J'enregistre la macro suivante (un simple copié-collé) sur plusieurs lignes, et je l'affecte a un bouton.
Sub Lissage()
'
' Lissage Macro
'
'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B4:Q4").Select
Selection.Copy
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B5:Q5").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=6
ActiveSheet.Paste
End Sub
Toutefois a mon grand désespoir, elle s'applique sur toutes les pages de mon classeur.
je souhaiterai qu'elle ne concerne que : Feuil4 (Data)
Si je la copie dans la feuil4, et la sors de thisworbook, ça ne fonctionne pas.
Qu'est ce que je oublie ?
En vous remerciant par avance.
Etant néophyte en VBA (En fait j'en ai jamais fait ), je cherche un petit coup de pouce.
Je veux réaliser une macro simple, mais quelque chose m’échappe.
J'enregistre la macro suivante (un simple copié-collé) sur plusieurs lignes, et je l'affecte a un bouton.
Sub Lissage()
'
' Lissage Macro
'
'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B4:Q4").Select
Selection.Copy
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("B5:Q5").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=6
ActiveSheet.Paste
End Sub
Toutefois a mon grand désespoir, elle s'applique sur toutes les pages de mon classeur.
je souhaiterai qu'elle ne concerne que : Feuil4 (Data)
Si je la copie dans la feuil4, et la sors de thisworbook, ça ne fonctionne pas.
Qu'est ce que je oublie ?
En vous remerciant par avance.