Problème de copie des dates sans doublons

INFINITY100 · 23 Août 2017

Bonjour à tous

Voila j'ai sous la main une macro qui me copie les données de la colonne A de la feuille 1 vers la même colonne (A) de la feuille 2 sans les doublons jusque là tout fonctionne bien mais lorsqu'il s'agit des dates le problème se pose car il me fait la copie en format US donc ma question est que ajouté à la macro ci-dessous pour avoir la copie en format FR (français)

Voici mon code :

Code:

Sub actualise()
Set dico = CreateObject("Scripting.Dictionary")
With Feuil2
For Each c In .Range(.[A1], .[a65000].End(xlUp))
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next c
End With
With Feuil1
For Each c In .Range(.[A1], .[a65000].End(xlUp))
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next c
End With
Feuil2.[A1].Resize(dico.Count, 1) = Application.Transpose(dico.items)
End Sub

Je joins le fichier pour être plus claire

Merci à vous tous

Cordialement

laetitia90 · 23 Août 2017

bonjour INFINITY , le forum

avec ton code & value 2

Code:

Set dico = CreateObject("Scripting.Dictionary")
With Feuil1
For Each c In .Range(.[A1], .[a65000].End(xlUp))
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value2, c.Value2
Next c
End With
Feuil2.[A1].Resize(dico.Count, 1) = Application.Transpose(dico.items)

INFINITY100 · 23 Août 2017

Merci beaucou laetitia90
c'est très très gentil
1000 mercis

Problème de copie des dates sans doublons

INFINITY100

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

INFINITY100

XLDnaute Occasionnel

Discussions similaires