Bonjour
j ai un probleme sur un fichier que j utilisais sur une autre machine qui utilise des macros.
Lorsque je lance la spdsheet, ca ouvre le debugger et affiche le message:
Compile error:
can't find project or library
En me baladant sur le net, j ai cru comprendre qu en allant ds Tools/References j allais trouver des "missings", mais la case references est en gris et inaccessible..
Voici la macro qui ne marche plus..des que j ouvre le fichier, ca surligne la ligne "temp
=========================================================
Function BlendFlashPoint(FP As Range, BT As Range, GR As Range)
' FP : Flash Point des components
' BT : Blend Tonnes des components
' GR : API Gravity des components
Dim MW(6), PctW(6), CI(6), BI, SumBT As Double
' MW : molecular Weight
' PctW : %Weight
' CI : Component Index
' BI : Blend Index
Dim IntI As Integer
Dim Size_FP As Integer
Size_FP = FP.Count
If (Size_FP <> BT.Count Or Size_FP <> GR.Count) Then
BlendFlashPoint = "Array Size Pb"
GoTo Fin
End If
IntI = Size_FP
While GR(IntI) = 0 Or GR(IntI) = ""
Size_FP = Size_FP - 1
IntI = IntI - 1
Wend
SumBT = 0
For IntI = 1 To Size_FP
SumBT = SumBT + BT(IntI)
Next IntI
For IntI = 1 To Size_FP
temp = 32 + FP(IntI) * 9 / 5
MW(IntI) = 7000 / GR(IntI)
CI(IntI) = Exp(8500 / (460 + temp) - 11.486)
PctW(IntI) = BT(IntI) / SumBT
Next IntI
BI = 0
temp = 0
For IntI = 1 To Size_FP
BI = BI + PctW(IntI) / MW(IntI) * CI(IntI)
temp = temp + PctW(IntI) / MW(IntI)
Next IntI
BI = BI / temp
BlendFlashPoint = 8500 / (Log(BI) + 11.486) - 460 'Degrés Fahrenheit
BlendFlashPoint = (BlendFlashPoint - 32) * 5 / 9 'Degrés Celcius
Fin:
End Function
============================================
Si quelqu un a une solution, elle est la bienvenue..;-)
j ai un probleme sur un fichier que j utilisais sur une autre machine qui utilise des macros.
Lorsque je lance la spdsheet, ca ouvre le debugger et affiche le message:
Compile error:
can't find project or library
En me baladant sur le net, j ai cru comprendre qu en allant ds Tools/References j allais trouver des "missings", mais la case references est en gris et inaccessible..
Voici la macro qui ne marche plus..des que j ouvre le fichier, ca surligne la ligne "temp
=========================================================
Function BlendFlashPoint(FP As Range, BT As Range, GR As Range)
' FP : Flash Point des components
' BT : Blend Tonnes des components
' GR : API Gravity des components
Dim MW(6), PctW(6), CI(6), BI, SumBT As Double
' MW : molecular Weight
' PctW : %Weight
' CI : Component Index
' BI : Blend Index
Dim IntI As Integer
Dim Size_FP As Integer
Size_FP = FP.Count
If (Size_FP <> BT.Count Or Size_FP <> GR.Count) Then
BlendFlashPoint = "Array Size Pb"
GoTo Fin
End If
IntI = Size_FP
While GR(IntI) = 0 Or GR(IntI) = ""
Size_FP = Size_FP - 1
IntI = IntI - 1
Wend
SumBT = 0
For IntI = 1 To Size_FP
SumBT = SumBT + BT(IntI)
Next IntI
For IntI = 1 To Size_FP
temp = 32 + FP(IntI) * 9 / 5
MW(IntI) = 7000 / GR(IntI)
CI(IntI) = Exp(8500 / (460 + temp) - 11.486)
PctW(IntI) = BT(IntI) / SumBT
Next IntI
BI = 0
temp = 0
For IntI = 1 To Size_FP
BI = BI + PctW(IntI) / MW(IntI) * CI(IntI)
temp = temp + PctW(IntI) / MW(IntI)
Next IntI
BI = BI / temp
BlendFlashPoint = 8500 / (Log(BI) + 11.486) - 460 'Degrés Fahrenheit
BlendFlashPoint = (BlendFlashPoint - 32) * 5 / 9 'Degrés Celcius
Fin:
End Function
============================================
Si quelqu un a une solution, elle est la bienvenue..;-)
