Problème de copie des dates sans doublons

INFINITY100

XLDnaute Occasionnel
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
 

Pièces jointes

  • EXP1.xlsm
    15.6 KB · Affichages: 42

laetitia90

XLDnaute Barbatruc
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)
 

Discussions similaires

Réponses
3
Affichages
192
Réponses
7
Affichages
404

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof