Bonjour le forum!

je fait un essai sur un post avec patricktoulon et sur les tableaux, j'avoue ne pas avoir tout compris alors je lance le post pour essayer de comprendre, pour beaucoup cela va être simple mais pas pour moi!

Je n'ais pas de projet particulier, mais c'est juste un exercice personnel!

pour débuter, j'ai 2 feuilles et je voudrais récupérer les informations sans doublons de ces deux feuilles sans doublons et je souhaiterais les lires 1 à 1 par un msgbox! donc voici:

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
32
 
Sub test()
 
Dim MonDico As Object, Cellule As Range
Dim e As Integer
Dim tablo ' as ?
Dim elem ' as ?
Dim i As Integer
 
e = 0
Set MonDico = CreateObject("Scripting.Dictionary")
 
 With Sheets("feuil1")
        tablo = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
        For Each elem In tablo
            MonDico.Item(elem) = ""
            e = e + 1
        Next elem
    End With
 
  With Sheets("feuil2")
        tablo = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
        For Each elem In tablo
            MonDico.Item(elem) = ""
            e = e + 1
        Next elem
    End With
 
   For i = 0 To e
   MsgBox ????(i)
   Next i
End Sub
merci,

jijie