VBA excel

Résolu/Fermé

enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 - 12 févr. 2010 à 11:33
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 - 12 févr. 2010 à 11:55

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.

A voir également:

Activewindow.smallscroll
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

7 réponses

Réponse 1 / 7

enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
12 févr. 2010 à 11:41

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.

Réponse 2 / 7

garion28 Messages postés 1543 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 404
12 févr. 2010 à 11:42

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

Réponse 3 / 7

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
12 févr. 2010 à 11:42

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...

Réponse 4 / 7

enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
12 févr. 2010 à 11:51

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 ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
12 févr. 2010 à 11:54

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

Réponse 6 / 7

enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
12 févr. 2010 à 11:55

Ok, merci à vous deux, je reviendrai.

Réponse 7 / 7

garion28 Messages postés 1543 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 404
12 févr. 2010 à 11:37

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.

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters