Format Personnalisé Textbox

Le
Pierre
Bonjour
quand j'ouvre un userform je récupère dans un textbox une valeur au format
personnalisé "téléphone" d'une cellule B4 de la feuille1

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Value
End sub

Mais la valeur affichée dans le textbox reste 491xxxxxx au lieu de 04 91 xx
xx xx

Merci pour votre aide
Pierre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #4465071
Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Text
End sub
Bon dimanche
Youky

"Pierre"
Bonjour
quand j'ouvre un userform je récupère dans un textbox une valeur au format
personnalisé "téléphone" d'une cellule B4 de la feuille1

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Value
End sub

Mais la valeur affichée dans le textbox reste 491xxxxxx au lieu de 04 91
xx
xx xx

Merci pour votre aide
Pierre



hasco
Le #4465061
1- Solution la plus simple:
Private Sub TextBox2_Enter()
TextBox2 = Range("feuille1!B4").Text
End sub

2- Moins simple mais parfois utiles

A - Dans les déclarations général du UserForm:
Const FMT_TEL= "0# ## ## ## ##"

B - Changer la procédure évènementielle
Private Sub TextBox2_Enter()
TextBox2.Value =format( Range("feuille1!B4").value,FMT_TEL)
End sub



Bonjour
quand j'ouvre un userform je récupère dans un textbox une valeur au format
personnalisé "téléphone" d'une cellule B4 de la feuille1

Private Sub TextBox2_Enter()

TextBox2.Value = Range("feuille1!B4").Value
End sub

Mais la valeur affichée dans le textbox reste 491xxxxxx au lieu de 04 91 xx
xx xx

Merci pour votre aide
Pierre



Pierre
Le #4465031
Merci beaucoup Hasco et Youky
c'est effectivement très simple.
bon dimanche


Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Text
End sub
Bon dimanche
Youky

"Pierre"
Bonjour
quand j'ouvre un userform je récupère dans un textbox une valeur au format
personnalisé "téléphone" d'une cellule B4 de la feuille1

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Value
End sub

Mais la valeur affichée dans le textbox reste 491xxxxxx au lieu de 04 91
xx
xx xx

Merci pour votre aide
Pierre








olivier descamps
Le #4464941
Ou également

TextBox2.Value = Format(Cells(2, 4), "0# ## ## ## ##")

Bon dimanche
Olivier

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Text
End sub
Bon dimanche
Youky

"Pierre"

Bonjour
quand j'ouvre un userform je récupère dans un textbox une valeur au format
personnalisé "téléphone" d'une cellule B4 de la feuille1

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Value
End sub

Mais la valeur affichée dans le textbox reste 491xxxxxx au lieu de 04 91
xx
xx xx

Merci pour votre aide
Pierre









Pierre
Le #4464921
Merci Olivier

Ca marche aussi et dans mon cas il faut que je mette :
TextBox2.Value = Format(Cells(4, 2), "0# ## ## ## ##")

Bon Dimanche
Pierre


Ou également

TextBox2.Value = Format(Cells(2, 4), "0# ## ## ## ##")

Bon dimanche
Olivier

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Text
End sub
Bon dimanche
Youky

"Pierre"

Bonjour
quand j'ouvre un userform je récupère dans un textbox une valeur au format
personnalisé "téléphone" d'une cellule B4 de la feuille1

Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Value
End sub

Mais la valeur affichée dans le textbox reste 491xxxxxx au lieu de 04 91
xx
xx xx

Merci pour votre aide
Pierre












Publicité
Poster une réponse
Anonyme