Discussion :

[Nono Sto]

Chères amies chers amis du forum
Je souhaites fusionner deux tableau VBA de tailles différentes par une méthode ou algo plus optimal que boucle plus redim preserve. L objectif final est d obtenir un array qui serviras de paramétre a un autofilter.
Auriez vous une idée svp?
Merci

[NVCfrm]

bonsoir,

Un tableau est un regroupement d'éléments.
Le principe du tableau, c'est accéder à un élément du jeu d'éléments par un indice.
Fusionner 2 tableaux implique forcément une boucle de façon transparente ou non par la création d'un nouvel tableau comportant suffisamment d'éléments pour y recopier les 2 tableaux.
A moins que tu sois prêt à rédiger le nombre de lignes de code qu'il faut à la place d'une boucle!

[Nono Sto]

Merci

J'avais pas grand espoir mais comme je ne connais pas toutes les fonction de VBA, peut etre qu'il existait une qui faisait cela.

[AlainTech]

Bonjour,

Un petit exemple fusion de 2 tableaux à 1 dimension sans boucle:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
  Dim a As Variant
  Dim b As Variant
  Dim c As String
  Dim d As String
  Dim e() As String
  a = Array("l", "m", "n")
  b = Array("o", "p", "q")
  c = Join(a, ",")
  d = Join(b, ",")
  e = Split(c & "," & d, ",")
End Sub

Je ne suis pas certain que ça puisse servir à ton cas mais ça peut être intéressant pour certains...

[casefayere]

Bonjour alain

je ne suis pas certain que ça puisse servir à ton cas mais ça peut être intéressant pour certains...

oui, pour moi car en reprenant 2 tableaux qui contiennent une plage, j'ai traduit ton code de cette façon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim a, b, x As Integer
Dim c As String
Dim d As String
Dim e() As String
 
a = Range("A2:A8")
b = Range("B2:B8")
c = Join(WorksheetFunction.Transpose(a), ",")
d = Join(WorksheetFunction.Transpose(b), ",")
e = Split(c & "," & d, ",")
For x = 0 To UBound(e)
  MsgBox e(x)
Next

Bonne soirée

[NVCfrm]

Bonsoir,
Je pensais à ces fonctions (Join et Split) qui utilisent forcément en interne des boucles.
Je me cites:

Fusionner 2 tableaux implique forcément une boucle de façon transparente ou non par la création d'un nouvel tableau ...

Il m'avait semblé que Nono Sto ne voulait pas à tort de boucles et de Redim Preserve pour des raisons de performances. Cette méfiance à l'égard de boucles ne me semblait pas justifiée.

Ces fonctions (Join et Split) sont certainement les dernières auxquelles j'aurais recours dans une qu^te de performances pour deux tableaux géants à fusionner.
Je n'ai pas vérifié, si quelqu'un pouvait faire les essais sur de grandes données, il est évident que la solution actuelle couplée avec la fonction WorkSheet Transpose est encore la mois envisageable dans un souci de performances.
Alors qu'une boucle bien pensée serait plus optimale et rapide d’exécution.
Par exemple:

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
 
    Tb1_Bound = UBound(Table1)
    Sum_Bound = Tb1_Bound + UBound(Table2)
    ReDim Table_Fuse(Sum_Bound)
 
    While AllBound
 
        If SumBound > ref1 Then
            Table_Fuse(AllBound) = Table2(Sum_Bound - Tb1_Bound)
        Else
            Table_Fuse(AllBound) = Table1(Sum_Bound)
        End If
 
        AllBound = AllBound - 1
 
    Wend

Une autre solution avec une Api déclarée en tête de module

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Declare Sub Fusion Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
                        ByRef Final As Any, _
                        ByRef Cible As Any, _
                        ByVal Nb_elem As Long)
 
 
    'Dans une procédure test, Les 2 tableaux doivent être du même type de données.
    ReDim tb_final(UBound(tb1) + UBound(tb2))
    Fusion tb_final(1), tb1, (UBound(tb1) * Len(tb1(1)))
    Fusion tb_final(UBound(tb1) + 1), tb2, (UBound(tb2) * Len(tb2(1)))

Les exemples supposent qu'on est en base 1 avec les tableaux.