Erreur VBA à cause du . au lieu de , pour les décimales

[Jacques25]

Bonjour à tous,

Le titre n'est pas forcément des plus clairs donc je m'explique :

A l'aide d'un userform je viens remplir une base de données pour les comptes d'une micro entreprise. Tout se passe bien sauf lorsque j'ai des nombres décimales négatifs.

Dans ma textbox j'indique le montant avec mon pavé numérique avec les résultats suivants :
50 ==> OK saisie 50,00
50.20 ==> OK saisie 50,20
-50 ==> OK saisie -50,00
-50.20 ==> NOK message "incompatibilité de type"

Si dans ma saisie je remplace le . par une , je n'ai pas de soucis mais c'est nettement pratique pour saisir...

Voici mon code (blocage à la ligne ou se trouve les ***:
Private Sub CommandButton1_Click()
Sheets("Saisies").Activate
noligne = Range("A6000").End(xlUp).Row + 1
If TextBox6.Value = "Crédit" Then
Cells(noligne, 1) = CDate(TextBox1.Value)
Cells(noligne, 2) = ComboBox1.Value
Cells(noligne, 3) = TextBox3.Value
Cells(noligne, 4) = TextBox4.Value
If TextBox5.Value <> "" Then
Cells(noligne, 4).AddComment
Cells(noligne, 4).Comment.Text Text:=TextBox5.Value
End If
Cells(noligne, 4).Font.Color = -11489280
Cells(noligne, 5) = TextBox6.Value
End If
If TextBox6.Value = "Débit" Then
Cells(noligne, 1) = CDate(TextBox1.Value)
Cells(noligne, 2) = ComboBox1.Value
Cells(noligne, 3) = TextBox3.Value
*** Cells(noligne, 4) = -TextBox4.Value
If TextBox5.Value <> "" Then
Cells(noligne, 4).AddComment
Cells(noligne, 4).Comment.Text Text:=TextBox5.Value
End If
Cells(noligne, 4).Font.Color = -16776961
Cells(noligne, 5) = TextBox6.Value
End If

Unload UserForm1
Sheets("accueil").Activate
End Sub

Merci pour votre aide à tous.
Bonne fin de journée

Jacques

 

[GI_GI]

Re : Erreur VBA à cause du . au lieu de , pour les décimales

Bonjour
Supprime le- devant TextBox4.value et tout devrait rentrer dans l'ordre.
A+

 

[Dranreb]

Re : Erreur VBA à cause du . au lieu de , pour les décimales

Bonsoir

50.20 ==> OK saisie 50,20

Ça ça m'étonne. Vous êtes sûr ? Ça n'y mettrait pas plutôt le texte "50.20" qui n'a absolument rien à voir avec un nombre ?

Si dans ma saisie je remplace le . par une , je n'ai pas de soucis mais c'est nettement pratique pour saisir...

Alors ajoutez cette procédure :

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

Et un conseil, utilisez CDbl(TextBox4.Text) pour en récupérer la valeur. Alors vous pourrez au passage en inverser le signe quand c'est du débit.
Cordialement.

 

[Si...]

Re : Erreur VBA à cause du . au lieu de , pour les décimales

salut

ou encore, remplacer

Cells(noligne, 4) = -TextBox4.Value

(sans saisir le -) par

  Cells(noligne, 4) = -CDbl(Replace(TextBox4, ".", ","))

 

[Jacques25]

Re : Erreur VBA à cause du . au lieu de , pour les décimales

Bonjour à tous,

Désolé pour la réponse tardive, des petits soucis de connexion...
Merci pour vos réponses je vais essayer ça cette après midi et je vous retiens au courant.

Merci encore et bonne journée.
@ plus

Jacques

 

[Jacques25]

Re : Erreur VBA à cause du . au lieu de , pour les décimales

Re bonjour tout le monde,

J'ai utilise la méthode de Dranreb et Si... et ça marche. Merci de votre aide.

Bon week end à tous.

Jacques.