Discussion :

[bsangoku]

Bonjour,

Je dispose d'une collection MyCollection. Par exemple, j'ai 5 éléments dans MyCollection

Code :

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

1
2
3
4
5
MyCollection.Item(1)="laurent"
MyCollection.Item(2)="fabien"
MyCollection.Item(3)="marc"
MyCollection.Item(4)="sophie"
MyCollection.Item(5)="paul"

Je souhaite écrire l'intégralité de cette collection sous une nouvelle feuille sous excel. Mais je ne sais pas comment y procéder : pouvez vous m'aider?

Merci d'avance

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Dim MyCollection As New Collection
MyCollection.Add "laurent"
MyCollection.Add "fabien"
MyCollection.Add "marc"
MyCollection.Add "sophie"
MyCollection.Add "paul"
For i = 1 To MyCollection.Count
    Cells(i, 1) = MyCollection(i)
Next i