Discussion :

[Bib0ucH]

Bonjour à tous,
Qui pourrait me donner la significaton de ce petit morceau de code svp?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Range("A2:B200")
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTop Bottom, _
   DataOption1:=xlSortNormal
ActiveWindow.SmallScroll down:=24
Range("D42").Select
ActiveWindow.SmallScroll Down:=-51
Range("D16").Select

Ce code ne veut peut être rien dire en dehors de son contexte, toujours est il que je ne le comprend pas

[Zetophe]

Bonjour,

il s'agit tres probablement d'une macro enregistré, chaque étape manuelle est écrite en VBA, comme le fait de descendre le scrolling (ActiveWindow.SmallScroll down:=24) puis de selectionner une cellule (Range("D42").Select) puis de remonter le scrolling (activeWindow.SmallScroll Down:=-51 )et d'en selectionner une autre (Range("D16").Select) etc ...

[Bib0ucH]

Ok donc il s'agit bien d'un code créé par l'enregistreur de macro.

Merci beaucoup