E
ericquad.com
Guest
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
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