Discussion :

[sk8bcn]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub findproc()
 
Dim i As Integer, j As Integer, feuil1 As Worksheet, feuil2 As Worksheet, critere As String, reponse As Range, NbLignesFeuil2 As Long, NbLignesFeuil1 As Long, li As Long, co As Long
 
Set feuil1 = ThisWorkbook.Worksheets("feuil1")
Set feuil2 = ThisWorkbook.Worksheets("feuil2")
 
NbLignesFeuil1 = feuil1.Cells(65536, 1).End(xlUp).Row
NbLignesFeuil2 = feuil2.Cells(65536, 1).End(xlUp).Row
 
For i = 2 To NbLignesFeuil2
 
critere = feuil2.Cells(i, 1)
Set reponse = feuil1.Range(Cells(2, 1), Cells(NbLignesFeuil1, 1)).Find(critere, feuil1.Cells(2, 1), xlValue, xlWhole, xlByRows, xlNext)
If Not reponse Is Nothing Then
li = reponse.Row
f2.Cells(i, 2) = f1.Cells(li, 2)
End If
 
Next i
 
End Sub

Je dispose de deux feuilles. Les elements des premieres colonnes de chaque feuilles constituent une clé. Je n'ai donc pas besoin de findnext car la premiere reponse trouvé par find suffit amplement.

Précédemment, j'avais commencé par du:

Code :

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

1
2
3
4
5
6
7
8
9
for i=1 to NbLignesFeuil1
for j=1 to NbLignesFeuil2
 
if feuil1.cells(i,1) = feuil2.cells(i,2) then
....
end if
 
next j
next i

En terme de performance, c'était très mauvais (sur ma bécanne, en 10000 * 5000 lignes, ça prend 50 minutes...oui le PC est mauvais mais je n'y peux rien).

Ensuite je suis passé à du

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for i=1 to NbLignesFeuil1
j=0
 
do
j=j+1
loop while j<=NbLignesFeuil2 and feuil1.cells(i,1) <> feuil2.cells(i,2)
 
if j<=NbLignesFeuil2 then
 
.......
 
end if
 
next i

c'est mieux, on passe a 30 minutes.

Mais quand je compare a du vlookup, je me dis que ça reste vraiment très mauvais.

Pour des raisons assez ininteressantes, Vlookup ne m'interesse pas.

Je me tourne vers .find. Mais dans mon code, la methode range echoue.

Quelqu'un sait pourquoi?

(ps: les fichiers d'aide vba ont été suprimé)

Question subsidiaire: le .find est-il le plus rapide possible?

[sk8bcn]

personne n'a donc d'idées pk

Code :

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

Set reponse = feuil1.Range(Cells(2, 1), Cells(NbLignesFeuil1, 1)).Find(critere, feuil1.Cells(2, 1), xlValue, xlWhole, xlByRows, xlNext)

ça ne fonctionne pas?

[illight]

Pourquoi ne pas utiliser le VlookUp ?

Pourquoi sinon ne pas créer une nouvelle colonne dans ton fichier Excel, ou tu met justement ta rechercheV que ut pourra par ailleurs tirer par une macro justement ?

[sk8bcn]

a vrai dire au vu de mon probleme initial, j'ai du mal a voir comment m'en servir.

table de reference:

client 1 200€ 300€ 400€
client 2 100€
client 3 300€ 250€

fichier a enregistrer

client 3 100€

=> la macro tourne

client 1 200€ 300€ 400€
client 2 100€
client 3 300€ 250€ 100€

comme je dois entrer mes valeurs a des positions variables, vlookup me gene. obtenir une adresse aurait été plus simple.

En plus, g 4 feuilles a renseigner (genre feuille2=lieu d'achat) etc...

du coup il me faudrait 4 vlookup si vlookup ne me renseigne pas sur l'adresse.

C'est pourquoi find me plait.



et puis ça fait si classsseeeeee


(mais je suis preneur de toute solution rapide a l'execution hein! )

[illight]

Je réitère ma deuxième question :

Pourquoi sinon ne pas créer plus simplement une nouvelle colonne dans ton fichier Excel, ou tu met justement ta rechercheV que tu pourra par ailleurs tirer par une macro justement ?

[sk8bcn]

j'arrive pas à voir comment tu ferais ça

imaginons

Table a completer

num v1 v2 v3
1 100 200
2 100
3 50
4 100 200 300

table de donnees mensuelles

num valeur
2 200
3 100
5 200

je dois donc ajouter 200 à la ligne 2, 100 à la ligne 3, et ajouter une ligne pour le client 5 avec 200 comme valeur.

avec un find, je cherche la ligne correspondante et avec l'adresse je peux renseigner les cases correspondantes. Et si find ne trouve rien je j'ajoute

en revanche si je fais un vlookup, je ne connais pas l'adresse correspondante, juste la valeur.

Ou je me trompe?