VBA : fonction Find

[Excel-lent]

Bonjour à tous,

J'ai une BD (base de donnée) où est listé tous mes fournisseurs connu (tableau A3:C10), avec les renseignements correspondant.

Je récupére d'un autre côté la liste des fournisseurs d'un autre logiciel (colonne E => E4 à E16).

Je veux m'assurer que tous les fournisseurs récupérés sur l'autre logiciel figure bien dans ma base de donnée!

Je pensais utiliser une boucle basique :

For ligneBD = 4 To [A4].End(xlToDown).Row

Next ligneBD

Ou une boucle plus adapté :

For Each Plage In Range(Range("A4:A" & [A4].End(xlToDown).row))
...
Next

Mais en faisant des recherches, j'ai appris que ces deux boucles avait un temp d'éxécution assez long (et comme j'ai beaucoup de données à analyser...). Il semblerait que l'utilisation de la fonction Find soit mieux adapté à mon cas et surtout plus rapide!

Mais voila, après lecture de la notice Excel, plusieurs recherche sur le net, plusieurs tentatives, je n'arrive pas à l'utiliser!

Voici ci-joint un petit exemple commenté, ainsi qu'un début de macro.

Si quelqu'un pouvait m'aider me rajouter les 2 lignes de code qu'il me manque, il m'enlèverais une belle épine du pied.

A moins qu'il ait une autre approche tout aussi efficace (voir plus)?

Merci d'avance pour votre aide.

Cordialement

 

[Staple1600]

Re : VBA : fonction Find

Re

D'accord avec toi , Skoobi

Plus souvent des comme celles-là .

Mais les temps sont à la disette, même en VBA.

 

[skoobi]

Re : VBA : fonction Find

Salut,
.............
....................
A noter que le plus long est l'initialisation de la liste des 60000 noms ici.
C'est peut-être l'objet d'une prochaine recherche !

Perso je passerais par un tableau dynamique que l'on transfert sur la feuille d'un cout.

 

[ROGER2327]

Re : VBA : fonction Find

Re...

Il est vrai que la régénération des données entre les test des différentes procédures est un peu long. Dans le classeur que j'ai joint précédemment, on accélérera la manœuvre en remplaçant le module TEST par la version jointe à ce message.​

ROGER2327
#2016

 

[Excel-lent]

Re : VBA : fonction Find

Et ben!!!

Vous n'y êtes pas aller avec le dos de la cuillére!!! Cinq pages de propositions diverses et variés!!!

En posant ma question l'autre jour, je ne m'attendais pas à tout ça!!!!

Je constate qu'involontairement j'ai soulevé un gros débat!!! Que de solutions!!!!

Un immense merci à tous pour votre implication, votre ingéniosité et votre motivation!

Va falloir que j'étudie tout ça et le test sur mon fichier (qui a déjà bien avancé entre temps!).

Merci pour vos différents récap et test, cela va grandement me faciliter la vie.

Encore merci, et au plaisir de vous recroiser sur d'autres fils!