zero devant

[BOCARAMEL]

Bonjour a tous

j'aimerai savoir comment afficher dans un userform un chiffre avec un ou plusieur zero devant et que quand le chiffre de la cellule contient un zero devant sinon non

Merci pour vos reponses
Bocaramel

 

[ledzepfred]

Re : zero devant

bonsoir bocaramel,

si j'ai bien compris, essayes ceci :

Private Sub UserForm_Activate()
valeur = Sheets("feuil1").Range("b2").Value
If Left(valeur, 1) = 0 Then
    TextBox1.Value = valeur
Else: TextBox1.Value = "0" & valeur
End If
End Sub

Par contre ta cellule B2 doit être au format texte pour accepter les zéros devant

A+

 

[BOCARAMEL]

Re : zero devant

bonsoir ledzepfred

merci de ton aide

ton code rajoute un 0 devant systematiquement

alors moi je veux juste qu'il affiche le numero comme il est

exp: 0456 affiche 0456
145987 affiche 145987
00487 affiche 00487

s'affiche suivant comment on rentre les numeros avec ou sans

merci
bocaramel

 

[mromain]

Re : zero devant

Bonjour BOCARAMEL, ledzepfred,

si tu mets la cellule B2 au format "teste" (comme l'a dit ledzepfred ), ton fichier a l'air de bien marcher sans rajouter aucun code.

a+

 

[BOCARAMEL]

Re : zero devant

bonsoir mromain

je viens de modifier comme suit
et ça mache nickel

Private Sub UserForm_Activate()
valeur = Sheets("feuil1").Range("b2").Value
If Left(valeur, 1) = 0 Then
TextBox1.Value = valeur
Else: TextBox1.Value = valeur <-------------
End If
End Sub


merci de ton aide
vraiment merci à ledzepfred pour son code
cdlt
bocaramel

bon forum a tous