Discussion :

[funtim78]

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!

[Philippe Tulliez]

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

Code :

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

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 :

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

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 :

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

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

[funtim78]

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

[Philippe Tulliez]

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é.