spv54
Messages postés27Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention21 septembre 2008
-
7 avril 2008 à 08:49
spv54
Messages postés27Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention21 septembre 2008
-
7 avril 2008 à 17:42
Bonjour
voici mon pb
j'ai 3 textbox et je veux que la trois soit le resultat de la textbox 1 et 2 qq soit le signe de l'operation
lorsque je rentre mes valeurs rien ne se passe je comprends pas
voci mon prog:
Dim longueur As Long
Dim largeur As Long
Dim surface As Long
spv54
Messages postés27Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention21 septembre 2008 7 avril 2008 à 09:20
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
spv54
Messages postés27Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention21 septembre 2008 7 avril 2008 à 17:42
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.