MsgBox qui reprend les données d'un objet

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:

---

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

Bonjour,

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

Code:

---

1 2 3

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

---

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

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..

Et comme ceci ?

Code:

---

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 ?

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:

---

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

Citation:

---

Envoyé par mathspountz

Et comme ceci ?

Code:

---

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:

---

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:

---

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:

---

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

---

Bravo le join marche parfaitement!

Merci à tous pour votre aide :)

Bonjour, bonjour !

Citation:

---

Envoyé par borisp

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

---

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

Citation:

---

Envoyé par mathspountz

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

---

Citation:

---

Envoyé par joe.levrai

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)