quand j'insere
Text3.Text = CStr(surface(CLng(Text1.Text), CLng(Text2.Text)))
dans ma form load
et que j'execute mon prog j'ai une erreure de compilation il met tableau attendu et met surface en surbrillance.
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Public Function ConversE(Quoi) As Double
On Error Resume Next
Quoi = CDbl(Quoi)
If Err.Number <> 0 Then
Err.Clear
ConversE = Replace(CStr(Quoi), ",", ".")
Else
ConversE = Quoi
End If
End Function
Function Surface(largeur as long, longueur as long) as long
surface= largeur * longueur
End Function
En fait ce que je veux faire c'est
dans ma combobox je choisi un item
cet item va me donner le prix d'un de mes produits au m².
de la j'ai besoins de rentrer les dimensions longueur et largeur que mon clients me demmande pour calculer une surface en m² pour le produit selectionner et en trouver son tarif.
normalement je vais calculer toujours sur ma form load.