VBA excel Résolu/Fermé

Question

Bonjour, pour un projet que j'ai à faire, j'ai dû récupérer une macro déjà quze je souhaite simplifier (ce que j'ai deja commencer a faire.
Cette macro décalle toutes les données de 2 tableaux vers la gauche (la colonne la plus a gauche disparait donc tu tableau et celle de droite est effacée).
Toutefois je ne comprend pas certaines choses dans cette macro et j'aimerai que l'on me les explique.

Voici la macro:
    
    Sheets("P1").Select
    ActiveWindow.SmallScroll Down:=-54
    Sheets("P1").Range("B1").Value = Sheets("P1").Range("C1:N31").Value
    ActiveWindow.SmallScroll Down:=12
    Sheets("P1").Range("B34").Value = Sheets("P1").Range("C34:N53").Value
    ActiveWindow.SmallScroll Down:=-24
    Range("M1").Select
    Selection.AutoFill Destination:=Range("M1:N1"), Type:=xlFillDefault
    Range("M1:N1").Select
    Range("N2:N3").ClearContents
    Range("N13:N14").ClearContents
    Range("N24:N25").ClearContents
    Range("N35:N36").ClearContents
    Range("N46:N47").ClearContents
    ActiveWindow.SmallScroll Down:=-18

Ce que je ne comprends pas, c'est les deux ligne avec "activewindows.smallcroll et la ligne qui commence par selection.autofill.
Merci d'avance.

garion28 · Answer

extrait de l'aide de vba
Fait défiler le contenu de la fenêtre par ligne ou par colonne.

Syntaxe

expression.SmallScroll(Down, Up, ToRight, ToLeft)

expression   Obligatoire. Expression qui renvoie un objet Window.

Down   Argument de type Variant facultatif. Nombre de lignes à faire défiler vers le bas.

Up   Argument de type Variant facultatif. Nombre de lignes à faire défiler vers le haut.

ToRight   Argument de type Variant facultatif. Nombre de colonnes à faire défiler vers la droite.

ToLeft   Argument de type Variant facultatif. Nombre de colonnes à faire défiler vers la gauche.

Remarques

Si Down et Up sont tous deux spécifiés, le contenu de la fenêtre défile de la différence des arguments. Par exemple, si Down a la valeur 3 et Up a la valeur 6, le contenu défile de trois lignes vers le haut.

Si ToLeft et ToRight sont tous deux spécifiés, le contenu de la fenêtre défile de la différence des arguments. Par exemple, si ToLeft a la valeur 3 et ToRight a la valeur 6, le contenu défile de trois colonnes vers la droite.

Tous ces arguments peuvent être des nombres négatifs.

enark78 · Answer

Merci encore garion28. Malheureusement je me suis mal exprimé concernant cette ligne :(. Je sais à quoi elle sert en théorie mais je n'en vois pas son utilité dans cette macro et d'ailleurs, je ne vois pas a quoi elle sert tout court.

garion28 · Answer

tu voi l'effet que ca fait a l'écran non ? c'est sensé faire défiler les lignes, ca sert a rien mais ca existe

pijaku · Answer

Salut,
ActiveWindow.SmallScroll Down:=-24  ne servent pas à grand chose... En gros ça bouge tes "ascenseurs" verticaux (down & up) et horizontaux (left right)
Selection.AutoFill est l'équivalant VBA de la possibilité sous excel d'incrémenter directement les cellules voisines. Lorsque tu "étires" des cellules vers le bas ou vers la droite... Vois tu ce que je veux dire, car j'ai bien conscience de ne pas être clair...

enark78 · Answer

Garion28, en réalité je ne vois pas ce que ca fait a l'écran car elle se fait très rapidement et le zoom est réglé a 75% exprès pour que je puisse voir tout le tableau d'un coup.

Salut pikaju, merci pour tes précision sur l'autofill, tu as été on ne peut plus clair.

Pensez-vous que je puisse retirer les smallscroll ?

pijaku · Answer

bien sur, vire les ces méchant smallscroll (c'est imprononcable d'ailleurs comme nom... zonpa_idé des fois!!)

enark78 · Answer

Ok, merci à vous deux, je reviendrai.