porcinet82
XLDnaute Barbatruc
Bonjour à tous,
Cela fait un petit moment que je ne suis pas passé sur le forum, en grande partie par manque de temps.
Je suis actuellement en train de développer une petite application sous word et je me retrouve confronter à un problème que je n'arrive pas à résoudre.
En gros, je voudrais passer le contenu d'un Dictionary dans un Array (le premier me sert à gérer les doublons et le second que je maitrise un peu plus est je trouve plus souple d'utilisation).
Donc sous excel, pas de soucis, je fais la manip suivante qui focntionne parfaitement.
Seulement sous Word, il ne connait pas la focntion Transpose.
Je n'ai donc pas trouvé de solution afin de remplir tablo avec le contenu de Dico.
Toutes explication ou une solution est la bienvenue.
Merci d'avance,
Romain
Cela fait un petit moment que je ne suis pas passé sur le forum, en grande partie par manque de temps.
Je suis actuellement en train de développer une petite application sous word et je me retrouve confronter à un problème que je n'arrive pas à résoudre.
En gros, je voudrais passer le contenu d'un Dictionary dans un Array (le premier me sert à gérer les doublons et le second que je maitrise un peu plus est je trouve plus souple d'utilisation).
Donc sous excel, pas de soucis, je fais la manip suivante qui focntionne parfaitement.
Code:
Sub test()
Dim Dico
Dim tablo() as Variant, i As Integer
Set Dico = CreateObject("Scripting.Dictionary")
For i = 1 To 5
If Not Dico.Exists(Cells(i, 1).Value) Then
Dico.Add Cells(i, 1).Value, Cells(i, 1).Value
End If
Next i
tablo = Application.Transpose(Dico.Keys)
End Sub
Seulement sous Word, il ne connait pas la focntion Transpose.
Je n'ai donc pas trouvé de solution afin de remplir tablo avec le contenu de Dico.
Toutes explication ou une solution est la bienvenue.
Merci d'avance,
Romain