Aide pour création d'un macro template

Le 18/07/2017 à 14:18

Bonjour a toutes et tous.

Je travaille actuellement sur la création d'un macro pour mon travail, afin de joindre deux fichiers Excel (l'un Template l'autre fichier final). Je n'ai aucune connaissance dans Excel ni VBA.

Je souhaite apprendre mais voilà, je ne sais pas par où commencer.

J'ai beaucoup chercher sur ce site (avant de m'inscrire et aujourd'hui, j'ai besoin de votre aide SVP) et même sur internet en général, je n'arrive pas à trouver la solution à mon problème.

Voici le problème :

J'ai deux Fichiers Excel, l'un sera le Template avec le bouton Macro, l'autre le Fichier Final, que j'appel "serveurs".

Je souhaite incrémenter a partir du fichier "macro" remplir le Fichier "serveurs", à la suite des données existantes, tout en conservant la configuration d'origine du fichier "serveurs" (couleurs, formes, tris etc).

Car, ce fichier "serveurs" à l'heure actuelle, fait plus de 80000 lignes et j'ai du mal à l'ouvrir. Le fichier "serveurs" ci-joint a été splitté.

Je vous joins ces deux fichiers.

Je vous remercie d'avance pour votre aide.

changul

11serveurs.xlsx (19.32 Ko)

16template-macro.xlsx (14.91 Ko)

Le 18/07/2017 à 20:23

Bonsoir,

Un fichier qui contient une macro a l'extension .xlsm et non pas .xlsx

Le 18/07/2017 à 20:40

Bonsoir Raja

Merci pour tes remarques.

Cela n'explique pas comment on fait pour le début du script ?

Merci

Le 18/07/2017 à 21:48

Re,

C'est simple. Il suffit de consulter le cours sur VBA sur ce site. Voici un lien pour commencer :

https://www.excel-pratique.com/fr/vba.php

Le 18/07/2017 à 22:15

Merci

Je ne suis informaticien....mais je vais essayer de m'autoformer.

Merci encore

Je ne vous embête plus .....

Le 18/07/2017 à 23:11

Re,

Ce n'est pas un problème d'embeter ou déranger. Je suis là pour donner de conseils quand l'auditeur demande et si je sais vraiment apporter une réponse convenable. J'espère que tu m'en voudras pas. Je ne livre pas clé en main un programme VBA, car je ne suis pas un spécialiste en VBA, un généraliste peut être oui, un peu touche à tout. Ma prédilection en Excel est plutôt les formules. Patiente un peu. Tu auras surement une réponse adaptée à ton problème. Bonne soirée.

Le 19/07/2017 à 14:36

Bonjour,

J'ai réussi à faire une macro (de débutant) sans valeurs....

j'ai testé et cela fonctionne

(assez fier de moi)

cependant, je souhaite copier à la suite de la 61000 ème ligne. Savez vous la formule SVP ?

Merci

changul

Sub TEST1()

' TEST1 Macro

Application.WindowState = xlMinimized

Application.WindowState = xlNormal

Sheets("Template").Select

Range("A2").Select

ActiveWindow.LargeScroll ToRight:=8

Range("A2:DL12").Select

Selection.Copy

Workbooks.Open Filename:="C:\ABCDR\Servers.xlsx"

Sheets("May-2017").Select

Range("A1").Select

Rows("62000:62000").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

ActiveWindow.LargeScroll ToRight:=4

ActiveWindow.ScrollColumn = 38

ActiveWindow.ScrollColumn = 39

ActiveWindow.ScrollColumn = 40

ActiveWindow.ScrollColumn = 42

ActiveWindow.ScrollColumn = 43

ActiveWindow.ScrollColumn = 47

ActiveWindow.ScrollColumn = 48

ActiveWindow.ScrollColumn = 51

ActiveWindow.ScrollColumn = 53

ActiveWindow.ScrollColumn = 54

ActiveWindow.ScrollColumn = 55

ActiveWindow.ScrollColumn = 59

ActiveWindow.ScrollColumn = 60

ActiveWindow.ScrollColumn = 61

ActiveWindow.ScrollColumn = 63

ActiveWindow.ScrollColumn = 66

ActiveWindow.ScrollColumn = 67

ActiveWindow.ScrollColumn = 68

ActiveWindow.ScrollColumn = 71

ActiveWindow.ScrollColumn = 73

ActiveWindow.ScrollColumn = 74

ActiveWindow.ScrollColumn = 75

ActiveWindow.ScrollColumn = 76

ActiveWindow.ScrollColumn = 77

ActiveWindow.ScrollColumn = 78

ActiveWindow.ScrollColumn = 79

ActiveWindow.ScrollColumn = 80

ActiveWindow.ScrollColumn = 81

ActiveWindow.ScrollColumn = 83

ActiveWindow.ScrollColumn = 84

ActiveWindow.ScrollColumn = 88

ActiveWindow.ScrollColumn = 89

ActiveWindow.ScrollColumn = 90

ActiveWindow.ScrollColumn = 91

ActiveWindow.ScrollColumn = 92

ActiveWindow.ScrollColumn = 93

ActiveWindow.ScrollColumn = 94

ActiveWindow.ScrollColumn = 95

ActiveWindow.ScrollColumn = 96

ActiveWindow.ScrollColumn = 97

ActiveWindow.ScrollColumn = 98

ActiveWindow.ScrollColumn = 99

ActiveWindow.ScrollColumn = 100

ActiveWindow.ScrollColumn = 101

ActiveWindow.ScrollColumn = 102

ActiveWindow.ScrollColumn = 103

ActiveWindow.ScrollColumn = 104

ActiveWindow.ScrollColumn = 105

ActiveWindow.ScrollColumn = 106

ActiveWindow.ScrollColumn = 107

ActiveWindow.ScrollColumn = 108

ActiveWindow.ScrollColumn = 109

ActiveWindow.ScrollColumn = 110

ActiveWindow.ScrollColumn = 109

ActiveWindow.ScrollColumn = 108

ActiveWindow.ScrollColumn = 106

ActiveWindow.ScrollColumn = 104

ActiveWindow.ScrollColumn = 103

ActiveWindow.ScrollColumn = 102

ActiveWindow.ScrollColumn = 100

ActiveWindow.ScrollColumn = 97

ActiveWindow.ScrollColumn = 91

ActiveWindow.ScrollColumn = 83

ActiveWindow.ScrollColumn = 82

ActiveWindow.ScrollColumn = 81

ActiveWindow.ScrollColumn = 78

ActiveWindow.ScrollColumn = 76

ActiveWindow.ScrollColumn = 73

ActiveWindow.ScrollColumn = 72

ActiveWindow.ScrollColumn = 69

ActiveWindow.ScrollColumn = 68

ActiveWindow.ScrollColumn = 66

ActiveWindow.ScrollColumn = 65

ActiveWindow.ScrollColumn = 64

ActiveWindow.ScrollColumn = 63

ActiveWindow.ScrollColumn = 62

ActiveWindow.ScrollColumn = 61

ActiveWindow.ScrollColumn = 60

ActiveWindow.ScrollColumn = 59

ActiveWindow.ScrollColumn = 58

ActiveWindow.ScrollColumn = 57

ActiveWindow.ScrollColumn = 58

ActiveWindow.ScrollColumn = 59

ActiveWindow.ScrollColumn = 60

ActiveWindow.ScrollColumn = 61

ActiveWindow.ScrollColumn = 62

ActiveWindow.ScrollColumn = 63

ActiveWindow.ScrollColumn = 64

ActiveWindow.ScrollColumn = 65

ActiveWindow.ScrollColumn = 66

ActiveWindow.ScrollColumn = 67

ActiveWindow.ScrollColumn = 68

ActiveWindow.ScrollColumn = 69

ActiveWindow.ScrollColumn = 68

ActiveWindow.ScrollColumn = 67

ActiveWindow.ScrollColumn = 64

ActiveWindow.ScrollColumn = 62

ActiveWindow.ScrollColumn = 58

ActiveWindow.ScrollColumn = 56

ActiveWindow.ScrollColumn = 51

ActiveWindow.ScrollColumn = 49

ActiveWindow.ScrollColumn = 44

ActiveWindow.ScrollColumn = 40

ActiveWindow.ScrollColumn = 35

ActiveWindow.ScrollColumn = 33

ActiveWindow.ScrollColumn = 26

ActiveWindow.ScrollColumn = 24

ActiveWindow.ScrollColumn = 20

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 18

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 14

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 9

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

ActiveWindow.SmallScroll Down:=7

Application.CutCopyMode = False

ActiveWorkbook.Save

Windows("Template-Macro.xlsm").Activate

End Sub

Le 19/07/2017 à 15:06

RE,

Je viens de trouver.

A la place des 2 premieres lignes, je mets la formule suivante, ça colle à la suite des lignes :

Range("A1").Select

Rows("10066:10066").Select

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

Merci à Raja pour son soutien !!

Désolé, je n'ai pas pu écrire comme un pro, mais c'est déjà ça.

Si qq'1 veut essayer de raccourcir ma macro et avec comme rajout, les valeurs plus les couleurs qui vont avec, je suis preneur.

A++

Changul

Rechercher des sujets similaires à "aide creation macro template"