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