Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format d'un textbox

Format d'un textbox

8 réponses
Avatar
Bruno RCSC
Bonsoir,

WinXP, Excel 2002

Grâce à un précédent post, j'ai réussi à créer une boite de dialogue qui
permet d'afficher la fiche d'une personne.

Le code est :
FicheClient1.Nom = ActiveCell.Value
FicheClient1.Prenom = ActiveCell.Offset(0, 1).Value
FicheClient1.Portable = ActiveCell.Offset(0, 8).Value

Coment doit on procéder pour que le numéro de téléphone s'affiche dans le
format 08 01 02 03 04 ?
Dans la base, le format défini est 0#" "##" "##" "##" "##

Sans abuser, j'ai la même question lorsque je saisis une nouvelle fiche à
travers la boite de dialogue, le numéro de téléphone s'affiche dans la
cellule sous la forme 0801020304 (sans les espaces) alors que toute la
colonne est formatée en 0#" "##" "##" "##" "##

Merci pour votre aide.

BH
Signaler un problème avec ce contenu

8 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
lSteph
Bonsoir,

Format Nombre
Spécial
Numéro de téléphone

Cdlt.

lSteph

Bonsoir,

WinXP, Excel 2002

Grâce à un précédent post, j'ai réussi à créer une boite de dialogue qui
permet d'afficher la fiche d'une personne.

Le code est :
FicheClient1.Nom = ActiveCell.Value
FicheClient1.Prenom = ActiveCell.Offset(0, 1).Value
FicheClient1.Portable = ActiveCell.Offset(0, 8).Value

Coment doit on procéder pour que le numéro de téléphone s'affiche dans le
format 08 01 02 03 04 ?
Dans la base, le format défini est 0#" "##" "##" "##" "##

Sans abuser, j'ai la même question lorsque je saisis une nouvelle fiche à
travers la boite de dialogue, le numéro de téléphone s'affiche dans la
cellule sous la forme 0801020304 (sans les espaces) alors que toute la
colonne est formatée en 0#" "##" "##" "##" "##

Merci pour votre aide.

BH


--
- -

Avatar
Bruno RCSC
Merci pour vos réponses, mais cela ne va pas.

J'ai du mal m'exprimer :

Dans la base de données (la feuille excel) j'utilise
Format/Nombre/Special/Téléphone.
L'affichage est parfait.

Mon problème, c'est l'affichage des numéros dans mon UserForm
Ma petite procédure permet de saisir le nom d'une personne et d'afficher des
infos dont un numéro de téléphone. Comment faire pour que le numéro qui
s'affiche soit au format "téléphone" ?

Merci.
BH
Avatar
lSteph
Re,
exemple numéro en a1 affichage du userform:

Private Sub UserForm_Initialize()
TextBox1 = Format([a1], "00 00 00 00 00")

End Sub

'cdlt

'lSteph

Bruno RCSC a utilisé son clavier pour écrire :
Merci pour vos réponses, mais cela ne va pas.

J'ai du mal m'exprimer :

Dans la base de données (la feuille excel) j'utilise
Format/Nombre/Special/Téléphone.
L'affichage est parfait.

Mon problème, c'est l'affichage des numéros dans mon UserForm
Ma petite procédure permet de saisir le nom d'une personne et d'afficher des
infos dont un numéro de téléphone. Comment faire pour que le numéro qui
s'affiche soit au format "téléphone" ?

Merci.
BH


--
- -

Avatar
Bruno RCSC
Suite

N'étant pas vraiment doué, je ne comprends toujours pas.
Plutôt que de passer par DONNEES/FORMULAIRE, je veux essayer de progresser
en enrichissant la base à partir d'une boite de dialogue (non sans
difficultés !).
Voici le code :
Private Sub validform_Click()
Dim iDerligne As Integer
Dim bh As Worksheet
Dim i As Integer
Set sh = ThisWorkbook.Sheets("carnetbh")
iDerligne = bh.Range("A1").CurrentRegion.Rows.Count + 1
bh.Cells(iDerligne, 1) = Nom
bh.Cells(iDerligne, 2) = Prénom
bh.Cells(iDerligne, 4) = Catégorie
bh.Cells(iDerligne, 6) = Rue
bh.Cells(iDerligne, 7) = Ville
bh.Cells(iDerligne, 8) = CPostal
bh.Cells(iDerligne, 9) = Téléphone
bh.Cells(iDerligne, 10) = Portable
Unload FicheClient
Sheets("carnetbh").Select
End Sub

Le numéro de tél que je saisi à travers la boite de dialogue se comporte
comme du texte et non comme des chiffres. Dans ma cellule, cela apparaît
0611223344, je voudrais 06 11 22 33 44

Sur ma lancée, j'essaye un code pour rechercher une fiche en fonction d'un
nom.
Voici une partie du code :
Dim valeur As String
Sheets("carnetbh").Activate
Range("A2").Activate
valeur = InputBox("Entrer le nom")
On Error Resume Next
Sheets("carnetbh").Cells.Find(What:=valeur, After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:úlse) _
.Activate
ActiveCell.Select
FicheClient1.Nom = ActiveCell.Value
FicheClient1.Prenom = ActiveCell.Offset(0, 1).Value
FicheClient1.TelPerso = ActiveCell.Offset(0, 8).Value
FicheClient1.Portable = ActiveCell.Offset(0, 9).Value

Le numéro de téléphone (et le portable) qui s'affiche dans la boite de
dialogue quand j'appelle une fiche s'écrit 611223344, je voudrais 06 11 22
33 44

Merci pour votre patience, mais je pouvais comprendre...

BH

--
Re,
exemple numéro en a1 affichage du userform:

Private Sub UserForm_Initialize()
TextBox1 = Format([a1], "00 00 00 00 00")

End Sub

'cdlt

'lSteph

Bruno RCSC a utilisé son clavier pour écrire :
Merci pour vos réponses, mais cela ne va pas.

J'ai du mal m'exprimer :

Dans la base de données (la feuille excel) j'utilise
Format/Nombre/Special/Téléphone.
L'affichage est parfait.

Mon problème, c'est l'affichage des numéros dans mon UserForm
Ma petite procédure permet de saisir le nom d'une personne et d'afficher
des infos dont un numéro de téléphone. Comment faire pour que le numéro
qui s'affiche soit au format "téléphone" ?

Merci.
BH


--
- -





Avatar
lSteph
Bonsoir,
Supposons qu'il s'agit bien du nom donné à ton contrôle textbox
bh.Cells(iDerligne, 9) = Téléphone
bh.Cells(iDerligne, 9).value = Téléphone.value


et tu laisse la cellule au format Spécial num téléphone

Cdlt.

lSteph

Bruno RCSC avait énoncé :
Suite

N'étant pas vraiment doué, je ne comprends toujours pas.
Plutôt que de passer par DONNEES/FORMULAIRE, je veux essayer de progresser en
enrichissant la base à partir d'une boite de dialogue (non sans difficultés
!).
Voici le code :
Private Sub validform_Click()
Dim iDerligne As Integer
Dim bh As Worksheet
Dim i As Integer
Set sh = ThisWorkbook.Sheets("carnetbh")
iDerligne = bh.Range("A1").CurrentRegion.Rows.Count + 1
bh.Cells(iDerligne, 1) = Nom
bh.Cells(iDerligne, 2) = Prénom
bh.Cells(iDerligne, 4) = Catégorie
bh.Cells(iDerligne, 6) = Rue
bh.Cells(iDerligne, 7) = Ville
bh.Cells(iDerligne, 8) = CPostal
bh.Cells(iDerligne, 9) = Téléphone
bh.Cells(iDerligne, 10) = Portable
Unload FicheClient
Sheets("carnetbh").Select
End Sub

Le numéro de tél que je saisi à travers la boite de dialogue se comporte
comme du texte et non comme des chiffres. Dans ma cellule, cela apparaît
0611223344, je voudrais 06 11 22 33 44

Sur ma lancée, j'essaye un code pour rechercher une fiche en fonction d'un
nom.
Voici une partie du code :
Dim valeur As String
Sheets("carnetbh").Activate
Range("A2").Activate
valeur = InputBox("Entrer le nom")
On Error Resume Next
Sheets("carnetbh").Cells.Find(What:=valeur, After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:úlse) _
.Activate
ActiveCell.Select
FicheClient1.Nom = ActiveCell.Value
FicheClient1.Prenom = ActiveCell.Offset(0, 1).Value
FicheClient1.TelPerso = ActiveCell.Offset(0, 8).Value
FicheClient1.Portable = ActiveCell.Offset(0, 9).Value

Le numéro de téléphone (et le portable) qui s'affiche dans la boite de
dialogue quand j'appelle une fiche s'écrit 611223344, je voudrais 06 11 22 33
44

Merci pour votre patience, mais je pouvais comprendre...

BH

--
Re,
exemple numéro en a1 affichage du userform:

Private Sub UserForm_Initialize()
TextBox1 = Format([a1], "00 00 00 00 00")

End Sub

'cdlt

'lSteph

Bruno RCSC a utilisé son clavier pour écrire :
Merci pour vos réponses, mais cela ne va pas.

J'ai du mal m'exprimer :

Dans la base de données (la feuille excel) j'utilise
Format/Nombre/Special/Téléphone.
L'affichage est parfait.

Mon problème, c'est l'affichage des numéros dans mon UserForm
Ma petite procédure permet de saisir le nom d'une personne et d'afficher
des infos dont un numéro de téléphone. Comment faire pour que le numéro
qui s'affiche soit au format "téléphone" ?

Merci.
BH


-- - -





--
- -



Avatar
Bruno RCSC
Bravo et merci 1Steph.
Cela fonctionne pour la boite de saisie.

Par contre, quand j'utilise la boite pour consulter une fiche, le numéro de
téléphone affiché est 611223344
Y a t'il une syntaxe à ajouter à :
FicheClient1.TelPerso = ActiveCell.Offset(0, 8).Value
pour obtenir 06 11 22 33 44 dans la boite de dialogue ?


Merci.
BH

-------
Supposons qu'il s'agit bien du nom donné à ton contrôle textbox
bh.Cells(iDerligne, 9) = Téléphone
bh.Cells(iDerligne, 9).value = Téléphone.value


et tu laisse la cellule au format Spécial num téléphone

Cdlt.

lSteph

Bruno RCSC avait énoncé :
Suite

N'étant pas vraiment doué, je ne comprends toujours pas.
Plutôt que de passer par DONNEES/FORMULAIRE, je veux essayer de
progresser en enrichissant la base à partir d'une boite de dialogue (non
sans difficultés !).
Voici le code :
Private Sub validform_Click()
Dim iDerligne As Integer
Dim bh As Worksheet
Dim i As Integer
Set sh = ThisWorkbook.Sheets("carnetbh")
iDerligne = bh.Range("A1").CurrentRegion.Rows.Count + 1
bh.Cells(iDerligne, 1) = Nom
bh.Cells(iDerligne, 2) = Prénom
bh.Cells(iDerligne, 4) = Catégorie
bh.Cells(iDerligne, 6) = Rue
bh.Cells(iDerligne, 7) = Ville
bh.Cells(iDerligne, 8) = CPostal
bh.Cells(iDerligne, 9) = Téléphone
bh.Cells(iDerligne, 10) = Portable
Unload FicheClient
Sheets("carnetbh").Select
End Sub

Le numéro de tél que je saisi à travers la boite de dialogue se comporte
comme du texte et non comme des chiffres. Dans ma cellule, cela apparaît
0611223344, je voudrais 06 11 22 33 44

Sur ma lancée, j'essaye un code pour rechercher une fiche en fonction
d'un nom.
Voici une partie du code :
Dim valeur As String
Sheets("carnetbh").Activate
Range("A2").Activate
valeur = InputBox("Entrer le nom")
On Error Resume Next
Sheets("carnetbh").Cells.Find(What:=valeur, After:¬tiveCell,
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, MatchCase:úlse) _
.Activate
ActiveCell.Select
FicheClient1.Nom = ActiveCell.Value
FicheClient1.Prenom = ActiveCell.Offset(0, 1).Value
FicheClient1.TelPerso = ActiveCell.Offset(0, 8).Value
FicheClient1.Portable = ActiveCell.Offset(0, 9).Value

Le numéro de téléphone (et le portable) qui s'affiche dans la boite de
dialogue quand j'appelle une fiche s'écrit 611223344, je voudrais 06 11
22 33 44

Merci pour votre patience, mais je pouvais comprendre...

BH

--
Re,
exemple numéro en a1 affichage du userform:

Private Sub UserForm_Initialize()
TextBox1 = Format([a1], "00 00 00 00 00")

End Sub

'cdlt

'lSteph

Bruno RCSC a utilisé son clavier pour écrire :
Merci pour vos réponses, mais cela ne va pas.

J'ai du mal m'exprimer :

Dans la base de données (la feuille excel) j'utilise
Format/Nombre/Special/Téléphone.
L'affichage est parfait.

Mon problème, c'est l'affichage des numéros dans mon UserForm
Ma petite procédure permet de saisir le nom d'une personne et
d'afficher des infos dont un numéro de téléphone. Comment faire pour
que le numéro qui s'affiche soit au format "téléphone" ?

Merci.
BH








Avatar
AV
Y a t'il une syntaxe à ajouter à :
FicheClient1.TelPerso = ActiveCell.Offset(0, 8).Value
pour obtenir 06 11 22 33 44 dans la boite de dialogue ?



FicheClient1.TelPerso = Format(ActiveCell.Offset(0, 8).Value, "00"" ""00""
""00"" ""00"" ""00")>

AV


Avatar
Bruno RCSC
Super, sincèrement merci.

BH

--
"AV" a écrit dans le message de news:
%
Y a t'il une syntaxe à ajouter à :
FicheClient1.TelPerso = ActiveCell.Offset(0, 8).Value
pour obtenir 06 11 22 33 44 dans la boite de dialogue ?



FicheClient1.TelPerso = Format(ActiveCell.Offset(0, 8).Value, "00"" ""00""
""00"" ""00"" ""00")>

AV