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