Doublon et complement

Bonjour SVR,

Avec la plage de données (dates) de la feuille 1 nommée ici "zone1" et la
plage de données (dates) de la feuille 2 nommée ici "zone2"

Sub extraC()
Dim inF As String, x As Long, y As Long
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Extract").Delete
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Extract"
[A1] = "Elts communs"
[B1] = "Elts de ""zone1"" n'appartenant pas à ""zone2"""
[A1:B1].Font.Bold = True
Columns("A:A").EntireColumn.AutoFit
x = 2
y = 2
For Each c In Range("zone1")
Set trouV = Range("zone2").Find(c)
If Not trouV Is Nothing Then
Range("A" & x) = c
x = x + 1
Else
Range("B" & y) = c
y = y + 1
End If
Next
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
inF = MsgBox("Extraction terminée !", vbInformation, "Traitement
effectué...")
Set trouV = Nothing
End Sub


ChrisV


"SRV" <srv@laposte.net> a écrit dans le message de
news:cdpmb4$oeq$1@news-reader4.wanadoo.fr...

Bonsoir

Soit une feuille avec une centaine de lignes et deux colonnes (date et
libellé)
Soit une seconde feuille avec environ 300 lignes et deux colonnes (date et
libellé aussi).

Je souhaiterais sortir rapidement les dates qui ne sont pas communes aux 2
feuilles.

Une idée ?