Discussion :

[jasonpolakow]

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

[zyhack]

Bonjour

Mise en tableau par une boucle

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

[mercatog]

tu peux aussi utiliser, au lieu des collections

Code :

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

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

[jasonpolakow]

Probleme Resolu!! un grand merci a vous