VBA Macro pour débutant

[Kirseth]

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.

 

[job75]

Bonjour Kirseth,

En VBA il est généralement inutile de sélectionner, votre macro peut s'écrire plus simplement :

Sub Lissage()
Feuil4.Range("B4:Q4").Copy Feuil4.Range(Feuil4.Range("B5:Q5"), Feuil4.Range("B5:Q5").End(xlDown))
End Sub

A+

 

[job75]

Pour votre apprentissage, le code précédent peut aussi s'écrire :

Sub Lissage()
With Feuil4.Range("B5:Q5")
    .Rows(0).Copy .Parent.Range(.Rows, .End(xlDown))
End With
End Sub

 

[Kirseth]

Excellent.
Merci beaucoup 🙂