Automatiser la création d'une suite de tableau

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'ai besoin de votre aide étant nulle part dans les macros..

J'aimerais créer une macro qui génère un feuille de rapport (dans le document attaché, feuille "DOC") basé sur des infos dans des TCD (qui se trouvent sur d'autres feuilles).
Le principe serait de créer le premier tableau (avec les champs du TCD de la première feuille), ensuite de passer une ligne pour continuer avec le deuxième tableau reprenant les champs du TCD de la feuille numéro deux etc.
Tout en tenant compte du fait que la taille des différents TCD (en terme de lignes) pourra varier d'une fois à l'autre.

En attachement, le fichier dont je parle, pour illustrer.

J'espère avoir été claire. :)

D'avance, un tout grand merci pour votre aide,

Jenna

Pièce jointe 177236

Voilà, le petit code sur lequel je travaille (je n'ai jamais fait de macro, un début pour moi..) Le problème rencontré est la cellule A10 se copie colle, mais pas la A11, A12, A13 etc.
Code:

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 Sub Macro1() '' Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim a As Integer Dim b As Integer i = 5 j = 2 k = 10 l = 1 a = 6 b = 1 ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("New Demands SDD").Select While Not IsEmpty(Cells(a, b)) Sheets("New Demands SDD").Select Cells(i, j).Select Selection.Copy Sheets("Doc").Select Cells(k, l).Select ActiveSheet.Paste Do i = i + 1 j = j + 1 Loop While i < 11 b = b + 1 Wend End Sub

Bonjour Jenna,

Je ne suis pas certain d'avoir compris le besoin, mais j'ai déjà quelques petites remarques sur le code. Il s'agit juste de conseils et mon point de vue n'est pas forcément le meilleur :)

-Je pense que tu utilises beaucoup de variables et la plupart semblent être constantes. En plus, leurs noms sont trop basiques et rendent le code assez compliqué à lire, je trouve.
Si j'étais toi, j'utiliserais des noms du type ligneSSD, ColonneDoc, ColDoc...
- Tu pourrais aussi utiliser des variables objets, par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 Dim ShDoc as worksheet Dim CellDoc as range Set ShDoc = Sheets("Doc") Set CellDoc = ShDoc.range("A5") 'Puis ensuite, tu peux décaler la CellDoc ainsi : Set CellDoc = CellDoc.offset(1,0) 'Pour sélectionner la cellule en dessous.
Ensuite, tu peux simplifier l'écriture du type "macro automatique" (on apprend tous comme ça :))

Par exemple :
Code:

1 2 3 4 5 6 Sheets("New Demands SDD").Select Cells(i, j).Select Selection.Copy Sheets("Doc").Select Cells(k, l).Select ActiveSheet.Paste
Peut être changé ainsi :

Code:

Sheets("New Demands SDD").Cells(i, j).Copy Destination:=Sheets("Doc").Cells(k, l)

Je n'ai pas bien compris le
Code:

1 2 3 4 Do i = i + 1 j = j + 1 Loop While i < 11
Qui équivaut simplement à écrire i = 11 et j = 8 (vu qu'au début i = 5 et j = 2)... cette boucle se fait une fois dans le vent !

D'ailleurs, je ne sais pas si tu as déjà utilisé ceci, mais c'est très pratique : Lance ta macro en mode pas à pas avec le bouton F8, ça te permettra de mieux visualiser la lecture du code et ainsi d'éliminer tout ce qui est inutile :).

Je regarde encore un peu si j'ai le temps. Ce que je t'ai dit ne corrige pas ton problème, malheureusement, et d'autres te conseilleront peut-être autre chose, ceci n'est que mon avis.

Bon courage !

PS : Le fichier joint est en .xlsx, format ne supportant pas les macros ! Enregistre plutôt au format .xlsm pour éviter de perdre tes macros à la fermeture du fichier.

Quentin.

Bonjour,

ceci donne le résultat de la feuille Doc du fichier que tu as transmis

Code:

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
Sub Macro1()
 
Dim TabFeuilles()
Dim ShSource As Worksheet
Dim ShDest As Worksheet
Dim i As Integer
 
' pour boucler sur les feuilles
TabFeuilles = Array("New Demands SDD", "New Demands SCT-MTS", "New Problems SDD")
 
Set ShDest = ThisWorkbook.Worksheets("Doc")
' nettoyage de la feuille de destination
ShDest.Cells.Delete
 
' pour chaque feuille
For i = LBound(TabFeuilles) To UBound(TabFeuilles)
    Set ShSource = ThisWorkbook.Worksheets(TabFeuilles(i))
    With ShSource
        ' si la dernière ligne est supérieure à 5 = il y a des données dans le TCD
        If .UsedRange.Rows.Count > 5 Then
            ' copie de la plage du TCD dans la feuille de destination
           .Range(.Cells(5, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Copy _
                        ShDest.Cells(ShDest.UsedRange.Row + ShDest.UsedRange.Rows.Count + 1, 1)
        End If
    End With
Next i
 
Set ShSource = Nothing
Set ShDest = Nothing
 
End Sub

11/05/2015, 09h47
yeahna

Un tout grand merci à vous deux!

Joe, ça fonctionne parfaitement!