Problème de copie des dates sans doublons

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
Réponses
7
Affichages
211
Réponses
3
Affichages
115
Réponses
4
Affichages
177
Retour