VBA : Copier variable tableau 1 dimension vers feuille excel avec un range

Version imprimable

Bonjour,

Jusqu'à maintenant, j'ai plutôt utilisé des variables tableaux multidimensionnelles et je n'ai pas eu de soucis pour faire un range du tableau vers la feuille excel (ce qui permet de transférer les données bien plus rapidement) mais là je voudrais le faire avec un tableau à 1 dimension et je n'y arrive pas.

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
 
    ReDim VarTableauCritere(1)
 
    For n1 = 1 To UBound(echeancesFrs)
        If echeancesFrs(n1).Critere_Tri = "Interco" Then
 
            For n2 = 1 To UBound(VarTableauCritere)
 
                If echeancesFrs(n1).LibelleTiers = VarTableauCritere(n2) Then
                    Exit For
                End If
 
                If n2 = UBound(VarTableauCritere) And echeancesFrs(n1).LibelleTiers <> VarTableauCritere(n2) Then
                    ReDim Preserve VarTableauCritere(UBound(VarTableauCritere) + 1)
                        VarTableauCritere(n2) = echeancesFrs(n1).LibelleTiers
                End If
 
            Next n2
 
        End If
    Next n1
 
 
Sheets(VarFeuille08).Range(Sheets(VarFeuille08).Cells(1, 1), Sheets(VarFeuille08).Cells(UBound(VarTableauCritere), 1)) = VarTableauCritere

Si quelqu'un a une idée, ça me serait très utile.

Merci d'avance

25/03/2019, 00h19
eriiic

Bonjour,

1 dimension d'accord, mais de quelle taille (nombre de lignes) ?
Avec ReDim VarTableauCritere(1), si tu n'as pas changé Option Base ça te fait un tableau (0 to 1)
Si tu veux 15 lignes à partir de 1 :

Code:

ReDim VarTableauCritere(1 to 15)

Il faudra aussi penser à le remplir avant de l'utiliser.
eric
25/03/2019, 08h29
anasecu

Bonjour,

Citation:

Envoyé par windsor

je voudrais le faire avec un tableau à 1 dimension et je n'y arrive pas.

Je pense que tu n'en es pas loin mais c'est ta ligne de transfert qui devrait plutôt être ainsi codée :

Code:

Sheets(VarFeuille08).Cells(1, 1).Resize(UBound(VarTableauCritere), 1).Value = Application.Transpose(VarTableauCritere)
25/03/2019, 09h24
windsor

Merci infiniment à anasecu, j'en reviens pas, j'ai cherché pendant des heures et des heures, j'étais pratiquement désespéré de trouver la solution.

Quelle efficacité !

Je n'oubli pas de remercier aussi eriiic pour l'intérêt qu'il a porté à mon problème (je suis désolé, j'ai mis qu'un bout de mon code, évidemment, Option de base était à 1, le but était de pouvoir rallonger mon tableau de façon dynamique en fonction du nombre différent de tiers trouvé, sur ce point je n'avais pas de soucis, c'était surtout de copier les données du tableau faire la feuille excel qui me posait problème).