Boucler sur les éléments d'un dictionnaire

[GeoTrouvePas]

Bonjour tout le monde,

Par ces EXCELentes démonstrations, ce très cher M. BOISGONTIER m'a donné la bonne habitude d'utiliser des dictionnaires pour trier mes doublons.

Mais là je me retrouve bloqué car je n'arrive pas à boucler sur les différents éléments de mon dictionnaire.

Explication :

J'ai une liste (avec doublons) dont je veux me servir pour modifier le caption d'une suite de combobox (mais sans doublons).
Je pensais donc éliminer les doublons de ma liste avec un très classique :

    With ThisWorkbook.Sheets("Données").Range("Table_Données")
        For i = 2 To .Rows.Count
            MonDico(.Item(i, 5)) = .Item(i, 5)
        Next
    End With

Puis boucler sur tous les éléments de MonDico, pour renommer un à un mes Combobox.

Mais étant donné que les clés de MonDico sont en alphanumérique, je ne sais pas comment faire pour boucler sur tous les éléments de MonDico.

Auriez vous une idée ?

Je vous remercie par avance.

 

[Pierrot93]

Re : Boucler sur les éléments d'un dictionnaire

Bonjour,

ci dessous l'exemple de l'aide vba :

Dim a, d, i       'Crée des variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athènes"     'Ajoute des clés et des éléments.
d.Add "b", "Belgrade"
d.Add "c", "Le Caire"
a = d.Items       'Obtient les éléments
For i = 0 To d.Count - 1 'Effectue une itération sur le tableau
    MsgBox a(i)    'Imprime un élément
Next

bon après midi
@+

 

[GeoTrouvePas]

Re : Boucler sur les éléments d'un dictionnaire

Bonjour et merci pour ta réponse Pierrot.

Donc apparemment il n'y a pas de possibilité de boucler directement sur les éléments du dictionnaire. Il faut impérativement transférer les éléments dans une variable tableau.

J'aurai pu utiliser l'aide si seulement elle faisait pas planter Excel à chaque recherche... (mais bon faut être patient, ça fait que deux ans que j'ai demandé à l'informatique de s'en occuper ^^).

 

[Pierrot93]

Re : Boucler sur les éléments d'un dictionnaire

Re,

si, à priori on peut également boucler sur les 2 collections :

Sub test()
Dim a, d, i, e, k     'Crée des variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athènes"     'Ajoute des clés et des éléments.
d.Add "b", "Belgrade"
d.Add "c", "Le Caire"
For Each e In d.items
    MsgBox e
Next e

For Each k In d.keys
    MsgBox k
Next k
End Sub

 

[Pierrot93]

Re : Boucler sur les éléments d'un dictionnaire

Re,

A noter la 2ème boucle pour boucler sur les "keys"

 

[GeoTrouvePas]

Re : Boucler sur les éléments d'un dictionnaire

Impeccable !
J'avais même pas pensé à fonctionner avec une boucle for de type "For Each".

J'ai le droit à une petite question subsidiaire ? Je n'arrive pas à savoir pourquoi ma boucle suivante ne fonctionne pas :

For Cptr = 0 To MonDico.Count - 1
        ActiveSheet.Controls("ACoche" & Cptr + 1).Caption = a(0)
Next

On dirait qu'il n'apprécie pas le "Controls". Pourtant ça marche bien quand il s'agit de contrôles situé sur un Userform.

 

[Pierrot93]

Re : Boucler sur les éléments d'un dictionnaire

Re,

oui... plus rien à voir... essaye avec un "ActiveSheet.Shapes", "Controls" ne s'applique pas à une feuille de calcul....

 

[GeoTrouvePas]

Re : Boucler sur les éléments d'un dictionnaire

Ça paraissait trop simple ! ^^

Je viens de tester ta solution, ça ne fonctionne pas non plus.

 

[Pierrot93]

Re : Boucler sur les éléments d'un dictionnaire

Re,

ce n'estplus les mêmes propriétés qui s'appliquent.... regarde ceci :

Dim s As Shape
Set s = ActiveSheet.Shapes("Label1")
s.DrawingObject.Object.Caption = "aaa"

 

[GeoTrouvePas]

Re : Boucler sur les éléments d'un dictionnaire

Effectivement, ça marche impeccable. Il faut avouer que ça coule pas de source cette façon de désigner un contrôle...

Merci beaucoup Pierrot.

 

[GeoTrouvePas]

Re : Boucler sur les éléments d'un dictionnaire

Bon sang c'est pénible ces propriétés qui changent.

Du coup le bon vieux "Visible" ne semble plus marcher.

 

[GeoTrouvePas]

Re : Boucler sur les éléments d'un dictionnaire

J'ai parlé trop vite.

Il suffit de faire directement :

ActiveSheet.Shapes("Textbox1").Visible = True