Modifier une valeur

[maval]

Bonjour

J'ai besoin de vous pour savoir comment, dans une cellule d'une feuille excel peut on modifier une valeur 1529928 en 1 529 928 ou 6483 en 6 483.

Je vous remercie de votre aide

 

[ted1057]

Re : Modifier une valeur

bonjour,

tu fais click droit sur la cellule
onglet nombre
catégorie nombre
tu coche utiliser le séparateur des millier

 

[maval]

Re : Modifier une valeur

Bonjour Ted1057

Je te remercie Nickel sur mes cellules. J'ai un autre problème similaire lorsque j'envoie mes valeurs sur un Userform, Quel est la ligne de code pour avoir les valeurs en séparateur milliers.

Merci d'avance

 

[TooFatBoy]

Re : Modifier une valeur

Bonjour,

Si tu veux assigner une valeur numérique à un label, tu peux essayer ceci :
Label1.Caption = Format(1234567890, "#,##0")

 

[maval]

Re : Modifier une valeur

Bonjour Marcel

Est merci pour ton code.
J'ai mis pour mon Textbox ceci est sa ne marche pas!

Private Sub T9_AfterUpdate()
T9.Text = Format(T9.Text, "#,##0.00")
End Sub

 

[TooFatBoy]

Re : Modifier une valeur

Peut-être T9.value= Format(T9.value, "#,##0")

Mais si tu veux le séparateur avant la virgue, et deux chifffres après la virgule, alors autant utiliser le format Standard :
T9.value= Format(T9.value, "Standard")

 

[maval]

Re : Modifier une valeur

Re,

Nom toujours pareil?

 

[TooFatBoy]

Re : Modifier une valeur

Bizarre, ça semble fonctionner chez moi.

Ta macro se trouve bien dans le UserForm ?

 

[maval]

Re : Modifier une valeur

Oui bien sur, les infos viennent de ma feuille excel

 

[Paf]

Re : Modifier une valeur

Bonjour à tous

T9.Value ou T9.Text dans Private Sub T9_AfterUpdate() d'une UserForm fonctionnent sous Excel 2003. Mais pour que la sub se déclenche, il faut sortir de la Textbox .

Peut être est ce dû au contexte ? avec le fichier en cause il serait plus facile de voir .

A+

 

[maval]

Re : Modifier une valeur

Bonjour Paf

oui si je sort de la textbox avec se Code sa fonctionne

Private Sub T9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    T9.Value = Format(Replace(T9.Value, ".", ","), "#,##0 ")
End Sub

Mais j'aimerai qui fonctionne automatiquement

 

[Paf]

Re : Modifier une valeur

Re
si l'info à afficher dans T9 provient d'une feuille il faudrait appliquer le format de cette façon:

Si l'info est en K2:

T9 = Format(Range("K2"), "#,##0.00")

à adapter

A+

 

[maval]

Re : Modifier une valeur

Re

J'ai changé mon code et j'ai mis comme ceci?

Private Sub UserForm_Activate()

T9.Value = Format(Replace(T9.Value, ".", ","), "#,##0 ")
T10.Value = Format(Replace(T10.Value, ".", ","), "#,##0 ")
T11.Value = Format(Replace(T11.Value, ".", ","), "#,##0 ")
End Sub

Sa fonctionne, mais comme mon Userform est en modal je suis obligé de fermer mon Userorm pour que les textbox se réinitialise.
A tu une solution pour qu'il puisse se réinitialiser automatiquement ?

Merci d'avance

 

[TooFatBoy]

Re : Modifier une valeur

comme mon Userform est en modal je suis obligé de fermer mon Userorm pour que les textbox se réinitialise.
A tu une solution pour qu'il puisse se réinitialiser automatiquement ?

J'ai bien peur que pour réinitialiser tes TextBox tu sois obligé de passer par un bout de code genre

T9.Value=""
T10.Value=""
T11.Value=""

 

[Paf]

Re : Modifier une valeur

Re

sans connaitre d'où proviennent les données affichées dans les textbox (saisie, feuille...) ni après quelle action les textbox doivent se réinitialiser, pas facile de comprendre le souci ni de le pallier.

Joignez votre classeur avec quelques précisions et sans données confidentielles

A+