[E-97]calcul dans un userform

Version imprimable

24/02/2009, 13h35
Chicard

[E-97]calcul dans un userform

Bonjour,

Je possède un usf et dedans j'ai trois textbox. Je cherche remplir ma textbox (Prix_metre) à partir des deux premières (Prix et Superficie).

Donc ma formule est Prix_metre = Prix/superficie.

On m'a donné ceci:

Code:

textbox_prix_m2.Value = CSng(TextBox_Prix.Value) / CSng(TextBox_Superficie.Value)

mais cela n'a pas fonctionné.

Une (autre ou pas) idée?
24/02/2009, 13h44
laetitia

bonjour chicard le forum peut etre comme cela

Code:

textbox_prix_m2 = (Val(TextBox_Prix.Value) / (TextBox_Superficie.value))

Je viens de tester et cela n'a pas fonctionner mais peut-être que c'est moi qui le met pas au bon endroit.

Voilà ou je les ai essayé :

Code:

1
2
3
4
5
6
7
8
9
Private Sub TextBox_Prix_metre_Change()
TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
'TextBox_Prix_metre.Value = CSng(TextBox_Prix.Value) / CSng(TextBox_Superficie.Value)
End Sub
 
'Private Sub TextBox_Prix_metre_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'    TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
'TextBox_Prix_metre.Value = CSng(TextBox_Prix.Value) / CSng(TextBox_Superficie.Value)
'End Sub

24/02/2009, 14h07
fred65200
bonjour à tous, tu peux essayer aussi

Code:

textbox_prix_m2 = TextBox_Prix.Value * 1 / TextBox_Superficie.value * 1

Fais attention à ton séparateur décimal, il faut que ce soit un point.
pour cela utilise ceci pour tes TextBox
Code:

1 2 3 Private Sub TextBox_Prix_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 44 Then KeyAscii = 46 End Sub
cordialement

rebonjour le fil fred65200 le code je l ai mise dans un bouton !! et non dans

Code:

1
2
3
4
5
Private Sub TextBox_Prix_metre_Change()
autrement on peut faire comme cela un ex
textbox1=TextBox_Prix
textbox2=TextBox_Superficie
textbox3=textbox_prix_m2

Code:

1
2
3
4
5
6
7
8
Private Sub TextBox1_Change()
TextBox1.Value = Replace(TextBox1.Value, ",", ".")'si pb ,
If TextBox2 <> "" Then TextBox3 = (Val(TextBox1.Value) / (TextBox2))
End Sub
Private Sub TextBox2_Change()
TextBox2.Value = Replace(TextBox2.Value, ",", ".")'si pb ,
If TextBox1 <> "" Then TextBox3 = (Val(TextBox1.Value) / (TextBox2))
End Sub

Ca passe pas non plus. En fait il faudrait que mon résultat s'affiche soit de suite dans ma textbox soit quand l'indicateur de saisie est dedans.

Voici le code entier qui est dans mon user form ( Attention c'est pas du code propre à l'intérieur);

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Sub CommandButton1_Click()
 '       Feuil1.Cells(2, 1) = ComboBox1.Value
 '       RowSource
 
End Sub
 
Private Sub TextBox_COS_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Date_Change()
  With TextBox_Date
  Select Case Len(.Text)
  Case 2, 5
   .Text = .Text & "/"
  End Select
   End With
End Sub
 
Private Sub TextBox_Date_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Prix_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Prix_metre_Change()
 
'TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
'TextBox_Prix_metre.Value = CSng(TextBox_Prix.Value) / CSng(TextBox_Superficie.Value)
End Sub
 
Private Sub TextBox_Prix_metre_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
'TextBox_Prix_metre = TextBox_Prix.Value * 1 / TextBox_Superficie.Value * 1
'TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value))
End Sub
'Private Sub TextBox_Prix_metre_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'
'TextBox_Prix_metre.Value = CSng(TextBox_Prix.Value) / CSng(TextBox_Superficie.Value)
'End Sub
 
Private Sub TextBox_Prixshon_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Shon_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Spermin_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox_Superficie_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'ne peut taper que des chiffres a adapter
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub UserForm_Initialize()
Dim Tableau As Variant
 
    Tableau = Feuil4.Range("A1:A14").Value
    ComboBox1.List() = Application.Transpose(Tableau)
 
    Tableau2 = Feuil4.Range("C1:C2").Value
    ComboBox2.List() = Application.Transpose(Tableau2)
 
End Sub

24/02/2009, 15h37
fred65200
bonjour,

essai ça qui fonctionne pour moi
Code:

1 2 3 4 Private Sub TextBox_Prix_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox_Prix_metre = (Val(TextBox_Prix.Value) / (TextBox_Superficie.Value)) End Sub
dans le classeur reçu
@+
EDIT tu peux peut être remplacer le TextBox TextBox_Prix_metre par un Label
24/02/2009, 15h41
Chicard

Je vais essayer vos code, mais je me demande si il y a pas un passage de paramètres à faire comme dans d'autre langage style le C++ ;)

Je viens te tester ton code fred et effectivement cela marche. Ja vais quand mêm voir celui de laetitia mais bon le sujet est résolu.

Merci
24/02/2009, 15h46
fred65200

non, à la sortie du TextBox TextBox_Prix_Exit, le TextBox TextBox_Prix_metre va se mettre à jour. Je n'ai pas inclus les conditions si non vide etc..
@+
24/02/2009, 15h48
laetitia

rebonjour je t ais fait un exemple je sais pas a quoi servent les combobox j ai mis le code pour les remplir tu peus ajouter autant de nom que tu veus il prendra en compte j ai renomer lles textbox plus facile "utilisation module de classe" j ai fait le calcul avec val ca marche en attendant dans savoir plus.
les autres textbox a quoi ils servent !!!! les combox envoient les donnees dans les textbox??

rebonjour,
pour améliorer la lecture de ton code, je te propose de créer un module de classe, de le nommer TBClasse
Dans ce module de classe, colle le code suivant

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
Public WithEvents TB As MSForms.TextBox
 
Private Sub TB_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is = 44: KeyAscii = 46                 'remplace la virgule par le point
Case Is < 44, 45, 47, Is > 57: KeyAscii = 0 'n'accepte que les chiffres
End Select
End Sub

dans le module de ton UserForm colle ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
Dim TBClasses() As TBClasse
 
Private Sub CommandButton1_Click()
 '       Feuil1.Cells(2, 1) = ComboBox1.Value
 '       RowSource
End Sub
 
Private Sub TextBox_Date_Change()
With TextBox_Date
    Select Case Len(.Text)
        Case 2, 5:  .Text = .Text & "/"
    End Select
End With
End Sub
 
Private Sub TextBox_Prix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox_Prix.Value = "" And Not TextBox_Superficie = "" Then _
    TextBox_Prix_metre = Format(Val(TextBox_Prix.Value) / (TextBox_Superficie.Value), "#.00")
End Sub
 
Private Sub UserForm_Initialize()
Dim TabTB As Variant
Dim Tableau As Variant
Dim Tableau2 As Variant
Dim i As Long
TabTB = Array("TextBox_COS", "TextBox_Date", "TextBox_Prix", _
    "TextBox_Prixshon", "TextBox_Shon", "TextBox_Spermin", _
    "TextBox_Superficie")
 
For i = 1 To UBound(TabTB)
   ReDim Preserve TBClasses(1 To i)
    Set TBClasses(i) = New TBClasse
    Set TBClasses(i).TB = Me.Controls(TabTB(i))
Next i
 
'le nom «nature_terrain» est définie comme ceci =DECALER(choix!$A$1;;;NBVAL(choix!$A:$A))
    Tableau = Feuil4.Range("nature_terrain").Value
    ComboBox1.List() = Tableau
    ComboBox1.ListIndex = 0
'tu peux supprimer le nom Photo
    Tableau2 = Array("Oui", "Non", "En attente")
    ComboBox2.List() = Tableau2
    ComboBox2.ListIndex = 1
 
 
End Sub

@+

edit un petit +

Code:

1
2
3
4
Private Sub TextBox_Prix_metre_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox_Prix.Value = "" And Not TextBox_Superficie = "" Then _
    TextBox_Prix = Format(Val(TextBox_Prix_metre.Value) * (TextBox_Superficie.Value), "#.00")
End Sub

24/02/2009, 18h38
Chicard

Merci pour tout e mal que vous vous donnez mais je cehrcher juste à avoir le résultat de la formule.

Pour le remplacement de la virgule par le pooint je sais pas si je vais le garder car on reste sur des nombres entier (mais on sait jamais.

Pour laetitia , mes combo ne remplisse pas mes textbox. Elles (les combo) e servent à sélectionner des données prédéfini.