Optimisation de code

Bonjour,

j ai un code qui fonctionne, mais une partie prend plus d une minute a compiler et j aimerais essayer de l optimiser.
Explication de mon code :
Stock est un tableau a 2 colonnes, une sur laquelle j effectue une recherche, et une ou je vais chercher la valeur voulue. Il est rempli a partir de Classeur1. Le code suivant s effectue sur Classeur2.

Code:

---

1 2 3 4 5 6 7 8 9

For Each Cell In Range(Cells(7, 1), Cells(1100, 1)) For w = 7 To 1100 If Cell.Value = Stock(0, w) Then 'on cherche la valeur correspondante 'de la ligne 0 du tableau Stock Cells(Cell.Row, 4).Value = Stock(1, w) 'on recopie la valeur voulue 'contenue dans la ligne 1 du tableau Stock End If Next Next

---

Mon idee etait de sotcker dans un tableau intermediaire (Stock) mes valeurs pour ne pas activer 1000 fois de suite Classeur1 puis Classeur2.
J ai bien essaye de passer par la methode .Find mais je suis bloquee avec mon tableau Stock. J obtiens des erreurs du type "object required".
Je ne m y connais pas enormement et donc une autre idee d optimisation ne me saute pas aux yeux.

Merci d avance si quelqu un a une petite idee pour m aider !

Bonjour,

essaies de voir ce tutoriel, en travaillant en variables tableaux pures, tu peux parcourir tous les éléments bien plus vite qu'avec une collection de cellules.

vois le code des taxis jaunes aussi.

ainsi que cet autre tutoriel.

cordialement,

Didier

On va limiter les lignes à celle utiles (à la place du 1100), et puis on va instancier la variable Stock en référence à une plage du Classeur1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim wbk1 As Workbook, wbk2 As Workbook Dim Stock As Range, c As Range Dim LastLig As Long, i As Long   Application.ScreenUpdating = False Set wbk1 = Workbooks("tableau.xls") Set wbk2 = ThisWorkbook With wbk1.Sheets("Feuil1") 'à adapter LastLig = .Cells(Rows.Count, 1).End(xlUp).Row Set Stock = .Range("A7:B" & LastLig) End With With wbk2.Sheets("Feuil2") 'à adapter LastLig = .Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To LastLig Set c = Stock.Columns(1).Find(.Range("A" & i).Value, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then .Range("D" & i).Value = c.Offset(0, 1).Value End If Next i End With Set wbk1 = Nothing Set wbk2 = Nothing

---

Edit:
PS: pour ci peu de données, la méthode find est rapide Mais, elle s'applique à des Range et non à des tableaux.

Citation:

---

Cette méthode recherche une information spécifique dans une plage et renvoie un objet Range qui représente la première cellule où cette information apparaît. Cette méthode renvoie la valeur Nothing si l'information n'est pas trouvée. N'affecte ni la sélection ni la cellule active.

Pour plus d'informations sur la fonction de feuille de calcul Find de Visual Basic, consultez Utilisation des fonctions de feuille de calcul dans Visual Basic.

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
expression Obligatoire. Expression qui renvoie un objet Range.

---