Discussion :

[dylan.pascal]

Bonjour,

Alors voilà tout est dans le titre , je ne sais pas comment remplir un tableau dynamique en VBA. J'ai des listes de libellés sur plusieurs feuilles avec des nombres a cotés, je voudrais faire la somme de ces nombres si le libellé est le même.

Pouvez-vous me donner un coup de main ?

Cordialement,

Dylan.

[Malick]

Avez-vous essayer l'outil de consolidation des données sous Excel ?

[dylan.pascal]

Bonjour,

Oui j'ai utilisé cet outil, cela fonctionne parfaitement mais le but de mon programme est d'automatiser la tache , les utilisateurs ne vont pas a chaque fois utiliser Consolider

Cordialement,

Dylan

[joe.levrai]

Bonjour,

la consolidation est compatible avec l'enregistreur de macro.
Enregistre les actions que tu fais pour consolider manuellement

tu vas avoir une structure de code qu'il te suffira d'adapter (ou pas !)

[dylan.pascal]

Merci du conseil mais avant de Consolider, mon programme récupère des données depuis plusieurs bases de données selon ce que lui paramètre l'utilisateur. Et le problème est que la taille des tableaux changent selon les feuilles et les paramètres que va entrer l'utilisateur.

Cordialement,

Dylan;

[joe.levrai]

On peut t'aider à convertir un code trop rigide en un code dynamique qui s'adapte selon tes souhaits


montre nous le code que te sors l'enregistreur de macro, et indique nous comment et où on doit ajuster la plage :

- on prend jusqu'à la dernière ligne vide ?
- on doit ajuster les colonnes ?
etc...

[dylan.pascal]

Bonjoue joe,

Voici ce que l'enregistreur de Macro m'as générer. En effet il faudrait détecter la dernière ligne rempli de chaque feuille. J'ai renommé mes tableau de données en fonction du nom de la feuille.

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
Sub Outil_consolider()
'
' Outil_consolider Macro
'
 
'
    ActiveWindow.SmallScroll Down:=6
    Range("C8:E40").Select
    ActiveWorkbook.Names.Add Name:="SV10070", RefersToR1C1:= _
        "='BTT - Code panne - SV10070'!R8C3:R40C5"
    Sheets("BTT - Code panne - SV20070").Select
    Range("C8:E41").Select
    ActiveWorkbook.Names.Add Name:="SV20070", RefersToR1C1:= _
        "='BTT - Code panne - SV20070'!R8C3:R41C5"
    Sheets("BTT - Code panne - SV50070").Select
    ActiveWindow.SmallScroll Down:=6
    Range("C8:E41").Select
    ActiveWorkbook.Names.Add Name:="SV50070", RefersToR1C1:= _
        "='BTT - Code panne - SV50070'!R8C3:R41C5"
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("BTT - Code panne - SV60070").Select
    Range("C8:E30").Select
    ActiveWorkbook.Names.Add Name:="SV60070", RefersToR1C1:= _
        "='BTT - Code panne - SV60070'!R8C3:R30C5"
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("BTT - Code panne - RHONE").Select
    Range("C8:E50").Select
    ActiveWorkbook.Names.Add Name:="RHONE", RefersToR1C1:= _
        "='BTT - Code panne - RHONE'!R8C3:R50C5"
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Total").Select
    Range("D8").Select
    Selection.Consolidate Sources:=Array( _
        "'C:\Users\PASCAL-D\Desktop\Comparatif Panne BTT 2014 - 2013.xls'!RHONE", _
        "'C:\Users\PASCAL-D\Desktop\Comparatif Panne BTT 2014 - 2013.xls'!SV10070", _
        "'C:\Users\PASCAL-D\Desktop\Comparatif Panne BTT 2014 - 2013.xls'!SV20070", _
        "'C:\Users\PASCAL-D\Desktop\Comparatif Panne BTT 2014 - 2013.xls'!SV50070", _
        "'C:\Users\PASCAL-D\Desktop\Comparatif Panne BTT 2014 - 2013.xls'!SV60070"), _
        Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
End Sub

Cordialement,

Dylan.

Up

Up