cathodique
XLDnaute Barbatruc
Bonsoir,
M'étant inspiré d'un code de Laetitia, je suis parvenu à extraire des données non communes de 2 dictionnaires.
Je voudrais affichées ces données non communes (une par ligne) si elles existent dans un Msgbox, sinon le message "BD à jour".
En vous remerciant
M'étant inspiré d'un code de Laetitia, je suis parvenu à extraire des données non communes de 2 dictionnaires.
Je voudrais affichées ces données non communes (une par ligne) si elles existent dans un Msgbox, sinon le message "BD à jour".
VB:
Option Explicit
Sub Message()
Dim d1 As Object, d2 As Object
Dim t1(), t2(), i As Long, j As Long, k As Variant
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
t1 = Feuil1.[A1].CurrentRegion.Value
t2 = Feuil2.[A1].CurrentRegion.Value
For Each k In t1
d1(k) = d1(k)
Next k
For Each k In t2
If Not d1.exists(k) Then d2(k) = d2(k)
Next k
Range("c2").Resize(d2.Count, 1) = Application.Transpose(d2.keys)
MsgBox "Elément manquant"
End Sub
Pièces jointes
Dernière édition: