Racine carré dans formule mathématique

PascalXLD

XLDnaute Barbatruc

Modérateur

• 17 Janvier 2009

• #16

Re : Racine carré dans formule mathématique

Re

bizarre mais dans mon cas j'avais fiat en sorte de pouvoir mettre les 2 avec ce genre de formule

val2 = (val(Replace(TextBox64.Value, ".", ","))) * 2.2136 * 9.81 * Sqr(val1)

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 17 Janvier 2009

• #17

Re : Racine carré dans formule mathématique

RE

dans l'autre sens tu peux faire

val2 = (CDbl(Replace(TextBox64.Value, ",", "."))) * 2.2136 * 9.81 * Sqr(val1)

 

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 18 Janvier 2009

• #18

Re : Racine carré dans formule mathématique

Bonsoir Pascal,

Ca ne marche pas... Le problème ne vient t'il pas de la partie en gras ?

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(TextBox66.Value) And IsNumeric(TextBox67.Value) Then
val1 = Application.Average(CDbl(TextBox65.Value), CDbl(TextBox66.Value), CDbl(TextBox67.Value))
Else
MsgBox "Veuillez remplacer les . par des ,", vbExclamation, "Erreur de saisie"
TextBox65 = ""
TextBox66 = ""
TextBox67 = ""
Exit Sub
End If

'calcul de la puissance
val2 = CDbl(Donnees.TextBox64.Value) * 2.2136 * 9.81 * Sqr(val1)


TextBox68 = val2
dl1 = Cells(20, 31).End(xlUp).Row + 1
Cells(dl1, 31) = val2

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 18 Janvier 2009

• #19

Re : Racine carré dans formule mathématique

Re

Pourquoi tu ne reprends pas les modèles que je te donne ?

 

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 18 Janvier 2009

• #20

Re : Racine carré dans formule mathématique

C'est ton modèle mon dernier post non ? Je vérifies au cas où :

 

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 18 Janvier 2009

• #21

Re : Racine carré dans formule mathématique

En fait j'ai repris le modèle de Fo_rum car le modèle que tu m as envoyé en archive de marchait pas...

Sur son modèle, j'ai essayé tes 2 dernières propositions mais ça ne marche pas :

val2 = (CDbl(Replace(TextBox64.Value, ",", "."))) * 2.2136 * 9.81 * Sqr(val1)
et
val2 = (val(Replace(TextBox64.Value, ".", ","))) * 2.2136 * 9.81 * Sqr(val1)

Il m'affiche val1=0 !

 

Dernière édition: 18 Janvier 2009

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 18 Janvier 2009

• #22

Re : Racine carré dans formule mathématique

re

tu peux renvoyer le fichier STP que je regarde

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 18 Janvier 2009

• #23

Re : Racine carré dans formule mathématique

Salut,

voilà le genre de code que j'utilise pour saisir 3.5 et 3,5 avec un nombre en retour :

Code:

Private Sub TextBox64_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If (KeyAscii < 48 And KeyAscii <> 46 And KeyAscii <> 44) Or KeyAscii > 57 Then Exit Sub
  If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = Asc(Application.International(xlDecimalSeparator))
End Sub

Bien sûr on peut utiliser "Replace" !

 

Pièces jointes

• Point et Virgule TextBox.zip

  13.2 KB · Affichages: 31

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 18 Janvier 2009

• #24

Re : Racine carré dans formule mathématique

Le voici Pascal !

Notes que j'ai laissé la version qui marche (e.g. sans ta modification avec Replace) pour que tu voies comment il fonctionne ...

Merci !

 

Pièces jointes

• Forom.zip

  47.8 KB · Affichages: 36
• Forom.zip

  47.8 KB · Affichages: 29
• Forom.zip

  47.8 KB · Affichages: 27

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 18 Janvier 2009

• #25

Re : Racine carré dans formule mathématique

RE

le fichier modifié

 

Pièces jointes

• Forom.zip

  38.9 KB · Affichages: 27
• Forom.zip

  38.9 KB · Affichages: 32
• Forom.zip

  38.9 KB · Affichages: 29

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 18 Janvier 2009

• #26

Re : Racine carré dans formule mathématique

Merci Pascal

Juste une petite question : lorsque je rentre une valeur avec un point dans la textbox 'POIDS" ca m'affiche " erreur de saisie" ... pourquoi ? J'aimerais pouvoir saisir un poids avec un point aussi pour séparer les kg des Gr

 

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 18 Janvier 2009

• #27

Re : Racine carré dans formule mathématique

C'est bon j ai trouvé tout seul Ca commence à venir !

1000 merci Pascal !

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 18 Janvier 2009

• #28

Re : Racine carré dans formule mathématique

RE

oups il trainait un textbox64 non converti

 

Pièces jointes

• Forom.zip

  39 KB · Affichages: 32
• Forom.zip

  39 KB · Affichages: 32
• Forom.zip

  39 KB · Affichages: 37

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 18 Janvier 2009

• #29

Re : Racine carré dans formule mathématique

RE

Bon nos posts se sont croisés

 

Vote positif 0 Vote négatif