Optimisation d'un programme de recherche

Bonjour à tous !

J'ai créé un code pour pouvoir faire correspondre un onglet d'un de mes fichiers avec un autre. Malheureusement, celui-ci est bien trop lent pour ce que je veux en faire.
Quelqu'un saurait-il l'optimiser ?

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub recherche_correspondance() 'récupération du nombre de lignes ce jour-là Worksheets("Feuil1").Activate nbligne = Range(Cells(1, 2), Cells(1, 2).End(xlDown)).Rows.Count     'POur chacune de ces lignes, recherche de correspondance For i = 1 To nbligne With Sheets("Feuil1").Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, Sheets("Feuil2").Range("A1:B100"), 2, False) End With Next i   End Sub

---

Merci d'avance :)

Ta boucle n'influe en rien dans ton code alors autant ne pas la faire ;)

Code:

---

1 2 3

Sub toto() Sheets("Feuil1").Range("B1").Value = WorksheetFunction.VLookup(.Range("A1").Value, Sheets("Feuil2").Range("A1:B100"), 2, False) end sub

---

Bonjour,

Et si tu mettais un classeur exemple avec qcq lignes de données et les explications de ce que tu veux ?
Ca sera plus simple que d'essayer de deviner, sans doute mal...
Combien de lignes en réalité ? Le choix de la méthode en dépend.

eric

J'ai peut-être trop simplifié.

Je voudrais reproduire cette formule excel, mais en automatique sur toutes les lignes de ma feuille "BNP" (les lignes étant variables, je les calcule au préalable et nomme leur nombre ligneBNP... elles ne sont pas supérieurs à une centaine environ) :

=+SI(ESTNA(RECHERCHEV([@[REF LETTRAGE]];'Requete 472300'!$C:$C;1;FAUX));"soldé";"à imputer")

C'est cool :)

Moi j'aimerais une Ferrari mais pour que tu puisses m'aider à l'avoir je ne vais pas te donner le modèle ni le prix ni la motorisation, tu me diras comment tu t'en sors!

Comme tu connais le début et la fin de ta plage, tu peux y inscrire directement ta formule.
Si tu ne veux pas conserver cette formule pour raison de performance, copie/colle-la en valeur par la suite.

Code:

---

Sheets("Feuil1").Range("B1:B" & nbLigne).Formula = "=La Formule comme écrite en B1"

---

Il te faut juste traduire cette formule en anglais en utilisant la virgule plutôt que le point-virgule. Si tu ne sais pas comment traduire ta formule, place-toi sur la cellule qui contient la formule en français et crée une petite macro avec ceci

Code:

---

MsgBox Activecell.Formula

---

Ou si tu veux ta boucle avec le résultat, comme suggéré par EnguEngue :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub recherche_correspondance() Dim nbligne As Long, i As Long   With Sheets("Feuil1") nbligne = .Range("B" & .Rows.Count).End(xlDown).Rows For i = 1 To nbligne .Range("B" & i) = WorksheetFunction.VLookup(.Range("A" & i), Sheets("Feuil2").Range("A1:B100"), 2, False) Next i End With   End Sub

---

Re,

Citation:

---

parmi:
Comme tu connais le début et la fin de ta plage, tu peux y inscrire directement ta formule.
Si tu ne veux pas conserver cette formule pour raison de performance, copie/colle-la en valeur par la suite.

Code :
Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("B1:B" & nbLigne).Formula = "=La Formule comme écrite en B1"

Il te faut juste traduire cette formule en anglais

---

En utilisant .FormulaLocal la formule peut être copiée-collée directement dans le code.

eric

Citation:

---

Envoyé par eriiic

Re,


En utilisant .FormulaLocal la formule peut être copiée-collée directement dans le code.

eric

---

Ça cause un problème de portabilité dans des systèmes anglais, par contre... Et c'est souvent mon cas. C'est pourquoi je préfère y aller toujours en anglais.

Mais tu as tout à fait raison ;)