Discussion :

[RastaBomboclat]

Bonsoir,

J'ai crée sur excel 2010 un formulaire avec des textbox qui ont un format séparateur de millier. Mais quand la feuille est utilisé sur excel 2013(365) il affiche un message d'érreur.
Aussi, quand un collègue utilisant un séparateur de millier différent du mien (les virgule sont les points et vis-vers-ça), il y a encore un autre message d'erreur.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox9_AfterUpdate()
    TextBox9 = Format(TextBox9, "#,##0.00")
End Sub

Quel code utiliser pourque ça marche meme en excel 2013, comment faire pour que ça marche aussi chez les collègues qui ont une formatation differente que la miènne (. = , et , = .)?
Quelqu'un pourrait-il m'aider à ce sujet?

Merci.

[casefayere]

Bonsoir,

essayes en adaptant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = "." Then KeyAscii = Asc(",")
End Sub

[RastaBomboclat]

Merci Dom Casefayere,

Mais quand ça marche chez les autres, ça ne marche plus chez moi

N'y aurait-il pas un autre code pour completer ou substituer ce dernier?

Rasta Bomboclat

[casefayere]

bonjour,

essayes ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim sepdec
sepdec = Application.International(xlDecimalSeparator)
If Chr(KeyAscii) = "." Or Chr(KeyAscii) = "," Then KeyAscii = Asc(sepdec)
End Sub

[Docmarti]

La fonction CDbl sert à interpréter les nombres écrits avec les paramètres régionaux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub TextBox9_AfterUpdate()
If IsNumeric(TextBox9.Text) Then
    TextBox9.Text = Format(CDbl(TextBox9.Text), "#,##0.00")
  Else
     Stop
   End If
End Sub

[RastaBomboclat]

Effectivement Docmarti

Tu as vraiment tors d'avoir toujours raison. Ça fonctionne chez toute notre équipe.

Franchement...