Discussion :

[Novice_vba]

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 :

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

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

[EngueEngue]

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

Code :

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

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

[eriiic]

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

[Novice_vba]

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")

[EngueEngue]

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!

[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 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 :

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

MsgBox Activecell.Formula

[casefayere]

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

Code :

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

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

[eriiic]

Re,

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

[parmi]

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