Forcer un format nombre dans une TextBox

Version imprimable

11/11/2017, 16h34
NEC14

Forcer un format nombre dans une TextBox
Bonjour à tous,

Dans un formulaire, j'ai 3 TextBox, 2 contiennent un montant et doivent être au format 0.00€ et une autre format 00.

J'ai fais ce code mais rien ne se passe, comment dois-je procéder ? Merci par avance
Code:

1 2 3 4 Private Sub Txt1_AfterUpdate() Txt1.Value = Format(Txt1.Value, "0.00€") End Sub
11/11/2017, 17h07
unparia

Bonjour

Citation:

mais rien ne se passe

L'évènement dont tu te sers n'interviens qu'en quittant la textbox. Sinon non.

Pour mémoire (aide interne VBA)

Citation:

L'événement AfterUpdate se produit après l'événement BeforeUpdate et avant l'événement Exit pour le contrôle actif et avant l'événement Enter pour le contrôle suivant dans l'ordre de tabulation

Ton code marche chez moi à CES conditions-là.
11/11/2017, 17h11
NEC14

1 pièce(s) jointe(s)

Bonjour,
Merci pour ta réponse
J'ai bien compris l’événement qui sera déclenché c'est pour cela que je l'ai appliqué, mais chez moi ça ne fonctionne pas. Le format reste affiché 0.00

Voici un fichier exemple :Pièce jointe 326512
11/11/2017, 17h17
unparia

Ah ?
on va y voir clair --->>
1) et qu'as tu saisi, lorsque reste ainsi affiché ?
2) mets donc cette ligne en première ligne

Code:

msgbox "coucou"

lance, saisis, donne le focus à n'importe quel autre contrôle de ton userform et dis-moi si coucou s'affiche
J'attends

Citation:

Voici un fichier exemple :Classeur1.xlsm

Lis donc ma signature !!!!!!!!!
11/11/2017, 17h20
NEC14

Non rien ne s'affiche

Après avoir ajouté une autre TextBox ça fonctionne :calim2::calim2:

J'ai également remarqué que si je mets une virgule à la place du point ça fonctionne. Comment cela se fait-il ?
11/11/2017, 17h21
NEC14

[QUOTE
Lis donc ma signature !!!!!!!!![/QUOTE]

Oui, je m'en suis aperçu lorsque j'ai validé ma réponse, toutes mes excuses

J'ai fait ça et ça fonctionne, mais ce n'est pas l'idéal :

Code:

1
2
3
4
5
 
Private Sub Txt1_AfterUpdate()
Txt1 = Format(Txt1.Value, "0.00 €")
Me.Txt1 = Replace(Me.Txt1, ",", ".") 'après la validation je remplace la virgule par un point
End Sub

11/11/2017, 17h45
unparia
Citation:

Après avoir ajouté une autre TextBox ça fonctionne

Pardi ! relis ce que j'ai pris la peine de t'exposer du comportement de cet évènement .

Citation:

J'ai également remarqué que si je mets une virgule à la place du point ça fonctionne. Comment cela se fait-il ?

Drôle de question... -->> réponse du berger à la bergère --->> format s'applique à du numérique, ce que n'est pas par exemple 1.1 si le séparateur décimal en cours sur ta machine est la virgule

Au passage : c'est bien à toi (il me semble) que nous avons pris la peine d'exposer l'importance de toujours, typer, toujours préciser les propriétés utilisées, non ???
Alors ? Corrige/complète-moi les petites choses en rouge ici, veux-tu ?
Code:

1 2 Txt1 = Format(Txt1.Value, "0.00 €") Me.Txt1 = Replace(Me.Txt1, ",", ".") 'après la validation je remplace la virgule par un point
EDIT : non, ce n'était pas toi. Mais tu vas en profiter --->> lis toute cette discussion --->>
https://www.developpez.net/forums/d1...a/#post9759979

bonsoir

Code:

1
2
3
4
5
6
Private Sub TextBox1_AfterUpdate()
TextBox1.value= Format(Replace(TextBox1.Text, ".", ","), "0.00 €")
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1.value = Format(Replace(TextBox1.Text, ".", ","), "0.00 €")
End Sub

11/11/2017, 19h27
unparia

Bonjour Patrick
Si même un Expert s'y met à omettre la précision de la propriété utilisée, ma foi ...
Comment espérer convaincre d'éviter ce genre de négligence ?
Veux-tu bien s'il te plait éditer ton code et y remédier ? Donne le bon exemple.
11/11/2017, 20h51
kiki29

Salut, voir ceci
11/11/2017, 22h06
patricktoulon

re

voila c'est fait Mr le redresseur de tords ,dé fonceur de portes ouvertes ;):ptdr:
12/11/2017, 07h21
unparia

1) Merci pour tous de donner ce bon exemple

2)

Citation:

fonceur de portes ouvertes

T'es sûr que "foncer", c'est "forcer" ?J :lol:
A moins que ce ne soit "poncer" (ce que je fais quelquefois sur une porte, bien évidemment alors ouverte, en vue de la repeindre).

Ceci dit : C'est le contraire, que veut le demandeur. Il a d'ailleurs tort de le vouloir, ce contraire, mais laissons-le venir ...
12/11/2017, 11h02
unparia

Citation:

Sinon, je ne vois pas où tu veux en venir

Il n'est jamais adroit d'utiliser un séparateur autre que celui défini par défaut (celui décidé en configuration) .
Les raisons sont nombreuses :
1) Utilisation directe de Isnumeric
2) convivialité
3) le contenu d'une textbox sera toujours (forcément) de type String. Son exploitation devra donc toujours nécessiter une conversion en numérique -->>
Utilisation de Val (si le . y est comme séparateur)
Utilisation de cdbl (par exemple) si le séparateur saisi y est autre que le .
Conversion pour conversion (puisque de toute mùanière inévitable) , autant en choisir une universelle (pour tout dans l'application). Cela évitera des étourderies ici et/ou là .

Bon dimanche
12/11/2017, 11h32
NEC14

Bonjour à tous,

J'ai supprimé ma dernière réponse que je trouvais inutile car elle ne répondait aux attentes.
Je me suis penché sur plusieurs tuto trouvé dans ce forum, je vais essayé de trouver la solution que tu attends.

Merci Patrick pour ton intervention, je vais regarder ta proposition de plus près.

Je suis attentif à toutes remarques utiles, mais si parfois je les trouve un peu agressive, ce n'est là que mon ressenti. J'apprécie ce que vous faites pour que ce forum puisse être aussi actif.
12/11/2017, 11h43
unparia

Ne jamais voir de l'agressivité là où il y a volonté d'alerter.
Si je vois un pêcheur qui fait une erreur (surtout si susceptible d'endommager son matos; un plomb d'un poids con compatible avec sa canne, par exemple) --->> je le lui dis -->> et je ne manque pas de lui dire (cela lui servira dorénavant pour toute autre canne) qu'il éviterait ce genre d'erreur en lisant ce qui est imprimé sur sa canne.

Il fait ensuite comme IL l'entend. Et s'il se sent "agressé, c'est sa seule affaire. Ma conscience, elle, est tranquille. ;)
Bon dimanche

PS : amuse-toi (tu vas vite comprendre) à te mettre dans la peau d'un anglophone qui saisirait "1,224.32" (qui est ce que nous écrivons "1224,32") dans ta textbox et applique ensuite ton Replace puis essaye d'utiliser le résultat (que ce soit pour un calcul ou pour affecter ce résultat à une cellule). Je te laisse voir ...

Est-ce cela que tu attends ? J'ai remarqué que si je ne mets pas une virgule, le résultat sera = 0
Code:

1 2 3 4 5 6 7 8 Private Sub Txt1_AfterUpdate() Dim T As Double If IsNumeric(Me.Txt1) Then T = CDbl(Me.Txt1) End If Me.Txt1.Value = Format(T, "0.00 €") End Sub

12/11/2017, 12h06
unparia

Force le séparateur décimal "normal" (la virgule donc pour ta machine)
Interdis la saisie du point (où que ce soit dans la saisie) . Tu trouveras sur ce site une foultitude de discussions, etc ... te permettant de contrôler les saisies.
Vérifie par la fonction Isnumeric
Convertis ensuite par une fonction de conversion en numérique chaque fois que tu dois utiliser la valeur de cette textbox.
Voilà. C'est aussi simple que cela.
12/11/2017, 12h29
NEC14

Merci pour ta réponse. Cependant je rencontre un problème. Je ne sais pas quel séparateur décimal vont utiliser les utilisateurs. Certain préfère le point et d'autre la virgule. Donc , je dois envisager les 2 cas.
J'ai pu parcourir pas mal de tuto, je n'ai pas toujours tout compris, mais je vais les reprendre.
Je vais creuser pour trouver une solution.

re avec formatage dynamique (keypress/keydown)+masques de saisie

re
allez juste pour m'amuser un peu avec ca
formatage dynamique a chaque touche tapées

je te propose l'interception dynamique da la touche tapée
gestion de la touche back et suppr en supplément
remplacement du point par la virgule par le remplacement du keyascii
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 46 Then TextBox1.Tag = "" If TextBox1.Tag <> "" Then If KeyCode = 8 Then TextBox1.Tag = Mid(TextBox1.Tag, 1, Len(TextBox1.Tag) - 1) End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If "0123456789,." Like "*" & Chr(KeyAscii) & "*" Then If InStr(TextBox1, ",") = 1 Then If Len(Split(TextBox1.Tag, ",")(1)) = 2 Then KeyAscii = 0 End If If KeyAscii = 46 Then KeyAscii = 44 TextBox1.Tag = TextBox1.Tag & Chr$(KeyAscii) KeyAscii = 0 End If End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If TextBox1.Tag <> "" Then TextBox1.Value = Format(CDbl(TextBox1.Tag), "0.00 €") TextBox1.SelStart = Len(TextBox1.Tag) + 1 End Sub
je te laisse deviner comment en ajoutant une simple chose tu peux choisir de faire apparaitre le point ou la virgule avec ce code

je t'aide un peu

ce qui s'affiche dans le textbox c'est le formatage de son tag alors comment fait on ?

en même temps des la première touche tapé tu a même un masque de saisie :ptdr:
c'est bo!! la vie non?

Patrick tu as été plus rapide que moi. Voilà ce que j'allais proposer, est-ce correct ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub Txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(Txt1, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(Txt1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
 
End Sub
 
Private Sub Txt1_AfterUpdate()
Dim T As Double
If IsNumeric(Me.Txt1) Then
T = CDbl(Me.Txt1)
End If
Me.Txt1.Value = Format(T, "0.00 €")
End Sub

12/11/2017, 13h02
patricktoulon

re

non ! ton system ne fonctionne pas et en plus tu continu a utiliser afterupdate donc il faut au moins deux textbox dans ton usf

et il fait même pas son rôle puisque ( le formatage ne s'effectue pas )
m
a méthode est dynamique est interne au textbox besoins de rien d'autre

teste la dans un new usf
reste a corrigé le selstart histoire de faire bien mais ca match

si tu avais fait une recherche sur ce même forum tu aurais vu que je l'ai proposé il y a quelques jours déjà

et on peu faire pareil pour les dates ,N ° Téléphone,etc.....

re le voila abouti

re tiens le voila abouti et j'ai mis des commentaires a chaques lignes pour que tu puisse comprendre ce que ca fait exactement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Const char_permis = "0123456789,"
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 46 Then TextBox1.Tag = "": TextBox1.Value = "0,00 €" ' on vide le textbox et!!! son tag avec la touche suppr
If TextBox1.Tag <> "" Then 'si le tag est pas vide
If KeyCode = 8 Then TextBox1.Tag = Mid(TextBox1.Tag, 1, Len(TextBox1.Tag) - 1) 'on enelve le dernier chiffre dans le tag
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44 ' on remplace le point par la virgule
If Chr(KeyAscii) = "," And TextBox1.Tag Like "*,*" Then KeyAscii = 0: Exit Sub 'si le caracteres tapé ou détourné est le separateur et que le textbox l'a deja on l'annule
If char_permis Like "*" & Chr(KeyAscii) & "*" Then ' si le caractere est permis
If InStr(TextBox1.Tag, ",") > 0 Then 'si il y a deja la virgule
If Len(Split(TextBox1.Tag, ",")(1)) >= 2 Then KeyAscii = 0 ' et que il y a deja 2 chiffres apres la virgule on annule la touche
End If
TextBox1.Tag = TextBox1.Tag & Chr$(KeyAscii) ' on met le caractere dans le tag
KeyAscii = 0 ' on annule bien evidement le keyascii car  en vrai on ecrit pas dans le textbox du moins pas dans cet evenement
End If
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'voila c'est ici que l'on injecte le texte du tag  dans le textbox
If TextBox1.Tag <> "" Then 'si le tag n'est pas vide
TextBox1.Value = Replace(Format(CDbl(TextBox1.Tag), "0.00 €"), ",", ".") 'on injecte la valeur du tag  formaté dans son .value avec le point comme separateur
'TextBox1.Value = Format(CDbl(TextBox1.Tag), "0.00 €") 'on injecte la valeur du tag  formaté dans son .value avec la virgule comme separateur
TextBox1.SelStart = Len(TextBox1.Tag)  ' on place le carré(clignotant)
End If
End Sub

dans l'inscription finale tu a les deux possibilités (point/virgule)

12/11/2017, 14h56
NEC14
Merci beaucoup Patrick, je n'y serais jamais arrivé tout seul. J'ai encore beaucoup à apprendre.
Les commentaires ajoutés vont m'aider à progresser et à comprendre le processus.

Dans le code que j'ai proposé, j'ai 3 TextBox, donc le afterupdate pourrait fonctionner. Je pensais également que ce code permettait de formater mon TxtBox.
Code:

1 2 Me.Txt1.Value = Format(T, "0.00 €")
Mais bon je m'incline devant ton savoir-faire, ton code est beaucoup plus complet.
Encore mille mercis pour votre patience à tous et vos précieux commentaires.

Je me "demande" ce que pourrait bien faire (entre autres) ceci, y compris à Toulon :
Code:

1 2 3 4 5 Private Sub TextBox1_Change() Static deja As String If Not IsNumeric(TextBox1.Text) And TextBox1.Text <> "" Then TextBox1.Text = deja: Exit Sub deja = TextBox1.Text End Sub
Bonne fin de dimanche ... :D

12/11/2017, 16h53
NEC14

J'ai testé ton code, le résultat est que la tabulation ne permet pas le passage à la 2ème TextBox, le focus reste sur la 1ère.
12/11/2017, 18h14
unparia

Citation:

J'ai testé ton code, le résultat est que la tabulation ne permet pas le passage à la 2ème TextBox, le focus reste sur la 1ère.

Le code que je t'ai montré ne traite, lui, que le contrôle de saisie.
A toi de le compléter (tout de même ... c'est tellement facile !) par ce qu'il faut pour ton "passage" ailleurs !
12/11/2017, 18h27
NEC14

Citation:

Je me "demande" ce que pourrait bien faire (entre autres) ceci, y compris à Toulon

Je n'avais pas compris que tu attendais que je le termine. J'ai été surpris du commentaire, me doutant que tu savais ce que faisait ce code.
Mon problème étant résolu, je n'ai pas trouvé bon de le compléter.
Je te remercie pour ton investissement dans l'aide apporté. Il ne faut pas croire que je n'essaie pas de mon côté de résoudre mes problèmes, mais un code comme me l'a proposé Patrick, je suis incapable de le faire, chacun à ses limites.
Je ne demande qu'à me perfectionner et cela ne va pas se faire d'un coup de baguette magique, il me faudra du temps pour travailler correctement toutes les possibilités qu'offre VBA.
Je réitère ici mes remerciements à tous les contributeurs, demandeurs, etc...
Je fais des recherches sur le forum, maladroitement surement, par manque de pratique.
Je reviendrai certainement pour d'autres questions qui feront réagir, je m'y attends.
Dans l'attente, encore mille mercis.
Amicalement
René
12/11/2017, 18h30
unparia

Bon ...
je viens en plus de faire un test avec deux textboxes sur un userform.
Aucune espèce de problème, sans rien d'autre !
Si toi, tu en as, c'est que tu as tripatouillé les propriétés (multiline, tabstop, ...) de ces textboxes ...
12/11/2017, 18h38
NEC14

Citation:

Si toi, tu en as, c'est que tu as tripatouillé les propriétés (multiline, tabstop, ...) de ces textboxes ...

Non, non je n'ai rien touché de ton code. L'erreur est ailleurs, une inattention de ma part, je n'avais pas désactivé le mode création. Effectivement ça fonctionne.
Merci de ne pas affirmer ce qui doit être simplement une supposition. Je n'ai pas pour habitude de tripatouillé quoi que ce soit que je ne connais pas, cela évite de faire des âneries (pour être poli).
Bon fin de weekend et encore merci

Edit : le point du clavier numérique, lui ne fonctionne pas. On ne peut utiliser que la virgule
12/11/2017, 18h58
patricktoulon

re

de rien
attention ma proposition est complètement différente elle gere le travail dynamiquement

Bon courage René te laisse pas faire par le père fouettard :ptdr:
12/11/2017, 19h07
unparia

Citation:

Edit : le point du clavier numérique, lui ne fonctionne pas. On ne peut utiliser que la virgule

Et pour cause ! Relis tout ce que j'ai écrit à ce sujet à propos de la base même (respecter la configuration choisie). Tu t'en porteras bien.
Je veux croire tout ce que tu dis... Mais le premier à affirmer (que "cela ne permettait pas ..."), alors que ... , c'était qui, déjà ? Allons, allons ... Balaie devant ta porte et reviens ensuite avec tes "recommandations".

A PatrickTopulon : tu mériterais toi également la fessée du "père fouettard". Il n'est jamais trop tard pour se mettre sur les bons rails, hein ... ;)
12/11/2017, 19h14
patricktoulon

re

re
ah ben le voila qui commence a faire des propositions tendancieuses maintenant :ptdr:

"PatrickTopulon" c'est qui celui la :mouarf:
12/11/2017, 19h16
NEC14

Merci Patrick pour tes encouragements.

unparia, n'ai crainte je sais balayer devant ma porte.

On ne va pas polémiquer toute la soirée, ce n'est pas le but de se forum, du moins à mon avis.

Je te laisse le dernier mot...
12/11/2017, 19h22
unparia

Ne polémique alors pas et prends dorénavant la peine de vérifier avec soin avant de philosopher. :lol:
C'est également cela, le principe d'un forum.
Allez. Bonne fin de soirée
12/11/2017, 21h26
Philippe Tulliez

Bonjour,
A propos d'une question du fil #19

Citation:

Je ne sais pas quel séparateur décimal vont utiliser les utilisateurs.

Code:

MsgBox Application.International(xlDecimalSeparator)

Citation:

Certain préfère le point et d'autre la virgule. Donc , je dois envisager les 2 cas

L'utilisateur n'a pas à avoir de préférence. C'est au programmeur de prévoir ces cas là et d'empêcher les encodages non admis.

Citation:

J'ai pu parcourir pas mal de tuto, je n'ai pas toujours tout compris, mais je vais les reprendre.
Je vais creuser pour trouver une solution.

Un peu de lecture du tutoriel de Jean-Philippe ANDRÉ Excel et les paramètres régionaux : Application.International
12/11/2017, 21h34
unparia

Bonjour Philippe Tulliez

Je ne sais pas ce qu'a voulu dire par là RENE14
Deux interprétations possibles :
1) code utilisé sur des machines avec séparateurs différents --->>
Et mon code fait alors l'affaire tel quel, quelle que soit la machine
L'utilisateur se trouve forcé, par ce code, d'utiliser le séparateur attendu (IsNumeric intervient et fait la police ;))
2) simples petites habitudes de l'utilisateur -->> l'utilisateur sera forcé de se mettre au diapason.
Bon dans tous les cas.
12/11/2017, 21h45
Philippe Tulliez

Bonjour Unparia,
Oui ta réponse est tout à fait correcte mais mon intervention était juste en réaction à ces phrases de RENE14.
12/11/2017, 21h54
unparia

Pour tout dire : j'ai ici voulu délibérément éviter d'aller à plus de détails. Il est possible de "rouler" ce code, tel qu'écrit. Ainsi, par exemple et entre autres :
-- l'utilisateur saisit "01"
- puis se déplace (flèche gauche) au début et frappe "&" puis "H" -->> tant "&01" que "&H01" étant également des numériques, ils seront acceptés.
Il est toutefois extrêmement simple (si nécessaire) d'interdire en plus tout caractère qui ne serait ni numérique, ni ".", ni "," (peut importe que les deux soient permis, dès lors que Isnumeric fera de toute manière la police derrière ;))

Voilà en complétant, si l'on veut éviter ce dont j'ai parlé --->>
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub TextBox1_Change() Static deja As String If Not IsNumeric(TextBox1.Text) And TextBox1.Text <> "" Then TextBox1.Text = deja: Exit Sub deja = TextBox1.Text End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 188, 16, 96 To 105, 8, 37, 39, 46 Case Else KeyCode = 0 End Select End Sub
Il n'en faut pas plus pour forcer à rester dans les cordes prévues.

EDIT : un autre intérêt dont je n'avais pas voulu parler, mais je vais le faire :
Le policier Isnumeric de ce code tout bête interviendra également (puisque évènement Change) en cas de copié/collé d'un non numérique, sans pour autant interdire tous les copiés/collés, qui peuvent être pratiques dans certains cas.
Voilà voilà

EDIT 2 : ce que l'on peut d'ailleurs exprimer en un seul évènement, ainsi --->>
Code:

1 2 3 4 5 6 7 Private Sub TextBox1_Change() Static deja As String If TextBox1.Text <> "" And TextBox1.Text <> "-" Then If Not TextBox1.Text Like "[0-9-]*" Or Not IsNumeric(TextBox1.Text) Then TextBox1.Text = deja: Exit Sub End If deja = TextBox1.Text End Sub
J'ai dans la foulée inclus la saisie de nombres négatifs

J'ajoute maintenant à l'attention de RENE14 (qui en fera ce qu'il voudra ensuite, mais en meilleure connaissance de cause) qu'une Textbox n'est pas une zone d'affichage, mais de saisie.
Il est maladroit d'en formater en son sein sa valeur, ce qui peut dans certains cas carrément gêner l'utilisation de cette valeur, que ce soit pour la passer à une cellule ou à d'autre fins (calculs, entre autres).
S'il s'agit de passer la valeur (numérique ou de date) à une cellule, ce n'est pas le contenu de cette valeur, qu'il faut formater, mais donner à la cellule concernée le format souhaité. C'est très loin d'être la même chose, Excel sachant parfaitement distinguer ce qu'est la forme de l'affichage et ce qu'est la valeur stockée en mémoire.

Lorsqu'enfin la finalité est dans certains cas l'utilisation de la valeur saisie dans la présentation d'un texte : on ne modifie pas la saisie faite. On attribue à une variable la valeur formatée de cette saisie et c'est cette variable (seule formatée) que l'on insère dans le texte