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