Discussion :

[ninette24]

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 :

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

[Commodore]

salut!
as-tu un message d'erreur ?

[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

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

[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

[Commodore]

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

[fring]

Bonjour tlm,

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

Code :

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

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

[ninette24]

Voilà le fichier!!

http://cjoint.com/?fxpQPC1Tzz

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

Mais à tout hasard y a til plus rapide????

[Invité]

Bonjour,

Fring a écrit :

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 :

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

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.

[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

[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