Bonjour,

J'ai une Macro que j'utilise afin de formater mes rapports journaliers et d'envoyer ces derniers vers un fichier central. Lorsque j'envois mon fichier journalier dans mon fichier central, je voudrais m assurer que les dates ne sont pas dupliquees.
Pour cela j ai cette boucle qui compare la date de la ligne copiee a toute les dates du fichiers:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
For j = 2 To LastCell
    For k = 2 To LastCell2
        If Workbooks("Master MIS Builder.xlsm").Sheets(2).Range("B" & i) = WBEURCRED.Sheets(1).Range("B" & i) Then
        MsgBox "Some dates are duplicated !", 1, "Error - Please review your selection"
        Exit Sub
        End If
    Next k
Next j

Helas mon fichier est plutot gros et cette boucle prends beaucoup trop de temps.
Quelqu'un aurait il une idee pour ameliorer cette boucle ?

Merci!