Discussion :

[bboy-eazy]

Bonjour à tous,

Je mets en place une macro qui je pense peut être optimisée. Pour ceci, j'aimerai savoir comment je peux faire pour regrouper plusieurs range en un seul afin de renseigner directement une variable tableau.

Actuellement je fais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
j = 0 'variable clé
Set WB_a = Workbook("Archives.xls")
With WB_a.Worksheets("Liste T&F")
     DL_a = .Columns(1).Find("*", , , , xlByRows, xlPrevious).Row
     'Calcul de la dernière ligne
     Set RG_a = .Range(.Cells(3, 1), .Cells(DL_a, 1)) 'définit le range de la feuille
End With
montab() = RG_a.Value 'ajoute le range au tableau
 
Set MyDico = CreateObject("Scripting.Dictionary")
For i = LBound(montab, 1) To UBound(montab, 1)
        MyDico.Add j, Trim(CStr(montab(i, 1))) 'ajoute les données de montab au dico
        j = j + 1
Next i

' refaire de même avec une autre feuille etc...

J'ai 4 feuilles dont le range est identique autrement dis rien ne cahgne dans le code à part le nom de la feuille soit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With WB_a.Worksheets("Liste T&F")

Le but est donc de renseigner directement mon dictionnaire avec toutes les données sans devoir recopier ce code 4 fois (car j'ai 4 feuilles différentes) juste en changeant le nom de la feuille


Merci d'avance de votre aide

[joe.levrai]

Bonjour,

ce n'est pas directement ce que tu souhaites, mais voici une proposition

l'ajout dans le dictionnaire est dans une procédure dédiée, qui attend un argument Variant représentant un tableau

dans la procédure principale, une boucle sur chaque feuille crée le tableau qu'on adresse à la procédure d'ajout dans le dictionnaire

Attention je n'ai pas testé, une coquille n'est pas à écarter

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
Dim MyDico As Object
 
Sub Principale()
Dim ListeFeuille()
Dim MonTab()
Dim j As Long
 
Set MyDico = CreateObject("Scripting.Dictionary")
ListeFeuille = Array("Feuil1", "Feuil2", "Feuil3")
 
With Workbooks("Archives.xls")
    For j = LBound(ListeFeuille) To UBound(ListeFeuille)
        With .Worksheets(ListeFeuille(j))
            MonTab = .Cells(3, 1).Resize(.Rows.Count - 2, 1).Value
            AjoutDico (MonTab)
            Erase MonTab
        End With
    Next j
End With
 
End Sub
 
Sub AjoutDico(Tableau As Variant)
Dim i As Long
    With MyDico
        For i = LBound(Tableau, 1) To UBound(Tableau, 1)
            .Add .Count, Trim(CStr(Tableau(i, 1)))
        Next i
    End With
End Sub

Pour ta demande, si tu veux tout grouper dans un unique tableau, il va falloir créer un tableau dynamique où la dimension 1 représente les colonnes, et la dimension 2 représente les lignes (afin que tu puisses redimensionner au fur et à mesure).
Et il faudra à chaque fois faire une boucle pour ajouter les lignes unes par une ... ou alors créer chaque tableau et les fusionner (encore une fois, par boucle qui parcours les lignes).
Sans oublier les indices de repérage pour savoir où t'en est dans ton tableau agrégé

[bboy-eazy]

Bonjour et merci à toi

J'ai donc opter pour ta solution de passer par un array et boucler sur toutes les feuilles.

merci beaucoup
c'est parfait