Bonjour je souhaite créer un dictionnaire qui prend en compte les éléments d'une colonne mais il me prend en compte les doublons, savez-vous où peut se trouver le souci ? voici le 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
23
24
25
26
27
28
29
30
31
 
Sub LancementPilotage()
Dim dicofic As Dictionary
Dim i As Integer, j As Integer, k As Integer, nb As Integer, ii As Integer
Dim l As Integer, pos As Integer
Dim y As Integer, m As Integer, d As Integer, h As Integer, n As Integer
Dim classeur_courant As String, dossier_save As String, elem
Dim fso As Object, Dossier As Object, Folder As Object, fles As Object
Dim listfic() As String, tab_temp() As String
 
classeur_courant = ThisWorkbook.Name
dossier_save = Workbooks(classeur_courant).Worksheets("Menu").Range("A10")
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(dossier_save)
 
 
 
'''Création d'un dictionnaire pour le stockage des fichiers déja existants'''
Set dicofic = CreateObject("Scripting.Dictionary")
 
For j = 1 To ThisWorkbook.Sheets("Pilotage").Range("A65536").End(xlUp).Row - 1
    If Not dicofic.Exists(ThisWorkbook.Sheets("Pilotage").Range("A" & j + 1).Value) Then
        dicofic.Add ThisWorkbook.Sheets("Pilotage").Range("A" & j + 1), ""
    End If
Next j
 
...
...
...
End Sub
Merci,

Cdlmt