Discussion :

[bosk1000]

bonjour a tous

avec ce code je peux trouver une valeur qui correspond au nombre de produit1 en stock

Code :

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

1
2
3
 
NomPièce = produit1.Value
stockact = WorksheetFunction.VLookup(NomPièce, Range("stock"), 3, False)

mais je voudrais pouvoir modifier la valeur à cette emplacement donc comment l'atteindre ?

[aalex_38]

Un exemple avec find :

Code :

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

1
2
3
4
Dim MaPalge As Range
MaRecherche = "titi"
Set MaPalge = Range("stock").Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)
MsgBox MaPalge.Address

[bosk1000]

donc grace a ton code je trouve l'emplacement de la valeur de produit1.
je vais voir si j'arrive à modifier la valeur qui se trouve 2 colonnes après

[bosk1000]

j'ai réussi
j'ai mis

Code :

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

1
2
 
MaPalge.Offset(0, 2).Value = Val(stock_actuel1 - quantité1)