Aide pour création d'un macro template
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
Bonsoir,
Un fichier qui contient une macro a l'extension .xlsm et non pas .xlsx
Bonsoir Raja
Merci pour tes remarques.
Cela n'explique pas comment on fait pour le début du script ?
Merci
Re,
C'est simple. Il suffit de consulter le cours sur VBA sur ce site. Voici un lien pour commencer :
Merci
Je ne suis informaticien....mais je vais essayer de m'autoformer.
Merci encore
Je ne vous embête plus .....
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.
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
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