Transformer un Range d'une colonne en Array une dimension

Bonjour,

Lorsqu'on récupère une colonne de valeur dans Excel via Range, celle-ci est sous forme d'Array 2 dimensions, avec 1 comme unique valeur possible pour la première dimension.
Y a t il un moyen rapide et efficace de récupérer directement les valeurs sous forme d'un Array d'une seule dimension? Ou est il possible de transformer directement et efficacement l'array 2 dimension en un array une dimension sans passer par une boucle for?

Merci d'avance pour vos réponses!

Bonjour,
Par exemple en utilisant la fonction Transpose
Code de la Procédure Test qui invoque la fonction RedimArray

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() Dim rng As Range: Set rng = Feuil1.Range("A2:A14") Dim myNewTable() Dim r As Long myNewTable = RedimArray(rng) For r = 1 To UBound(myNewTable) Debug.Print myNewTable(r) Next End Sub

---

Code de la fonction RedimArray

Code:

---

1 2 3

Function RedimArray(Table) RedimArray = Application.WorksheetFunction.Transpose(Table) End Function

---

Bien entendu on peut le faire sans passer par une fonction mais j'aime découper les procédures

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() Dim rng As Range: Set rng = Feuil1.Range("A2:A14") Dim myNewTable() Dim r As Long myNewTable = Application.WorksheetFunction.Transpose(rng) For r = 1 To UBound(myNewTable) Debug.Print myNewTable(r) Next End Sub

---

Parfait, c'est exactement le genre de chose que je voulais!
Mais par contre je ne comprend pas... Pourquoi il supprime tout seul une des dimensions de la matrice pour le considérer comme un simple vecteur? Une transposition ne devrait qu'intervertir lignes et colonnes normalement...

Bonsoir,
Tu as tout à fait raison c'est curieux mais je te renvoie au tutoriel de Didier Gonard superbement écrit Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel où tout cela est très bien expliqué.