Discussion :

[borisp]

Bonjour le forum,

Je cherche à reprendre dans un MsgBox les données enregistrées dans un objet de type "dictionary".
Aucun élément ne s'affiche avec ce code :

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
21
22
    Set MonDico = CreateObject("Scripting.Dictionary")
 
    'selection de la feuille
    Sheets("E1_SA").Select
    'positionnement en haut du tableau
    Range("D10").Select
    'parcours du tableau sur les 85 lignes pour mémoriser les valeurs à traiter dans la feuille "Saisie"
    For i = 0 To 85
            'que si elles contiennent du texte
            If ActiveCell.Offset(i, 0).Value <> "" Then
                'si la valeur n'a pas encore été traitée (pour éviter les doublons)
                If Not MonDico.Exists(ActiveCell.Offset(i, 0).Value) Then
                    'on mémorise la valeur
                    MonDico.Add ActiveCell.Offset(i, 0).Value, ""
                End If
            End If
        End If
    Next i
 
     If MsgBox("Etes-vous certain d'avoir tout sélectionné?" & Chr(13) & MonDico.Item(0), vbYesNo) = vbNo Then
     Exit Sub
    End If

Merci par avance et merci à jerome.vaussenat qui m'a donné les premiers éléments de mon code.

Bon après-midi à tous,

Boris

[joe.levrai]

Bonjour,

dans ton dictionnaire, tu ne crées que les clés, les valeurs sont vides

Code :

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

1
2
3
            ' ici c'est la clé
MonDico.Add ActiveCell.Offset(i, 0).Value, ""
                                           ' ici c'est l'élément

[mathspountz]

Ou sinon la valeur à retourner est peut-être MonDico.Key(0) ?

[borisp]

Merci pour vos réponses. Je ne peux pas déclarer les valeurs car elles sont variables. Je souhaiterai ressortir l'ensemble des valeurs identifiées dans la MsgBox.

MonDico.Key (0) ne fonctionne pas malheureusement..

[mathspountz]

Et comme ceci ?

Code :

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

1
2
3
4
5
6
7
 
Dim arrTmp
 
' CODE
 
arrTmp = MonDico.keys ' on met toutes les keys dans un array
MsgBox arrTmp(0) ' on utilise l'array

D'ailleurs pour les experts, je n'ai jamais compris pourquoi dico.keys(0) renvoyait une erreur (la propriété get n'a pas renvoyé d'objet). C'est donc une volonté des concepteurs de l'objet dictionaire ? Mais dans quel but ?

[joe.levrai]

Et comme ceci ?

Code :

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

1
2
3
4
5
6
7
 
Dim arrTmp
 
' CODE
 
arrTmp = MonDico.keys ' on met toutes les keys dans un array
MsgBox arrTmp(0) ' on utilise l'array

D'ailleurs pour les experts, je n'ai jamais compris pourquoi dico.keys(0) renvoyait une erreur (la propriété get n'a pas renvoyé d'objet). C'est donc une volonté des concepteurs de l'objet dictionaire ? Mais dans quel but ?

Pourquoi ? Je ne sais pas, probablement lié à la construction et structure de l'objet ?

si on veut accéder à une clé par son index sans passer par un tableau intermédiaire, la fonction Index est utile

Code :

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

MsgBox Application.Index(MonDico.keys, 2)

ce qui permet de récupérer une chaine composée de l'ensemble des clé comme ceci :

Code :

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

1
2
3
4
5
For i = 1 To MonDico.Count
    liste = liste & Chr(13) & Application.Index(MonDico.keys, i)
Next i
 
If MsgBox("Etes-vous certain d'avoir tout sélectionné : " & liste, vbYesNo) = vbNo Then Exit Sub

mais c'est quand même plus long que faire un Join sur la collection des clés en direct

Code :

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

liste = Chr(13) & Join(MonDico.keys, Chr(13))

[joe.levrai]

Parlons le même langage, on va pas se comprendre sinon

ta procédure créee des entrées dans un dictionnaire, et tu n'y renseigne que les clés. Tu laisses la valeurs à vide

ensuite, tu voudrais pouvoir afficher l'ensemble des clés que tu as inséré dans le MsgBox c'est bien ça ?

essaye comme ça, juste après la partie de ton code qui crée le dictionnaire

Code :

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

1
2
3
4
5
6
7
8
Dim Tabl()
Tabl = MonDico.keys
 
For i = 0 To MonDico.Count - 1
    liste = liste & Chr(13) & Tabl(i)
Next i
 
If MsgBox("Etes-vous certain d'avoir tout sélectionné : " & liste, vbYesNo) = vbNo Then Exit Sub

Attention, s'il y a trop de valeurs la fenêtre de message ne pourra pas tout afficher