Bonjour,
Dans le cadre d'un petit travail, je dois consolider (juste copier-coller, pas de calcul) le second onglet de 5 fichiers excels différents.
Le template de ce second onglet suit exactement le même format dans les 5 classeurs.
Le problème que je rencontre c'est que sur cet onglet, il y a un tableau de 8 colones jusqu'à la ligne 50, puis un second tableau 6 colonnes à partir de la ligne 60 et un autre tableau 15 colonnes à partir de la ligne 1000 et on me demande de ne pas changer la mise en forme
J'aimerais créer le code suivant:
Boucle
Copier coller
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range (A6:H20) Select
Calcul du nombre de ligne
les mettre à la suite
Cela sur les 5 fichiers excell
Ensuite une seconde boucle
Copier coller
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range (A21:F56)
Calcul du nombre de ligne
les mettre à la suite
Cela sur les 5 fichiers excell
etc....
Pouvez-vous me dire svp où son mes fautes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44 Option Explicit 'Déclaration de variable Dim NomduClasseur As String Dim LigneTotal As Integer Dim DerLigne As Integer Sub Consolider() 'Stoppe l'actualisation de l'écran. Cela sert à masquer les actions de la macro Application.ScreenUpdating = False 'Parcourir l'ensemble tous les fichiers du dossier (il y en a 7) ChDir C:\Users NomduClasseur = Dir("C:\Users\eeeeeeee\*xlsx") ' On boucle pour cherche tous les classeurs (7) While Len(NomduClasseur) > 0 Workbooks.Open NomduClasseur LigneTotal = ActiveSheet.UsedRange.Rows.Count Range("B12:P32" & LigneTotal).Copy Workbooks("ConsolidationVF.xlsm").Activate DerLigne = ActiveSheet.userandge.Rows.Count + 1 'on recherche la dernière ligne vide Range(" B" & DerLigne).Select ActiveSheet.Paste Workbooks(NomduClasseur).Close NomduClasseur = Dir Wend 'Maintenant,j'aimerais ,pouvoir créer le code pour aller chercher les donné à compter de la ligne 50 de mes template générique et les ajouter à partir de la ligne 100 sur mon onglet consolidation Workbooks.Open NomduClasseur LigneTotal = ActiveSheet.UsedRange.Rows.Count Range("B32:P80 & LigneTotal").Copy Workbooks("ConsolidationVF.xlsm").Activate DerLigne = ActiveSheet.userandge.Rows.Count + 1 'on recherche la dernière ligne vide Range(" B100 & DerLigne").Select ActiveSheet.Paste Workbooks(NomduClasseur).Close NomduClasseur = Dir End Sub
Partager