Pb valeur numérique ???

[Roni95]

Bonjour LE forum,

J'ai un problème de valeur numérique dans ma feuille excel (colonne O "Montant"). Lorsque je saisie via mon userform des valeurs avec une virgules et bien une fois dans ma feuille, il m'est impossible de les additionner. Je ne peux additionner que les valeurs sans virgules.

Voici le code de ma feuille:


Private Sub calcul()
erreur = 0
If (TextBox15.Value = "" Or TextBox15.Value = " ") Then TextBox15.Value = 0
If IsNumeric(TextBox14.Value) And IsNumeric(TextBox51.Value) And IsNumeric(TextBox15.Value) Then
TextBox52.Value = CCur(TextBox14.Value) * CCur(TextBox51.Value) * (1 - (CCur(TextBox15.Value) / 100))
Else
Call MsgBox("Le Pourcentage de remise, le prix et la quantité doivent être numérique", vbCritical, Application.Name)
erreur = 1
End If
If TextBox15.Value = 0 Then TextBox15.Value = ""
End Sub

MERCI a TOUS !🙂

 

[Roland_M]

Re : Pb valeur numérique ???

bonjour

si du côté Vb tu colles dans une cellule une valeur avec une virgule elle est considérée comme du texte !
il faut utiliser exemple Val(TextBox)

 

[jp14]

Re : Pb valeur numérique ???

Bonjour

Eventuellement il faut remplacer le point du clavier numérique par une virgule.
Pour enregistrer il faut faire l'inverse

JP

 

[Roni95]

Re : Pb valeur numérique ???

Merci à vous deux !

Mais le point du clavier numérique affiche déjà la virgule et le code a l'air juste???

😕

 

[Roland_M]

Re : Pb valeur numérique ???

re:

voir dans ton code ici: = Me.Controls("Textbox" & j + off2) avec Val()

With Sheets(£nomfeuil)
For j = 1 To nbcontrole
Select Case j + off2
Case Else
.Cells(£lig, j + off1) = Val(Me.Controls("Textbox" & j + off2))
End Select
Next j
End With

 

[Roni95]

Re : Pb valeur numérique ???

ça ne fonctionne pas 🙁

 

[Roland_M]

Re : Pb valeur numérique ???

re:

serait'il possible de joindre ton classeur (voir zippé) !?

 

[Roni95]

Re : Pb valeur numérique ???

Le voici !

 

[Roland_M]

Re : Pb valeur numérique ???

re:

il y a dû y avoir une mauvaise manip car il n'y a pas de fichier !?

 

[Roni95]

Re : Pb valeur numérique ???

Le voici, désolé !😱

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[jp14]

Re : Pb valeur numérique ???

Bonsoir le fil

Le problème provient du séparateur décimal, dans excel on utilise le point qui est transformé en virgule.

Pour faire des calculs en vba il faut la virgule comme séparateur. La touche point n'étant pas transformé en virgule dans un textbox il faut donc remplacer le point par une virgule.

Lors de l'enregistrement il faut que le séparateur soit un point pour que dans la feuille le système le transforme en virgule.

JP

 

[Roni95]

Re : Pb valeur numérique ???

Merci JP

Mais la cellule "montant" se calcule automatiquement et donc elle prend en compte le prix donc si le prix est avec une virgule, le montant s'affiche avec la virgule aussi.

J'ai essayé en modifiant le prix avec un point mais j'ai le message " valeur numérique...."

😕

 

[jp14]

Re : Pb valeur numérique ???

Bonsoir

Il faut rajouter dans la procédure calcul

Private Sub calcul()
erreur = 0
TextBox51.Value = Replace(TextBox51.Value, ".", ",")

TextBox14.Value = Replace(TextBox14.Value, ".", ",")' a rajouter

JP

 

[Roni95]

Re : Pb valeur numérique ???

J'ai complété cette partie:

Private Sub calcul()
erreur = 0
If (TextBox15.Value = "" Or TextBox15.Value = " ") Then TextBox15.Value = 0
If IsNumeric(TextBox14.Value) And IsNumeric(TextBox51.Value) And IsNumeric(TextBox15.Value) Then
TextBox52.Value = CCur(TextBox14.Value) * CCur(TextBox51.Value) * (1 - (CCur(TextBox15.Value) / 100))
Else
Call MsgBox("Le Pourcentage de remise, le prix et la quantité doivent être numérique", vbCritical, Application.Name)
erreur = 1
End If
If TextBox15.Value = 0 Then TextBox15.Value = ""
TextBox51.Value = Replace(TextBox51.Value, ".", ",")

TextBox14.Value = Replace(TextBox14.Value, ".", ",")
End Sub

Mais pas de changement 😕

 

[jp14]

Re : Pb valeur numérique ???

Bonjour

Il faut mettre les lignes de code avant les tests

Private Sub calcul()
erreur = 0
If (TextBox15.Value = "" Or TextBox15.Value = " ") Then TextBox15.Value = 0
[B][COLOR="Red"]TextBox51.Value = Replace(TextBox51.Value, ".", ",")

TextBox14.Value = Replace(TextBox14.Value, ".", ",")[/COLOR][/B]
If IsNumeric(TextBox14.Value) And IsNumeric(TextBox51.Value) And IsNumeric(TextBox15.Value) Then
    TextBox52.Value = CCur(TextBox14.Value) * CCur(TextBox51.Value) * (1 - (CCur(TextBox15.Value) / 100))
Else
    Call MsgBox("Le Pourcentage de remise, le prix et la quantité doivent être numérique", vbCritical, Application.Name)
    erreur = 1
End If

End Sub

JP