Moyenne macro avec 2 TextBox

[mikael2235]

Bonjour,

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

J'ai essayé ceci :

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 :

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]

Re : Moyenne macro avec 2 TextBox

Calcul Brut

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

 

[Pierrot93]

Re : Moyenne macro avec 2 TextBox

Bonjour,

essaye peut être ainsi :

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

bon après midi
@+

 

[mikael2235]

Re : Moyenne macro avec 2 TextBox

Calcul Brut

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

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

Bonjour,

essaye peut être ainsi :

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]

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]

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]

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]

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]

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...

Dim x As String
x = Application.DecimalSeparator

bon après midi
@+

 

[Pierrot93]

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é :

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]

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é :

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]

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]

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 ?

x = Application.DecimalSeparator

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

 

[Pierrot93]

Re : Moyenne macro avec 2 TextBox

Re,

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

 

[Pierrot93]

Re : Moyenne macro avec 2 TextBox

Re,

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

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..

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

bonne soirée
@+