Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Me.Label6.Caption = ValCel / CDbl(Me.TextBox4)
Me.Label6.Caption = ValCel / CDbl(Me.TextBox4)
Me.Label6.Caption = ValCel / CDbl(Me.TextBox4)
Bonjour,
Tout dépend du contenu de ton textbox : la division par zéro est
interdite, donc il faut faire un test:
Private Sub TextBox4_Change()
If IsNumeric(TextBox4) And TextBox4 <> 0 Then
Label6.Caption = ActiveCell.Value / TextBox4.Value
Else
Label6.Caption = 0
End If
End Sub
Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress
A+
Benead
Patou a écrit :Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour,
Tout dépend du contenu de ton textbox : la division par zéro est
interdite, donc il faut faire un test:
Private Sub TextBox4_Change()
If IsNumeric(TextBox4) And TextBox4 <> 0 Then
Label6.Caption = ActiveCell.Value / TextBox4.Value
Else
Label6.Caption = 0
End If
End Sub
Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress
A+
Benead
Patou a écrit :
Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Bonjour,
Tout dépend du contenu de ton textbox : la division par zéro est
interdite, donc il faut faire un test:
Private Sub TextBox4_Change()
If IsNumeric(TextBox4) And TextBox4 <> 0 Then
Label6.Caption = ActiveCell.Value / TextBox4.Value
Else
Label6.Caption = 0
End If
End Sub
Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress
A+
Benead
Patou a écrit :Bonjour à tous,
J'ai un User Form qui contient 4 TextBox.
Le premier correspond à une addition, le deuxième une soustraction, le
troisième une multiplication et le dernier une division.
Les trois premiers fonctionnent parfaitement la
division(textbox4-change) plante. ???
Cidessous le deux derniers Multiplication et division
D'avance merci
Patrick
Private Sub TextBox3_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6
.Caption = ValCel * TextBox3.Value
End With
End Sub
Private Sub TextBox4_Change()
Dim ValCel
ValCel = ActiveCell.Value
With Label6.Caption = ValCel / TextBox4.Value
End With
End Sub
Idéalement il faut interdire toute saisie non numérique (+ séparateurdécimal) grâce à l'événement TextBox4_KeyPress
Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress
Idéalement il faut interdire toute saisie non numérique (+ séparateurdécimal) grâce à l'événement TextBox4_KeyPress
Idéalement il faut interdire toute saisie non numérique (+ séparateurdécimal) grâce à l'événement TextBox4_KeyPress
Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress
Idéalement il faut interdire toute saisie non numérique (+ séparateurdécimal) grâce à l'événement TextBox4_KeyPress
> Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
bonjour Patou,
c'est pour forcer la valeur "texte" du TexBox (par exemple "8") a être reconnu
comme étant numérique (8)
Fonction Type renvoyé Plage de valeurs de l'argument expression
CBool Boolean <javascript:hhobj_9.Click()> Toute chaîne ou expression
numérique valide.
CByte Byte <javascript:hhobj_10.Click()> 0 à 255.
CCur Currency <javascript:hhobj_11.Click()> -922 337 203 685 477,5808 à 922
337 203 685 477,5807.
CDate Date <javascript:hhobj_12.Click()> Toute expression de date valide.
<javascript:hhobj_13.Click()>
CDbl Double <javascript:hhobj_14.Click()> -1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à
1,79769313486232E308 pour les valeurs positives.
CDec Decimal <javascript:hhobj_15.Click()> +/-79 228 162 514 264 337 593 543
950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28
décimales est
+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est
0,0000000000000000000000000001.
CInt Integer <javascript:hhobj_16.Click()> -32 768 à 32 767 ; les fractions
sont arrondies.
CLng Long <javascript:hhobj_17.Click()> -2 147 483 648 à 2 147 483 647 ; les
fractions sont arrondies.
CSng Single <javascript:hhobj_18.Click()> -3,402823E38 à -1,401298E-45 pour
les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives.
CStr String <javascript:hhobj_19.Click()> Les valeurs renvoyées par la
fonction Cstr dépendent de l'argument expression.
<mk:@MSITStore:C:%5CPROGRA%7E1%5CFICHIE%7E1%5CMICROS%7E1%5CVBA%5CVBA6%5C1036%5
CVbLR6.chm::/html/defcstrreturnstable.htm>
CVar Variant <javascript:hhobj_20.Click()> Même plage de valeurs que le type
Double pour les nombres et que le type String pour les chaînes non numériques.
isabelle
Patou a écrit :
Et en plus ça marche!
Elle est forte cette Isabelle!
Par contre, j'ai pas compris le rôle de CDbl?
Merci infiniment isabelle
Patrick
Le 15/08/09 18:14, dans #, « isabelle »
a écrit :
Me.Label6.Caption = ValCel / CDbl(Me.TextBox4)
> Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
bonjour Patou,
c'est pour forcer la valeur "texte" du TexBox (par exemple "8") a être reconnu
comme étant numérique (8)
Fonction Type renvoyé Plage de valeurs de l'argument expression
CBool Boolean <javascript:hhobj_9.Click()> Toute chaîne ou expression
numérique valide.
CByte Byte <javascript:hhobj_10.Click()> 0 à 255.
CCur Currency <javascript:hhobj_11.Click()> -922 337 203 685 477,5808 à 922
337 203 685 477,5807.
CDate Date <javascript:hhobj_12.Click()> Toute expression de date valide.
<javascript:hhobj_13.Click()>
CDbl Double <javascript:hhobj_14.Click()> -1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à
1,79769313486232E308 pour les valeurs positives.
CDec Decimal <javascript:hhobj_15.Click()> +/-79 228 162 514 264 337 593 543
950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28
décimales est
+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est
0,0000000000000000000000000001.
CInt Integer <javascript:hhobj_16.Click()> -32 768 à 32 767 ; les fractions
sont arrondies.
CLng Long <javascript:hhobj_17.Click()> -2 147 483 648 à 2 147 483 647 ; les
fractions sont arrondies.
CSng Single <javascript:hhobj_18.Click()> -3,402823E38 à -1,401298E-45 pour
les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives.
CStr String <javascript:hhobj_19.Click()> Les valeurs renvoyées par la
fonction Cstr dépendent de l'argument expression.
<mk:@MSITStore:C:%5CPROGRA%7E1%5CFICHIE%7E1%5CMICROS%7E1%5CVBA%5CVBA6%5C1036%5
CVbLR6.chm::/html/defcstrreturnstable.htm>
CVar Variant <javascript:hhobj_20.Click()> Même plage de valeurs que le type
Double pour les nombres et que le type String pour les chaînes non numériques.
isabelle
Patou a écrit :
Et en plus ça marche!
Elle est forte cette Isabelle!
Par contre, j'ai pas compris le rôle de CDbl?
Merci infiniment isabelle
Patrick
Le 15/08/09 18:14, dans #4dhSPcHKHA.3708@TK2MSFTNGP02.phx.gbl, « isabelle »
<i@v> a écrit :
Me.Label6.Caption = ValCel / CDbl(Me.TextBox4)
> Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
bonjour Patou,
c'est pour forcer la valeur "texte" du TexBox (par exemple "8") a être reconnu
comme étant numérique (8)
Fonction Type renvoyé Plage de valeurs de l'argument expression
CBool Boolean <javascript:hhobj_9.Click()> Toute chaîne ou expression
numérique valide.
CByte Byte <javascript:hhobj_10.Click()> 0 à 255.
CCur Currency <javascript:hhobj_11.Click()> -922 337 203 685 477,5808 à 922
337 203 685 477,5807.
CDate Date <javascript:hhobj_12.Click()> Toute expression de date valide.
<javascript:hhobj_13.Click()>
CDbl Double <javascript:hhobj_14.Click()> -1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à
1,79769313486232E308 pour les valeurs positives.
CDec Decimal <javascript:hhobj_15.Click()> +/-79 228 162 514 264 337 593 543
950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28
décimales est
+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est
0,0000000000000000000000000001.
CInt Integer <javascript:hhobj_16.Click()> -32 768 à 32 767 ; les fractions
sont arrondies.
CLng Long <javascript:hhobj_17.Click()> -2 147 483 648 à 2 147 483 647 ; les
fractions sont arrondies.
CSng Single <javascript:hhobj_18.Click()> -3,402823E38 à -1,401298E-45 pour
les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives.
CStr String <javascript:hhobj_19.Click()> Les valeurs renvoyées par la
fonction Cstr dépendent de l'argument expression.
<mk:@MSITStore:C:%5CPROGRA%7E1%5CFICHIE%7E1%5CMICROS%7E1%5CVBA%5CVBA6%5C1036%5
CVbLR6.chm::/html/defcstrreturnstable.htm>
CVar Variant <javascript:hhobj_20.Click()> Même plage de valeurs que le type
Double pour les nombres et que le type String pour les chaînes non numériques.
isabelle
Patou a écrit :
Et en plus ça marche!
Elle est forte cette Isabelle!
Par contre, j'ai pas compris le rôle de CDbl?
Merci infiniment isabelle
Patrick
Le 15/08/09 18:14, dans #, « isabelle »
a écrit :
Me.Label6.Caption = ValCel / CDbl(Me.TextBox4)
Un petit exemple :
http://cjoint.com/?ipsRBRrUmM
"Patou" a écrit dans le message de groupe de discussion :
C6ACB034.428%
Une question :
"Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress"
9a se présenterait comment ???
Merci du renseignement
Patrick
Le 15/08/09 18:27, dans C6ACAE83.424%, « Patou »
a écrit :Idéalement il faut interdire toute saisie non numérique (+ séparateurdécimal) grâce à l'événement TextBox4_KeyPress
Un petit exemple :
http://cjoint.com/?ipsRBRrUmM
"Patou" <pastout@orange.fr> a écrit dans le message de groupe de discussion :
C6ACB034.428%pastout@orange.fr...
Une question :
"Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress"
9a se présenterait comment ???
Merci du renseignement
Patrick
Le 15/08/09 18:27, dans C6ACAE83.424%pastout@orange.fr, « Patou »
<pastout@orange.fr> a écrit :
Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress
Un petit exemple :
http://cjoint.com/?ipsRBRrUmM
"Patou" a écrit dans le message de groupe de discussion :
C6ACB034.428%
Une question :
"Idéalement il faut interdire toute saisie non numérique (+ séparateur
décimal) grâce à l'événement TextBox4_KeyPress"
9a se présenterait comment ???
Merci du renseignement
Patrick
Le 15/08/09 18:27, dans C6ACAE83.424%, « Patou »
a écrit :Idéalement il faut interdire toute saisie non numérique (+ séparateurdécimal) grâce à l'événement TextBox4_KeyPress