Discussion :

[arnaud.i]

Bonjour,

J'ai ajouté dans un premier dictionnaire les valeurs de la colonne A de mon onglet Data

Code :

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

1
2
3
4
5
	Set Dico1 = New Collection
    	DernLigne = Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    	For i = 2 To DernLigne
    	Dico1.Add Item:=Worksheets("Data").Cells(i, 1)
    	Next i

Je crée un second dictionnaire dans lequel je veux mettre uniquement les valeurs du fichier texte et qui sont présentes dans le dico1

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
 	MonFichier = "C:\.......\...txt"
 
 
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(MonFichier, 1, -2)
 
	Set Dico2 = New Collection
 
 
    	Do Until objFile.AtEndOfStream
    	row = objFile.ReadLine
	Split_Txt = split_function (row) 'fonction qui découpe mon fichier texte
        Key = Field5 'Field1 est déterminé à partir de la fonction split_function  (Field5 = Mid(row, 14, 3))
            If Dico1.Exists(Key) Then
            Dico2.Add Item:=Split_Txt
            End If
    	Loop

En utilisant la focntion "Exists" j'ai un message d'erreur. Pouvez vous m'aider?

Merci d'avance

[Thumb down]

Bonsoir,
Tu parles de dictionnaire et tu utilises une collection ?
Exists est bien une méthode d'un Dictionary mais pas d'une collection !

https://docs.microsoft.com/en-us/off...tionary-object

Code :

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

1
2
3
4
5
6
 Set Dico1 = CreateObject("Scripting.Dictionary")
For i = 2 To DernLigne
        Dico1(Worksheets("Data").Cells(i, 1).value)=Worksheets("Data").Cells(i, 1).value
        Next i
If Dico1.Exists(Key) Then
Dico2.add clé,texte

[arnaud.i]

Bonjour Thumb down,

Merci pour ton retour, pour tout avouer, j'avais trouver ce code et je l'ai adapté.
A priori pour travailler avec les dictionnaires il faut que l'option "Microsoft Scripting Runtime" soit cochée...
Comme je ne serai pas le seul utilisateur peut être que le mieux serait de continuer avec les collections...

[Thumb down]

si tu utilises CreateObject tu n'a pas à activer la référence tout comme FileSystemObject!

Code :

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

1
2
3
dim Dico1 as Object,objFSO  as Object
Set Dico1 = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Code Module de Classe MyDico :

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
Private Dico As New Collection, Txt As String
Public Function Exists(Key As Variant) As Boolean
Exists = CBool(InStr(1, "©" & Txt & "©", "©" & Key & "©"))
End Function
Public Sub Add(Value As Variant, Optional Key As Variant = "")
    If CStr(Key) = "" Then
        Dico.Add Value
    Else
        If Not Exists(Key) Then
            Txt = Txt & "©" & Key & "©"
            Dico.Add Value, Key
         End If
    End If
End Sub
Public Function Keys()
    Keys = Split(Trim(Replace(Replace(Txt, "©©", "™"), "©", "")), "™")
End Function
Public Function Items()
    Dim Item(): ReDim Item(1 To Dico.Count)
    For i = 1 To Dico.Count
        Item(i) = Dico(i)
    Next
    Items = Item
End Function
Public Function Values(Key)
    If Exists(Key) Then Values = Dico(Key)
End Function

Code Module1 :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim dico1 As New MyDico
dico1.Add "ee", "1"
dico1.Add "ee", "2"
dico1.Add "ee", "3"
Debug.Print "rr", dico1.Exists("rr"), "toto", dico1.Exists("toto")
k = dico1.Keys
i = dico1.Items
  For Each c In k
    Debug.Print dico1.Values(c)
  Next
End Sub