Discussion :

[Epsilona]

Bonjour,

Je dois pour mon travail, fusionner plusieurs base Acces, afin de pouvoir faire UN seul tableau croisé dynamique, et j'aimerais donc pour faire cela grâce à une macro, que j'ai faite, mais un soucis sur ma macro, car au lieu de rajouter les données, dès qu'il y a une ligne vide, la macro me rajoute, à la valeur max de ma boucle (y), soit 1000, sans tenir compte des cellule vide d'avant, et je pense donc que cela vient de la !

Merci de regarder.

Yann

https://wetransfer.com/downloads/358...3131558/752355

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub Intégration()
'
' Intégration donnees Macro
'
 
'
 
    Dim Numcpte
    Dim Période
    Dim jour
    Dim Libelle
 
    Dim Debit
    Dim Centre
    Dim NumPiece
    Dim erreur
 
 
    Dim x
    Dim w
 
    Dim y
    Dim z
 
    'Recherche de ligne vide
 
    For y = 2 To 1000
 
 
        If Cells(y, 1) = "" Then
            w = y
            GoTo Saut
 
 
            End If
        Next y
 
Saut:
 
    'Recherche et Intégration des Données
 
 
    For x = 2 To 100
 
 
        Selection.ClearContents
    Sheets("PECS").Select
 
            Numcpte = Cells(x, 2)
            Période = Cells(x, 6)
            jour = Cells(x, 7)
            Libelle = Cells(x, 9)
            Debit = Cells(x, 11)
            NumPiece = Cells(x, 17)
            Centre = Cells(x, 48)
 
            Sheets("Donnees").Select
 
            z = x + w
 
                Cells(z, 1) = "PECS"
                Cells(z, 2) = Numcpte
                Cells(z, 3) = Période
                Cells(z, 4) = jour
                Cells(z, 5) = Libelle
                Cells(z, 6) = Debit
                Cells(z, 7) = Centre
                Cells(z, 8) = NumPiece
 
    Next x
 
 
M:
 
    Sheets("Donnees").Select
 
 
End Sub

[EricDgn]

Bonjour,

Je ne saisis pas vraiment votre problème. Si vous voulez fusionner des données provenant de plusieurs tables Access, personnellement je resterais en Access où il est très simple de faire des requêtes UNION et des tableaux croisés dynamiques. Si vous voulez faire cela avec Excel, il serait sans doute préférable d'utiliser Power Pivot.

Dans le fichier que vous avez donné en exemple, les 2 tables PECSCA et PECSLA ont la même structure, mais PECS en a une autre (avec un décalage d'une colonne pour celles que l'on retrouve dans les 3 tables). Si j'ai bien compris, vous essayez de récupérer 7 colonnes de ces 3 feuilles, mais pourquoi encoder partout la même valeur "PECS" en colonne 1 ?

Cordialement.

[Epsilona]

Re bonsoir,

C'était juste un problème de "Vide" et de "Rien", puisque je n'ai supprimé pas mes cellules, mais je n'effacer seulement le contenu des cellules, et elle avait donc la valeur de "Rien" au lieu de "Vide...

Donc c'est pour cela que la VB, ne sortait pas de la boucle, car c'était pas la bonne valeur "".