Remplir un tableau dynamiquement

Version imprimable

21/04/2015, 15h14
dylan.pascal

Remplir un tableau dynamiquement

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.
21/04/2015, 15h22
Malick

:salut:

Avez-vous essayer l'outil de consolidation des données sous Excel ?
21/04/2015, 15h40
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
21/04/2015, 16h27
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 !)
21/04/2015, 16h34
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; ;)
21/04/2015, 16h36
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...

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:

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 :)