Discussion :

[windsor]

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

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

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

ReDim VarTableauCritere(1 to 15)

Il faudra aussi penser à le remplir avant de l'utiliser.
eric

[anasecu]

Bonjour,

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 :

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

Sheets(VarFeuille08).Cells(1, 1).Resize(UBound(VarTableauCritere), 1).Value = Application.Transpose(VarTableauCritere)

[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).