Moyenne macro avec 2 TextBox

mikael2235 · 2 Août 2010

Bonjour,

Je cherche à faire une moyenne avec les valeurs de 2 TextBox.

J'ai essayé ceci :

Code:

Private Sub CommandButton1_Click()
Moyenne1 = Average(UserForm2.TextBox1.Value, UserForm2.TextBox9.Value)
MsgBox (Moyenne1)
End Sub

Mais il me met une erreur

Et j'ai aussi essayé ça :

Code:

Private Sub CommandButton1_Click()
Moyenne1 = "=Average(UserForm2.TextBox1.Value, UserForm2.TextBox9.Value)"
MsgBox (Moyenne1)
End Sub

Mais la il me met ce qui est entre parenthèses.

Merci

Habitude · 2 Août 2010

Re : Moyenne macro avec 2 TextBox

Calcul Brut

Code:

Private Sub CommandButton1_Click()
Moyenne1 = (cdbl(TextBox1) + cdbl(TextBox9))/2
MsgBox (Moyenne1)
End Sub

Pierrot93 · 2 Août 2010

Re : Moyenne macro avec 2 TextBox

Bonjour,

essaye peut être ainsi :

Code:

moyenne1 = Application.Average(CDbl(TextBox1.Value), CDbl(TextBox2.Value))
MsgBox (moyenne1)

bon après midi
@+

mikael2235 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Habitude à dit:
Calcul Brut

Code:

Private Sub CommandButton1_Click() Moyenne1 = (cdbl(TextBox1) + cdbl(TextBox9))/2 MsgBox (Moyenne1) End Sub

Ton code fonctionne, Merci. Mais que veut dire cdbl ?

Pierrot93 à dit:
Bonjour,

essaye peut être ainsi :

Code:

moyenne1 = Application.Average(CDbl(TextBox1.Value), CDbl(TextBox2.Value)) MsgBox (moyenne1)

bon après midi
@+

Merci Pierrot pour ta proposition, mais il met "Incompatibilité de type"

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Bonjour Mikael

ce code fonctionne chez moi, attention j'avais modifié le nom des "textbox"... Sinon qu'avais tu saisi comme valeurs ?

bonne journée
@+

Habitude · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Cdbl converti du texte en nombre

@pierrot
La moyenne est effectuée entre la textbox1 et la textbox9

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

je l'avais précisé, non...

ce code fonctionne chez moi, attention j'avais modifié le nom des "textbox"...

mikael2235 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Tout à fait Pierrot, je n'avais pas vu, d'où l'erreur rencontrée !

Sinon j'ai eu un autre soucis en changeant d'ordinateur, sur certains pc la séparation se fait avec une virgule, et sur d'autres avec un point.

Donc si l'utilisateur tape un point au lieu de la virgule et inversement, il y a l'erreur "Incompatibilité de type"

Savez vous si il est possible de lui spécifier le paramètre par défaut du pc au début de la macro ?
Et sinon comment faire ?

Merci

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Re,

pas ce problème chez moi, mais bon j'ai le "." dans les paramètres régionaux windows, et j'i beau changer dans Excel au niveau des options, onglet "international" le séparateur, ne me renvoie pas d'erreur quelque soit celui employé.... sinon, le code ci-dessous te renverra celui utilisé par Excel...

Code:

Dim x As String
x = Application.DecimalSeparator

bon après midi
@+

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Re,

tu peux essayer ce code à placer en adaptant le nom pour chacune de tes "textbox", n'autorisera que de la saisie numérique avec le séparateur décimal utilisé :

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim x As String
x = Application.DecimalSeparator
If InStr("0123456789" & x, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

mikael2235 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Pierrot93 à dit:
Re,

tu peux essayer ce code à placer en adaptant le nom pour chacune de tes "textbox", n'autorisera que de la saisie numérique avec le séparateur décimal utilisé :

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim x As String x = Application.DecimalSeparator If InStr("0123456789" & x, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

Il me met à chaque fois : Erreur d'éxécution 438, Propriété ou méthode non gérée par cet objet.

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Re,

comprends pas, pas ce problème chez moi sous 2003... tu as bien modifié le nom du textbox ? et placé le code dans le module de l'usf ? quelle ligne provoque cette erreur ?

mikael2235 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Pierrot93 à dit:
Re,

comprends pas, pas ce problème chez moi sous 2003... tu as bien modifié le nom du textbox ? et placé le code dans le module de l'usf ? quelle ligne provoque cette erreur ?

x = Application.DecimalSeparator

Oui pour le reste j'ai bien fait.
Moi c'est Excel2000 !

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Re,

oui, il me semble bien que sous 2000 la propriété "DecimalSeparator" n'existait pas encore....

Pierrot93 · 3 Août 2010

Re : Moyenne macro avec 2 TextBox

Re,

une solutaion ainsi, en gérant l'erreur :

Code:

Private Sub CommandButton1_Click()
Dim moyenne1 As Double
On Error GoTo monerreur
moyenne1 = Application.Average(CDbl(TextBox1.Value), CDbl(TextBox2.Value))
On Error GoTo 0
MsgBox moyenne1
Exit Sub
monerreur:
If Err.Number = 13 Then
    If InStr(TextBox1, ".") > 0 Or InStr(TextBox2, ".") > 0 Then
        TextBox1 = Replace(TextBox1, ".", ",")
        TextBox2 = Replace(TextBox2, ".", ",")
    Else
        TextBox1 = Replace(TextBox1, ",", ".")
        TextBox2 = Replace(TextBox2, ",", ".")
    End If
End If
Resume
End Sub

par contre mettre impérativement ce contrôle de saisie..

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789.,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

bonne soirée
@+

Moyenne macro avec 2 TextBox

mikael2235

XLDnaute Occasionnel

Habitude

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

mikael2235

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Habitude

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

mikael2235

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

mikael2235

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

mikael2235

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Moyenne macro avec 2 TextBox

XLDnaute Occasionnel

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency