VBA Macro pour débutant

Kirseth · 21 Juin 2019

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 · 21 Juin 2019

Bonjour Kirseth,

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

VB:

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

A+

job75 · 21 Juin 2019

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

VB:

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

Kirseth · 21 Juin 2019

Excellent.
Merci beaucoup

VBA Macro pour débutant

Kirseth

XLDnaute Nouveau

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Kirseth

XLDnaute Nouveau

Discussions similaires