ScowllRow ou non c'est pareil

[Trinitybarb]

Bonjour,

Un collège m'a donné cette programmation pour faire quelques ajustement :

Private Sub CommandButton1_Click()
'
Range("C1010").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.ScrollRow = 4151
ActiveWindow.ScrollRow = 3985
ActiveWindow.ScrollRow = 3487
ActiveWindow.ScrollRow = 3155
ActiveWindow.ScrollRow = 2740
ActiveWindow.ScrollRow = 2242
ActiveWindow.ScrollRow = 1661
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 1
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G9:H9").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Moi j'ai pris cette programmation et j'ai enlevé tous les ActiveWindow.ScrollRow et la programmation fait la même chose.

A quoi sert exactement ScrollRow ?? Est-ce nécessaire.

bye bye et merci d'avance.

Trinitybarb

 

[jeanpierre]

Re : ScowllRow ou non c'est pareil

Bonjour Trinitybarb,

Non, cela ne sert à rien, c'est le résidu des actions faites avec l'ascenseur lors de manipulations en macro enregistrement.

Bon après-midi.

Jean-Pierre

 

[Trinitybarb]

Re : ScowllRow ou non c'est pareil

Super un gros merci.

bye