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]

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

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

[borisp]

Bravo le join marche parfaitement!

Merci à tous pour votre aide

[Marc-L]

Bonjour, bonjour !

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

Normal car en informatique comme en français les fautes d'orthographe sont interdites !

je n'ai jamais compris pourquoi dico.keys(0) renvoyait une erreur

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

Sans souci, tout dépend déjà comment est déclarée la variable objet Dictionary !
Joe est dans le vrai, Dictionary n'étant pas un objet interne au VBA …

Exemples :

• déclaration anticipée en activant la référence : ligne n°12 de cette discussion

• déclaration tardive via CreateObject : ligne n°20 de ce code …

______________________________________________________________________________________________________
Pour apprendre quelque chose aux gens, il faut mélanger ce qu’ils connaissent avec ce qu’ils ignorent. (Pablo Picasso)