[VBA-E] Peut on accélérer mon code?

Bonjour a tous.

J'ai un code qui prend pas mal de temps et je voulais savoir s'il y avait moyen de faire plus rapide. Voici mon code (j'explique le but aprés)

Code:

---

1 2 3 4 5 6 7 8 9

'Comparaison de la liste des fichiers originaux / tableau excel actuel For j = 1 To Max For k = 3 To Nb_entrées + 2 If Cells(k, 1).Value = Liste_Fichier(j, 1) Then Liste_Fichier(j, 2) = "Fichier trouvé" End If Next k End If Next j

---

Le but est de repertorier tous les fichier d'un repertoire dans mon fichier excel. Le probleme est que la liste de fichier du repertoire evolue tous les jours. Je dois rajouter les fichiers qui ne sont pas dans mon tableau excel sans remettre ceux qui y sont deja

J'espere avoir ete clair?

Ma solution, je prend la premiere entrées de ma liste

Salut

Juste une question pour mieux comprendre ton code, non, deux...

1. Quel est la raison d'un second End If juste avant Next j ?

2. Quelle est la valeur possible (ou constante) de Max ?

Et un commentaire... évite d'utiliser les caractères accentués pour les noms de variables (Nb_entrées).

Si tu es dans Excel, ne serait-il pas plus rapide d'utiliser les fonctions de recherche de Excel? (question-suggestion)

1-Pour le end if j'ai oublié de le supprimer (en allegeant le code pour vous le montrer)

2-Le nombre Max (nombre de fichier) est egale à 2000. On y ajoute environ une vingtaine de fichier par jour. Donc il faut que je trouve une solution car en ce moment le code met envion 1 minute a sortir des boucles...

Je pense qu'excel fait la meme chose our comparer deux liste (je pense a rechercheV) non?

d'apres ce que je vois, tu peux modifier ton repertoire et y ajouter la mention "fichier trouvé".

pourquoi ne testerais tu pas tout simplement l'existence de la mention "fichier trouvé dans la deuxième colonne de ton repertoire?"
que contient-il si ça n'est pas le cas?

tu Pourrais même le remplacer par la date d'ajout.

salut :wink:

as-tu tenté la fonction dir() ?