Discussion :

[cecyl]

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 :

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

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 !

[Didier Gonard]

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

[mercatog]

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 :

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

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.