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.

[Marc-L]

Bonsoir.

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

Même pour tb_final(0) en ligne n°9 ? Uniquement pour les tableaux à fusionner alors …

Sinon juste pour info, j'ai récemment (re)constaté sur les versions 2003 & 2007

la limitation de la fonction Application.Transpose de 255 caractères par élément …

[NVCfrm]

Bonsoir Marc,
merci. erreur corrigée!

Edit:
Une autre erreur corrigée de l'utilisation de Len avec un tableau sans précision d'indice.
Je pensais dans un autre langage

[nibledispo]

Bonjour,

Une solution sans doute ni plus rapide ni plus élégante qui me vient a l'esprit.

- copier les deux tableaux l'un en dessous de l'autre sur une feuille temporaire sans boucle for.
-copier le contenu de la feuille dans un tableau final
-effacer ou supprimer la feuille temporaire.

Que pensent les connaisseurs de cette solution un peu tordue dont je n'ai pas vérifié la validité.

Cordialement,

[NVCfrm]

bonjour nibledispo,

Une solution sans doute ni plus rapide ni plus élégante qui me vient a l'esprit.

Je crois pouvoir t'affirmer que c'est la plus élégante et la plus performante.
La fonctionnalité de copier/coller est probablement la plus rapide en échange de données.
Je penses (une bêtise peut-être) que des registres spéciaux sont dédiées aux instructions de copie pour accélérer leur exécution.
Ton idée est davantage meilleure encore, surtout si l'on doit construire les données en mémoire pour les transférer au final sur une feuille. Autant y aller directement.
Comme quoi, il ne faut jamais oublier qu'Excel à travers le VBA dispose de moyens très puissants et simple à tel point, qu'on se complique généralement la tâche en pensant ailleurs.

[nibledispo]

Bonjour NVCfrm,

Je suis bien heureux d'avoir pour une fois apporté une solution satisfaisante qui est pour moi un encouragement à persévérer dans l'étude de VBA.

Edit: suite à une réponse de Mercatog sur une autre discussion (Piixx-2) il convient d'apporter une limitation liée à la mémoire de l'ordinateur avec éventuelle utilisation de "transpose" ultérieure.

Cordialement,