Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Format Personnalisé Textbox

Format Personnalisé Textbox

5 réponses
Avatar
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Youky
Private Sub TextBox2_Enter()
TextBox2.Value = Range("feuille1!B4").Text
End sub
Bon dimanche
Youky

"Pierre" a écrit dans le message de news:

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



Avatar
hasco
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



Avatar
Pierre
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" a écrit dans le message de news:

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








Avatar
olivier descamps
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" a écrit dans le message de news:


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









Avatar
Pierre
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" a écrit dans le message de news:


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