XL 2021 format cellule

[Marvin57]

Bonjour,

j'ai un soucis avec le format de mes cellules d'une colonne d'un TS.

Cette colonne est remplie via un Usf.

C'est à dire si je veux créer une entrée via le Usf et que saisi dans le textbox5 le nombre 2.552 par exemple il me donne bien en cellule le nombre 2.552. Ces cellules de cette colonne sont au format Nombre.
la ligne code qui sert à créer cela est celle-ci :

    .Item(j, 9) = CDbl(Application.WorksheetFunction.Substitute(TextBox5.Value, ".", ","))

Jusqu'ici tout va bien.

Mais si je veux modifier un de ces nombres manuellement dans la cellule du TS et que je saisi par exemple le nombre 2.955 dans une cellule il me donne 2955.000.

Auriez vous une explication s'il vous plaît.

Merci à vous

 

[cathodique]

Bonjour,

j'ai un soucis avec le format de mes cellules d'une colonne d'un TS.

Cette colonne est remplie via un Usf.

C'est à dire si je veux créer une entrée via le Usf et que saisi dans le textbox5 le nombre 2.552 par exemple il me donne bien en cellule le nombre 2.552. Ces cellules de cette colonne sont au format Nombre.
la ligne code qui sert à créer cela est celle-ci :

    .Item(j, 9) = CDbl(Application.WorksheetFunction.Substitute(TextBox5.Value, ".", ","))

Jusqu'ici tout va bien.

Mais si je veux modifier un de ces nombres manuellement dans la cellule du TS et que je saisi par exemple le nombre 2.955 dans une cellule il me donne 2955.000.

Auriez vous une explication s'il vous plaît.

Merci à vous

Bonjour,

Procédure à ajouter au formulaire pour gérer la saisie.

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
   If KeyAscii = 46 And Not TextBox1 Like "*,*" Then KeyAscii = 44: Exit Sub
   If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Ensuite, lors du transfert, tu fais

 .Item(j, 9) = CDbl(TextBox5.Value)

Bonne journée

 

[Marvin57]

Bonjour,

Procédure à ajouter au formulaire pour gérer la saisie.

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
   If KeyAscii = 46 And Not TextBox1 Like "*,*" Then KeyAscii = 44: Exit Sub
   If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Ensuite, lors du transfert, tu fais

 .Item(j, 9) = CDbl(TextBox5.Value)

Bonne journée

Bonjour et Merci pour votre retour,

mais j'ai un soucis.

votre code fonctionne si je saisi les données par le UserForm. Mais si modifie par exemple un prix manuellement dans le TS cela ne fonctionne pas.

Je joins un fichier modèle si cela peut aider.

 

[cathodique]

Mais si modifie par exemple un prix manuellement dans le TS cela ne fonctionne pas.

Peux-tu être plus explicit. Tu saisis quoi au juste? virgule ou point comme séparateur de décimale.
à ma connaissance si tes paramètres régionaux sont Français, le séparateur est la virgule.

 

[Marvin57]

Peux-tu être plus explicit. Tu saisis quoi au juste? virgule ou point comme séparateur de décimale.
à ma connaissance si tes paramètres régionaux sont Français, le séparateur est la virgule.

Re,
lorsque je saisi un prix je fais par exemple 2.552

Ma version est Office 2021

 

[cathodique]

lorsque je saisi un prix je fais par exemple 2.552

La version n'a rien avoir avec le point (.) ou virgule (,) comme séparateur de décimale.
Si tes paramètres régionaux sont France, alors c'est la virgule. Normalement, lorsque tu tapes le point du pavé numérique (.), il se transforme en (,).

Sinon ajoute ce code à ta feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("P.U.H.T:Valeur Stock")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Replace(Target.Value, ".", ",")
        Application.EnableEvents = True
    End If
End Sub

 

[Marvin57]

La version n'a rien avoir avec le point (.) ou virgule (,) comme séparateur de décimale.
Si tes paramètres régionaux sont France, alors c'est la virgule. Normalement, lorsque tu tapes le point du pavé numérique (.), il se transforme en (,).

Sinon ajoute ce code à ta feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("P.U.H.T:Valeur Stock")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Replace(Target.Value, ".", ",")
        Application.EnableEvents = True
    End If
End Sub

Non, si je tape 2.5 il place bien 2.5 dans la cellule

voici une image capture des options

 

[cathodique]

Non, si je tape 2.5 il place bien 2.5 dans la cellule

voici une image capture des options

Regarde la pièce jointe 1213557

Est-ce que tu as un pavé numérique? Si c'est le cas et que dans les paramètres "Région et langue" du panneau de configuration sont bien paramétrés. Normalement, quand tu tapes le point du pavé numérique, il se transforme en virgule.
Je suis sous Windows 7 et excel 2010. Je ne saurai te guider pour régler ce problème.

Ensuite, si tu n'as pas de pavé numérique sur ta machine. Donc tu utilises la touche Shift ou tu actives la touche Maj pour taper tes chiffes et si utilises le point du clavier. Le rendu sera toujours un point. Sauf, si tu utilises la procédure joint dans mon dernier. Qui s'occupera de remplacer le point par la virgule.
Les options d'excel n'ont rien avoir. Il faut aller voir dans le panneau de configuration de windows.

 

[Marvin57]

Est-ce que tu as un pavé numérique? Si c'est le cas et que dans les paramètres "Région et langue" du panneau de configuration sont bien paramétrés. Normalement, quand tu tapes le point du pavé numérique, il se transforme en virgule.
Je suis sous Windows 7 et excel 2010. Je ne saurai te guider pour régler ce problème.

Ensuite, si tu n'as pas de pavé numérique sur ta machine. Donc tu utilises la touche Shift ou tu actives la touche Maj pour taper tes chiffes et si utilises le point du clavier. Le rendu sera toujours un point. Sauf, si tu utilises la procédure joint dans mon dernier. Qui s'occupera de remplacer le point par la virgule.
Les options d'excel n'ont rien avoir. Il faut aller voir dans le panneau de configuration de windows.

OK je vois cela ce soir et je reviendrai vers toi.
Merci en attendant.
Marvin57

 

[TooFatBoy]

Bonjour,

Les options d'excel n'ont rien avoir. Il faut aller voir dans le panneau de configuration de windows.

Ce n'est pas tout à fait exact : voir la capture d'écran en #7 qui doit être une fenêtre d'Excel. 😉

 

[cathodique]

Bonjour,


Ce n'est pas tout à fait exact : voir la capture d'écran en #7 qui doit être une fenêtre d'Excel. 😉

Bonjour, personnellement je n'ai jamais tripoté les options de mon Excel 2010.
Notre ami, ne nous a pas indiqué si sa machine est dotée d'un pavé numérique.
A-t-il la possibilité de choisir sur son Excel 2021, le séparateur de décimale et le séparateur de milliers?
Et ce, indépendamment de ses paramètres système. Je n'en sais rien.

 

[TooFatBoy]

Notre ami, ne nous a pas indiqué si sa machine est dotée d'un pavé numérique.
A-t-il la possibilité de choisir sur son Excel 2021, le séparateur de décimale et le séparateur de milliers?
Et ce, indépendamment de ses paramètres système. Je n'en sais rien.

Tout à fait. 👍

 

[Marvin57]

Bonjour, personnellement je n'ai jamais tripoté les options de mon Excel 2010.
Notre ami, ne nous a pas indiqué si sa machine est dotée d'un pavé numérique.
A-t-il la possibilité de choisir sur son Excel 2021, le séparateur de décimale et le séparateur de milliers?
Et ce, indépendamment de ses paramètres système. Je n'en sais rien.

Re,

Oui j'ai un pavé. Oui je peux choisir dans les options séparateur décimal et millier.
J'ai décoché le séparateur millier et cela fonctionne maintenant.

Merci à vous pour tous les retours et aides.
Marvin57