Racine carré dans formule mathématique

[Laurent313131]

Bonjour,

Je dois intégrer dans un code, la formule suivante :

Puissance = poids * 2,2136 * racine carré de la hauteur en mètres * gravité

Voici ma proposition qui ne marche pas.

val2 = (Donnees.TextBox64.Value) * 2.2136 * Sqr(val) * 9.81

Je pense que ça buge au niveau du Sqr car mon argument n'est pas un nombre et l'orsque je fais
val2 = (Donnees.TextBox64.Value) * 2.2136 * 9.81, je n'ai aucun message d'erreur.

Pour info:
val = Application.Average(TextBox65.Value, TextBox67.Value, TextBox68.Value)

MErci

 

[jeanpierre]

Re : Racine carré dans formule mathématique

Bonjour Laurent313131,

Remplace Sqr par Sqrt

Bon après-midi.

Jean-Pierre

 

[GIBI]

Re : Racine carré dans formule mathématique

Bonjour,

tu donnes la réponse la valeur VAL doit être invalide Non numérique, vide ou négative.

vérifie la valeur de val en mode pas à pas ou en faisant des MSGBOX

GIBI

 

[PascalXLD]

Re : Racine carré dans formule mathématique

Bonjour

perso je pense que c'est bien sqr

sinon Val est un mot reservé de VBA c'est une fonction

 

[PascalXLD]

Re : Racine carré dans formule mathématique

re

essaies

toto = Application.Average(Val(TextBox65.Value), val(TextBox67.Value), val(TextBox68.Value))

ou suivant

toto = Application.Average(CDbl(TextBox65.Value), CDbl(TextBox67.Value), CDbl(TextBox68.Value))

puis

val2 = val((Donnees.TextBox64.Value)) * 2.2136 * Sqr(toto) * 9.81

ou


val2 = CDbl((Donnees.TextBox64.Value)) * 2.2136 * Sqr(toto) * 9.81

 

[Laurent313131]

Re : Racine carré dans formule mathématique

Merci pour vos réponses !

Jean Pierre : avec Sqrt, j'ai un message d'erreur qui me dit : Erreur de compilation, Sub ou Fonction non définie.

Gibi : en utilisant la touche F8, le message précédent apparaît d'entrée, à la 1ère pression sur F8

Pascal : je n'arrive pas à le faire marcher.

Voici mon code complet :


'Calcul de la puissance des membres <
Private Sub CommandButton32_Click()
Dim val
Dim val2
Dim val3
Dim dl1 As Integer

'calcul de la hauteur moyenne de saut

If IsNumeric(TextBox65.Value) And IsNumeric(TextBox67.Value) And IsNumeric(TextBox68.Value) Then

val = Application.Average(TextBox65.Value, TextBox67.Value, TextBox68.Value)

Else

MsgBox "Veuillez remplacer les . par des ,", vbExclamation, "Erreur de saisie"

Exit Sub

End If

'calcul de la puissance
dl1 = Cells(20, 30).End(xlUp).Row + 1
val2 = (Donnees.TextBox64.Value) * 2.2136 * 9.81 * Sqrt(val)

'calcul de la puissance relative
val3 = val2 / Donnees.TextBox64.Value

Cells(dl1, 30) = val2
Cells(dl1, 31) = val3

End Sub

 

[PascalXLD]

Re : Racine carré dans formule mathématique

Re
tu utilises toujours Val comme nom de varaible alors que c'est reservé à VBA tu n'as pas le droit de l'utiliser

 

[PascalXLD]

Re : Racine carré dans formule mathématique

RE

essaies ceci car sans fichier difficile de faire les tests

'Calcul de la puissance des membres <
Private Sub CommandButton32_Click()
Dim val1
Dim val2
Dim val3
Dim dl1 As Integer

'calcul de la hauteur moyenne de saut

If IsNumeric(TextBox65.Value) And IsNumeric(TextBox67.Value) And IsNumeric(TextBox68.Value) Then

val1 = Application.Average(TextBox65.Value, TextBox67.Value, TextBox68.Value)

Else

MsgBox "Veuillez remplacer les . par des ,", vbExclamation, "Erreur de saisie"

Exit Sub

End If

'calcul de la puissance
dl1 = Cells(20, 30).End(xlUp).Row + 1
val2 = (Donnees.TextBox64.Value) * 2.2136 * 9.81 * Sqr(val1)

'calcul de la puissance relative
val3 = val2 / Donnees.TextBox64.Value

Cells(dl1, 30) = val2
Cells(dl1, 31) = val3

End Sub

 

[Laurent313131]

Re : Racine carré dans formule mathématique

re,

toujours pas ... j'ai mi le fichier en pièce jointe il doit y avoir surement une erreur ailleurs.

Merci.

 

[PascalXLD]

Re : Racine carré dans formule mathématique

RE

Voici ton fichier modifié

 

[Laurent313131]

Re : Racine carré dans formule mathématique

Tu vas pas me croire mais il m'affiche 0 dans les cases que je rentre les valeurs dans les textbox avec des . ou des ,

C'est totalement incompréhensible !

 

[Fo_rum]

Re : Racine carré dans formule mathématique

Salut,

Déclarations pour déclarations, autant choisir les plus intéressantes.

Comme tu auras des nombres à virgule, essaie :

Private Sub CommandButton32_Click()
Dim val1 As Double
Dim val2 As Double
Dim val3 As Double
Dim dl1 As Integer

'calcul de la hauteur moyenne de saut

If IsNumeric(TextBox65.Value) And IsNumeric(TextBox67.Value) And IsNumeric(TextBox68.Value) Then
  val1 = Application.Average(CDbl(TextBox65.Value), CDbl(TextBox67.Value), CDbl(TextBox68.Value))
Else
  MsgBox "Veuillez remplacer les . par des ,", vbExclamation, "Erreur de saisie"
  TextBox65 = ""
  TextBox67 = ""
  TextBox68 = ""
  Exit Sub
End If
'calcul de la puissance relative
  val3 = 2.2136 * 9.81 * Sqr(val1)
'calcul de la puissance
  val2 = CDbl(TextBox64.Value) * val3
  TextBox69 = val1
  TextBox66 = val3
  dl1 = Cells(20, 30).End(xlUp).Row + 1
  Cells(dl1, 30) = val2
  Cells(dl1, 31) = val3
End Sub

 

[PascalXLD]

Re : Racine carré dans formule mathématique

re

c'est bizarre moi j'avais des valeurs dans les cases

 

[kjin]

Re : Racine carré dans formule mathématique

Bonsoir laurent313131
https://www.excel-downloads.com/threads/moyenne-de-textbox.110708/
Tu as sans doute jugé inutile de répondre !
kjin

 

[Laurent313131]

Re : Racine carré dans formule mathématique

Merci Fo-Rum ça marche niquel !!!

J'ai juste une dernière question : dans mes textbox, je suis obligé de saisir mes valeurs avec des virgules car si je mets des points ça plante. Est-il possible de saisir des valeurs décimales avec des points sans que ça plante ?

Merci !!