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

 

[mikael2235]

Re : Moyenne macro avec 2 TextBox

Merci pierrot,

Ta solution me parait un peu compliqué. Sachant que j'ai environ 32 moyennes, soit 64 textbox !!! 😱

Y-a-t'il un moyen de définir le séparateur de décimale à un point en début de macro ?

Merci

 

[Pierrot93]

Re : Moyenne macro avec 2 TextBox

Bonjour,

il y a :

Application.DecimalSeparator

mais nous avons vu hier, que ce n'était pas applicable à la version 2000.... il existe sans doute une autre solution, mais je ne la connais pas...

bonne journée
@+