Format Lettre ald Chiffre

[Bruce68]

Bonjour à tous
Mon Probleme
Je rentre des chiffres à l'aide de TextBox au format € comme ceci:

Private sub TextBox1 AfterUpdate ()
TextBox1 = Format (TextBox1.Value, "0.00 €")

Je transfert mes TextBox comme ceci:

Range ("A" & Ligne).Value = TextBox1

A l'arrivée dans la base les chiffres sont considéerés comme du texte et moi je voudrais qu'ils soient considérés comme des chiffres.
Ce qui est plus bizarre c'est les chiffres additionnes par A1+A2+A3 ça marche mais avec BDSOMME cela ne marche plus.
Comment retrouver mes Chiffres comme des chiffres.
Je vous remercie de votre aide.

 

[jeanpierre]

Re : Format Lettre ald Chiffre

Bonjour Bruce68,

Pourquoi changer de fil, la question était déjà très claire ici : https://www.excel-downloads.com/threads/textbox-non-modifiable.90594/

Il suffit, au besoin, de repréciser.

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonsoir JeanPiere et le forum

Ce n'est pas du du tout le meme fil .
C'est justement apres avoir range mes TextBox dans la base que je voudrais que certain quand je les rapatries je voudrais qu'il soient pas modifiable.
Pour le moment j'essai de rentrer des valeurs de TextBox dans ma base en valeur Numeric et non en chiffre en les mettant au format euro.
Cette solution ne fonctionne pas incompatibilite de type erreur13

Range ("A" & Ligne).Value = CDbl(TextBox1.Value)

Merci pour l'aide.

 

[jeanpierre]

Re : Format Lettre ald Chiffre

Re,

Ok, et toutes mes escuses si je me suis trompé...

Néanmoins sur le fil précédent, il y avait déjà réponse (s) qui pouvait être le tremplin à d'autres solutions avec ta nouvelle précision... Je n'ai pas la science infuse, donc, ma vision est peut-être erronée.

Ceci dit, un truc que je ne comprends pas, c'est : "j'essai de rentrer des valeurs de TextBox dans ma base en valeur Numeric et non en chiffre ", je passe le format...

Peux-tu préciser ?

Bonne soirée.

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonsoir JeanPierre et le forum

Quand je met 100 dans le textBox1 je vois 100.00 € et quand je rentre cette valeur dans ma base c'est toujours 100.00 € mais ce chiffre est considere comme du texte et moi je voudrais qu'il soit considere comme un chiffre car derriere tout cela il y a beaucoup de formules et lus rien ne fonctionne ou alors il faut que je supprime: Format "0.00 100.00 €"
Si je n'ai pas d'autre solution c'est ce que vais faire mais ce serais dommage .
Merci pour l'aide.

 

[Pierrot93]

Re : Format Lettre ald Chiffre

Bonsoir Bruce, Jean-Pierre

regarde peut être le code ci dessous :

Range("a1").Value = CCur(TextBox1.Value)

bonne soirée
@+

 

[Cousinhub]

Re : Format Lettre ald Chiffre

Bonsoir, tu peux essayer comme ceci :

Private Sub CommandButton1_Click()
ligne = [A65000].End(xlUp).Row + 1
With Range("A" & ligne)
    .Value = TextBox1.Value * 1
    .NumberFormat = "#,##0.00 $"
End With
End Sub

Edit : avais pas raffraichi, bonsoir Pierrot

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonsoir Pierrot93 et le forum
Je viens de tester ta solution cela fonctionne à condition que le TextBox ne soit pas Vide si il est vide:
Erreur d'execution13
Incompatibilité de type
Chez moi malheusement tous Les TextBox ne sont pas toujours remplis, il faudrait contourner le prb quand un ou plusieurs TextBox sont vides.
Merci Pierrrot93.

 

[Cousinhub]

Re : Format Lettre ald Chiffre

Re,
rajoute une condition :

If TextBox1.Value <> "" Then
....
end if

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonsoir Pierrot93, bhbh , Jeanpierre et le forum
Merci à vous
je viens de trouver la solution et je vous la donne
Au départ j'ai

Private sub TextBox1 AfterUpdate ()
TextBox1 = Format (TextBox1.Value, "0.00 €")
If TextBox15 = "" Then
TextBox1 = 0
End If
End Sub
Je range le TextBox1 dans ma base
Range("A1" & Ligne).Value = CCur(TextBox1.Value)

Le probleme est au niveau du TexBox si celui n'est jamais renseigne le 0 ne peut pas apparaitre il apparait seulement si je rentre un chiffre et si le TextBox15 est vide seulement là il y a un 0 autrement il reste vide.
pour que les textBox ne soit jamais vide il faut initialer tous les TextBox à 0
et cela fonctionne.
Bonne soiré à tous.

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonjour à tous
J'ai encore besoin de vos lumieres
Ce qui est au dessus est la premiere partie de ma base avec 1 UserForm1
Maintenant tout fonctionne tres bien.
Dans la 2° partie je recupere mes données à l'aide d'une ComboBox sur les Noms
Pour pouvoir modifier certaines TextBox

ComboBox.ListIndex +1
With Tableau
TextBox1.value = .Cells(Lgn, 1) etc etc ...

Si je modifie mes données je les range comme audessus

Private sub TextBox1 AfterUpdate ()
TextBox1 = Format (TextBox1.Value, "0.00 €")
If TextBox15 = "" Then
TextBox1 = 0
End If
Quand je rapatrie mes données elles ne sont pas au format :€ , CCur
Comment faire pour que les valeurs rapatriées = 120.00€ ald 120
je n'arrive pas à positionner le CCur
C'est le seul Probleme qui me reste à regler.
Merci de votre AIDE

 

[Pierrot93]

Re : Format Lettre ald Chiffre

Bonsoir Bruce

pas sur d'avoir tout compris, mais s'il s'agit de récupérer dans un textbox des données d'une cellule sous le format "currency", essaye comme ci dessous :

TextBox1.Value = Format(Range("A1").Value, "0.00 €")

bonne soirée
@+

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonsoir Pierrot93 et le forum

Merci pour ta reponse mais cela ne fonctionne pas :
Erreur 438
Propriete ou methode non gerée par cet objet

Private Sub ComboBox3_Change() '[2] LISTE des NOMS INITIALISATION de L'USERFORM
Dim Lgn
Dim client
Lgn = ComboBox3.ListIndex + 1
With Tableau
TextBox1.Value = .Format(Range("A" & Lgn).Value, "0.00 €")
Dans la base La cellule est au format 0.00 €, le TextBox est à mettre au format: 0.00 €
Merci de votre aide.

 

[Pierrot93]

Re : Format Lettre ald Chiffre

Re

modifies peut être cette ligne

TextBox1.Value = Format(.Range("A" & Lgn).Value, "0.00 €")

le point devant "range", pas devant "format"

@+

 

[Bruce68]

Re : Format Lettre ald Chiffre

Bonsoir Pierrot93

Apres avoir reperer l'erreur tout fonctionne , merci pierrot93 et bonne soirée à tous