VBA : Boucle de recherche

[HYDRA]

Je souhaiterais faire une boucle dans une macro qui fasse une recherchev : Je dois afficher dans la feuille 1 (colonnes B à K) des données issues de la feuille 2 avec comme plage de référence les plages A des feuilles 1 et 2)

Est-ce que vous connaissez une macro efficace et qui soit surtout rapide car je dois effectuer cette formule sur plus de 10000 lignes et la répéter donc sur 10 colonnes (la méthode que j’emploi actuellement recopie la formule sur chaque ligne ce qui prend énormément de temps de traitement).

Merci d'avance

 

[wilfried_42]

Re : VBA : Boucle de recherche

bonsoir hydra

tu peux nous envoyer un ptit morceau de ton tableau et ta routine stp

a te lire

 

[HYDRA]

Re : VBA : Boucle de recherche

La boucle que j'utilise est de la forme suivante :

Sub Boucle_Recherche()
Range("B1").Select
While ActiveCell.Offset(0, -1) <> ""
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Feuil2!C[-1]:C[7],2,FALSE)"
ActiveCell.Offset(1, 0).Select
Wend
End Sub

 

[wilfried_42]

Re : VBA : Boucle de recherche

resalut hydra

j'ai ecrit un ptit truc utilisant le copy/paste
regarde si ca te va, il faudra neanmois modifier un peu ta base

feuille 1 colonne A la liste des noms
Feuille 2 calonne A la saisie triee par nom, colonne B 1 n° progressif
Feuille 1 colonne B recherchev du nom et recupération du n° progressif

le bouton lance la macro copier coller

salutations

😡 j'ai oublié le fichier 😀

 

[HYDRA]

Re : VBA : Boucle de recherche

Merci beaucoup
je ne pige pas trop le code que tu as écrit mais ca fonctionne super bien