amélioration du code

[ericquad.com]

Salut à tous
J’ai écrit le code si dessous
En copier coller des bouts de code du forum
Mais c'est long comme la misère
Avez vous des astuces pour l’améliorer
C’est une partie d'un facturier qui me gère le stock en deduisant les ventes du stock existant le programme travaille sur 2 feuilles
20 lignes de ventes et 10000 références
Merci Eric



Dim ref As Variant
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Dim i As Long
Dim qv As Integer

For i = 24 To 44

qv = Worksheets("facture").Range("v" & i).Value
ref = Worksheets("facture").Range("c" & i).Value
Worksheets("Produits").Select
Set celluletrouvee = Range("A1:A10000").Find(ref, LookIn:=xlValues)
ligne = celluletrouvee.Row
col = celluletrouvee.Column
col = col + 3
Cells(ligne, col) = qv

Next

 

[Papou-net]

Re : amélioration du code

Bonsoi ericquad.com,

Qu'est-ce qui est long comme la misère : l'exécution de la macro ?

Tu peux tenter de simplifier ainsi :

Dim celluletrouvee As Range

Worksheets("Produits").Select
For i = 24 To 44
  Set celluletrouvee = Range("A1:A10000").Find(Worksheets("facture").Range("c" & i).Value, LookIn:=xlValues)
  Cells(celluletrouvee.Row, celluletrouvee.Column) = Worksheets("facture").Range("v" & i).Value
Next

Espérant avoir aidé.

Cordialement.