Verification date non dupliquee
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:
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!
