format textbox

[hurricane]

Bonjour forum

j'ai un petit problème de textbox : ds ma textbox je voudrais mettre le N° de téléphone en format du type : 01 99 99 99 99 mais il faut que la cellule P2 de la feuil4 soit a la bonne taille car sinon j'ai ########## .
j'ai bien essayé de mettre "value" a la place de "text" mais j'ai obtenu :199999999

voici la ligne
UserForm1.TextBox9.Value = Worksheets("feuil4").range("P2").Text

si quelqu'un a la solution merci d'avance

 

[eric]

Bonjour Hurricane,

Mets ta cellule P2 au format spécial, numéro de téléphone.
Puis : TextBox1 = Range("p2").Text

Bonne journée

 

[hurricane]

salut

j'ai du mal m'exprimer c'est deja comme ca
mais je voudrais m'affranchir du format special dans la feuil4 et cellulle P2

de façon au cas ou le format de la feuil4 soit modifier

@+

 

[eric]

OK, bien compris :

Range("p2").NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
TextBox1 = Range("p2").Text
Range("p2").NumberFormat = "General"

J'ai testé, c'est bon.

 

[hurricane]

merci super

tant que j'y suis tu fais comment pour une valeur en €

du style precedent mais 0,00 €

@+

 

[eric]

Ne me demande pas comment il affiche un € alors qu'il utile $ dans la formule, c'est l'enregistreur de macro qui le dit.


Range("p2").NumberFormat = "#,##0.00 $"


Bonne soirée

 

[hurricane]

sa fonctionne pas sur excel 2000 enfin sur le mien demain j'essaie au boulot c'est 97

comme parfois la macro tourne sur 2000 et pas sur 97

tien un exemple

Worksheets("feuil4").Range("a1:s500").ClearContents sur 2000 ok pas sur 97


salut et bonne nuit

 

[NicO]

encore un format de textbox

Salut,
J'ai un TextBox que j'aimerais "conditionner" à être rempli ainsi : mm/aa (voire mm-aa, je ne suis pas sectaire) ; j'ai tenté la pirouette ci-dessus mais la fonction xxx.NulberFormat fonctionne avec un "range" de cellule ; moi, j'ai tenté de lui donner le nom de mon textbox mais il y a pas aimé...

Auriez-vous une solution?