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