Calvus
XLDnaute Barbatruc
Bonjour le forum,
Avant de poster un fichier, pouvez vous me dire si vous voyez une raison du non fonctionnement du code ci-dessous ?
Est ce dû à une mauvaise déclaration ou à la formulation ? Ce qui serait étonnant car le même type de calcul se fait sur les autres lignes de code.
La dernière variable (valtemp), et elle seulement renvoie Nothing, alors que toutes les autres ont des valeurs positives.
Merci de votre aide
Avant de poster un fichier, pouvez vous me dire si vous voyez une raison du non fonctionnement du code ci-dessous ?
Est ce dû à une mauvaise déclaration ou à la formulation ? Ce qui serait étonnant car le même type de calcul se fait sur les autres lignes de code.
VB:
Dim cl As Range, cbl, cbl2, cbl3, cblaa, cbla, cbla1, stock, cel, stockval As Range, val As Range, valtemp As Range
Set stockval = Feuil24.Columns(3).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(cel).Offset(, 6) 'stockval = quantité en feuille stock
Set val = cel.Offset(, 2) 'quantité en BL
If cel.Offset(, -2) = "" And cel <> "" Then
Feuil34.Range("C" & Lg) = cel
If val > stockval Then
Feuil34.Range("E" & Lg) = val - stockval
Set df = Feuil34.Range("E" & Lg)
Set valtemp = val - df
La dernière variable (valtemp), et elle seulement renvoie Nothing, alors que toutes les autres ont des valeurs positives.
Merci de votre aide