Convertir Collections en arrays

Version imprimable

19/07/2010, 15h04
jasonpolakow

Convertir Collections en arrays

Bonjour,

J' ai une collection de n elements que je dois convertir en array.

Savez-vous s' il existe une methode dans VBA pour ajouter des elements a une array? Sachant que n peut varier.

je dois convertir ma collection en array pour ensuite rentrer cette suite de donnees dans une fonction qui n' accepte que les arrays, pas les collections

Merci,

JP

Bonjour

Mise en tableau par une boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CollToTab()
Dim myCollection As New Collection
Dim myTab() As Variant
Dim i As Integer
 
'chargement de la collection
For i = 1 To 10
  myCollection.Add Item:=Cells(i, 1) ' , key:=CStr(Cells(i, 2))
Next
 
'Passage en tableau
For i = 1 To myCollection.Count
  ReDim Preserve myTab(i - 1) 'pour un tableau en base 0
  'ReDim Preserve myTab(i)    'pour un tableau en base 1
 
  myTab(i - 1) = myCollection.Item(i) 'pour un tableau en base 0
  'myTab(i) = myCollection.Item(i)    'pour un tableau en base 1
Next
 
End Sub

tu peux aussi utiliser, au lieu des collections

Code:

1
2
3
4
5
6
7
8
9
10
Dim myDico As Object
Dim myTab() As Variant
Dim i As Integer
Set myDico = CreateObject("scripting.dictionary")
For i = 1 To 10
  myDico.Add Cells(i, 1), Cells(i, 1)
Next i
ReDim myTab(1 To myDico.Count)
myTab = myDico.items
End Sub

20/07/2010, 08h57
jasonpolakow

Probleme Resolu!! un grand merci a vous :ccool: