Recherche_V avec VBA

Version imprimable

Salut à tous !!
Je suis de retour
Avec un petit souci avec une recherche V

En fait j'ai écrit une macro pour une recherche V et elle s'exécute pendant un moment et Excel plante lors de l'exécution parce que j'ai plus de 14000 lignes sur chacunes des feuilles !!!!

Donc la macro ne s'execute pas jusqu'au bout

Mon code est le suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub Recherche_v() Dim i, j, k, s, Code For i = 2 To Sheets("feuil1").Cells(Rows.Count, 3).End(xlUp).Row Code = Sheets("feuil1").Cells(i, 3).Value With Sheets("feuil2") For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(j, 1) = Code Then s = .Cells(j, 2).Value End If Next j End With With Sheets("feuil1") .Cells(i, 4) = s End With Next i End Sub
quelqu'un aurait une solution?
Merci d'avance

23/05/2008, 15h19
Commodore

salut!
as-tu un message d'erreur ?
23/05/2008, 15h21
ninette24

Non j'ai pas de message d'erreur
Je vois que la macro commence à s'executer, puique la colonne se la feuil1 s'alimente au fur et à mesure et au bout d'un moment Excel plante !!!

Je sais pas quoi faire
23/05/2008, 15h26
Commodore

as-tu essayé de remplir tes cellules avec cells(x,y).formulaLocal = "recherchev..." ?

/me cherche d'où peut venir le plantage excel

edit: pourrais-tu envoyer un fichier exemple stp ?
23/05/2008, 15h28
ninette24

Désolée mais je n'utilise pas les formules d'excel (que je ne connais pas en plus)
Je peut joindre un fichier au cas où ....

Si quelqu'un peut m'aider
23/05/2008, 15h29
Commodore

oui pour le fichier s'il te plait
(cf mon edit) :D

Bonjour tlm,

Une solution éventuelle avec Find qui sera plus rapide qu'avec deux boucles imbriquées

Code:

1
2
3
4
5
6
7
8
9
10
Sub Recherche_v()
Dim i As Integer, Code As String, C As Range
 
For i = 2 To Sheets("feuil1").Cells(Rows.Count, 3).End(xlUp).Row
    Code = Sheets("feuil1").Cells(i, 3).Value
    Set C = Sheets("feuil2").Columns(1).Find(Code, , , xlWhole)
    If Not C Is Nothing Then Sheets("feuil1").Cells(i, 4) = C.Offset(0, 1).Value
Next i
 
End Sub

23/05/2008, 15h39
ninette24

Voilà le fichier!!

http://cjoint.com/?fxpQPC1Tzz
23/05/2008, 15h46
ninette24

Slt Fring!!
et merci pour ta réponse
C'est vrai que là elle s'exécute en quelques seconde
C'est beaucoup mieux!!!:king:

Mais à tout hasard y a til plus rapide????
23/05/2008, 15h56
Invité
Bonjour,

Fring a écrit :

Citation:

Une solution éventuelle avec Find qui sera plus rapide qu'avec deux boucles imbriquées

C'est bien la seule solution et la différence est d'autant plus importante que le code d'origine semble non adapté en ce qui concerne la 2ème boucle :
Code:

1 2 3 4 5 6 7 With Sheets("feuil2") For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(j, 1) = Code Then s = .Cells(j, 2).Value End If Next j End With
Ici la recherche continue jusqu'à la dernière ligne de la Feuil2
même si le code a été trouvé (il aurait fallu ajouter "Exit For" avant "End If" ? )

Mais de toutes façons il n'y a pas photo entre les 2 solutions.
23/05/2008, 16h06
fring

Plus rapide je ne sais pas si c'est possible, peut-être une autre méthode mais je ne la connais pas.
En attendant, 8 secondes pour chercher 2300 codes dans une base de données de 14000 lignes et retranscrire les résultats trouvés, je trouve ça pas mal.

Je salue Jacques-Jean au passage ;)
23/05/2008, 16h18
Commodore

et je vous remercie tous deux, je cherchais encore la p'tite bête qui faisait que ça plante, jacques_jean a apporté une réponse on ne peut plus claire :D