Afficher les zéros dans un textbox

[isa44]

Bonjour ,

Lorsque je saisie dans un textbox un nombre avec au début des zéros , cela ne met que 1 au lieu de 001 par exemple .

Peut on forcer ce format ?

Merci pour vos solutions

 

[Staple1600]

Re : Afficher les zéros dans un textbox

Bonjour


Chez moi (Excel200)


Avec une TextBox standard, dans laquelle je saisis 001

Private Sub UserForm_Click()
MsgBox TextBox1
End Sub

renvoie bien 001 pourtant

 

[isa44]

Re : Afficher les zéros dans un textbox

Bonjour , cela ne change rien .
A part un messagebox avec la valeur du textbox toujours sans les zéros .

 

[Staple1600]

Re : Afficher les zéros dans un textbox

Re


Quelle est ta version d'Excel ?

 

[isa44]

Re : Afficher les zéros dans un textbox

Excel 2003

 

[Staple1600]

Re : Afficher les zéros dans un textbox

RE


Je viens de retester et les zéros restent

(voir fichier joint)

 

[BOCARAMEL]

Re : Afficher les zéros dans un textbox

Bonjour Staple1600
Bonjour isa44

ci-joint une autre solution 😉

pour afficher les zéros

Bon Week end a tous

Bocaramel

 

[isa44]

Re : Afficher les zéros dans un textbox

Merci à vous pour vos mais cela ne marche pas.

J'ai vu que j'avais ce code pour le format :

Private Sub RunFormat_TextBox4(ByRef MyCell As Range) 

    With MyCell
        With .Font
            MyCellFont = .Name
            MyCellFontSize = 22
            MyCellFontColor = &HC00000
            MyCellBold = .Bold
            MyCellItalic = .Italic
            MyCellUnderLine = .Underline
            MyCellValue = MyCell.Value
        End With
       
    
    
    With Me.TextBox4
        With .Font
            .Name = MyCellFont
            .Bold = MyCellBold
            .Italic = MyCellItalic
            .Size = MyCellFontSize
            
        End With
        
        .ForeColor = MyCellFontColor
        .Value = Format(MyCellValue, "###")
    End With

Me.CommandButton2.Visible = True
End With
End Sub

Comment le modifier pour laisser apparaitre les Zéros ?

 

[job75]

Re : Afficher les zéros dans un textbox

Bonsoir le fil, le forum,

Merci à vous pour vos mais cela ne marche pas.

Une TextBox affiche toujours ce qu'on lui dit d'afficher.

Donc :

1) si la cellule A1 contient le texte 003 (cellule au format "Texte") :

=> TextBox = [A1] affiche 003 dans la TextBox

2) si la cellule A1 contient le nombre 3 au format personnalisé "000", la cellule affiche bien 003 mais :

=> TextBox1 = [A1] affiche 3 dans la TextBox
=> TextBox1 = [A1].Value affiche 3 dans la TextBox

par contre :

=> TextBox1 = [A1].Text affiche 003 dans la TextBox

Edit : et aussi => TextBox1 = Format([A1], "000")

Je vous laisse réfléchir.

A+

 

[Paritec]

Re : Afficher les zéros dans un textbox

Bonsoir à tous
je suis peut-être a coté mais moi j'aurais fait

TextBox1 = Format(Range("A1"), "000")

a+
Papou 🙂

EDIT : Bonjour Job excuses j'avais pas vu

 

[job75]

Re : Afficher les zéros dans un textbox

Re, salut papou,

J'ai en effet indiqué cette solution aussi 🙂

A+

 

[BOCARAMEL]

Re : Afficher les zéros dans un textbox

Bonsoir a tous

Je suis désolé 😕
mais mon fichier fonctionne correctement
avec ou sans zéro devant

bonne soirée a tous
bocaramel

 

[isa44]

Re : Afficher les zéros dans un textbox

Merci à tous , j'ai solutionné le problème en modifiant le format de la cellule.