Discussion :

[amelhog]

j'ai une erreur sur l'affichage de la msg box et je n'arrive pas a comprendre pourquoi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim liste As Object: Set liste = CreateObject("scripting.dictionary")
 
 
a = liste.keys
 
        For i = 0 To liste.Count - 1 Step 1
 
                   MsgBox (liste.key(a(i)))
       next

merci d'avance pour votre aide

[Bigyork]

Peut-être parce que ton tableau : a commence à l'indice 1 et non pas 0 essaye de changer ta boucle pour la faire commencer à 1

Peut-être ! Je ne sais pas !

[amelhog]

j'ai essayé c'est pas ca lme problème

[Bigyork]

A priori la propriété .Key permet d'affecter une valeur !
Si tu veux l'afficher passe par la collection .Keys