Discussion :

[FFGUY]

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!

[Marc-L]

Bonjour,

via la fonction de feuille de calculs NB.SI (Application.CountIf en VBA), EQUIV (Application.Match)

ou encore la méthode Range.Find entre autres …

A combiner avec l'utilisation d'une variable tableau; voir les exemples dans les discussions de ce forum.