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 de cellule en VBA

format de cellule en VBA

5 réponses
Avatar
stef
Boujour a tous

J' aurais besion de vos lumiere d'expert concernant le fomat de cellule dans
un textbox .
ce textbox renvoi un N° de recommander et pour l'instant il me le renvoi
comme ça "RA778712396FR" et il le faudrais comme ceci "RA 77 871 239 6 FR"

merci de votre aide
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
JB
Bonsoir,

Un masque de saisie simple:

Private Sub UserForm_Initialize()
Me.TextBox1 = ".. .. ... ... . .."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_Change()
p = p + 1
If p = 2 Or p = 5 Or p = 9 Or p = 13 Or p = 15 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

JB

Boujour a tous

J' aurais besion de vos lumiere d'expert concernant le fomat de cellule d ans
un textbox .
ce textbox renvoi un N° de recommander et pour l'instant il me le renvoi
comme ça "RA778712396FR" et il le faudrais comme ceci "RA 77 871 239 6 FR"

merci de votre aide


Avatar
stef
bonjour
Je viens d'essayer et quand je saisie dans ma text box je suis bloquer au 2e
chiffre.
de plus les personnes qui saisisse tape en continue"778712396" et je
voudrais qu'une fois les chiffre taper ce soit "77 871 239 6" dans la
feuille Excel.

merci

"JB" a écrit dans le message de
news:
Bonsoir,

Un masque de saisie simple:

Private Sub UserForm_Initialize()
Me.TextBox1 = ".. .. ... ... . .."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_Change()
p = p + 1
If p = 2 Or p = 5 Or p = 9 Or p = 13 Or p = 15 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

JB

Boujour a tous

J' aurais besion de vos lumiere d'expert concernant le fomat de cellule
dans

un textbox .
ce textbox renvoi un N° de recommander et pour l'instant il me le renvoi
comme ça "RA778712396FR" et il le faudrais comme ceci "RA 77 871 239 6 FR"

merci de votre aide


Avatar
MichDenis
Tu peux essayé ceci :

Private Sub TextBox1_AfterUpdate()

'Si ton textbox contient seulement des chiffres
Me.TextBox1 = Format(Me.TextBox1, "## ### ### #")

'Ou si ton textbox contient des chiffres et des lettres
Me.TextBox1 = Left(Me.TextBox1, 2) & " " & Mid(Me.TextBox1, 3, 3) _
& " " & Mid(Me.TextBox1, 6, 3) & " " & Right(Me.TextBox1, 1)
End Sub




"stef" de pub.fr> a écrit dans le message de news:
45a7641a$0$166$
bonjour
Je viens d'essayer et quand je saisie dans ma text box je suis bloquer au 2e
chiffre.
de plus les personnes qui saisisse tape en continue"778712396" et je
voudrais qu'une fois les chiffre taper ce soit "77 871 239 6" dans la
feuille Excel.

merci

"JB" a écrit dans le message de
news:
Bonsoir,

Un masque de saisie simple:

Private Sub UserForm_Initialize()
Me.TextBox1 = ".. .. ... ... . .."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_Change()
p = p + 1
If p = 2 Or p = 5 Or p = 9 Or p = 13 Or p = 15 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

JB

Boujour a tous

J' aurais besion de vos lumiere d'expert concernant le fomat de cellule
dans

un textbox .
ce textbox renvoi un N° de recommander et pour l'instant il me le renvoi
comme ça "RA778712396FR" et il le faudrais comme ceci "RA 77 871 239 6 FR"

merci de votre aide


Avatar
stef
super merci beaucoup

"MichDenis" a écrit dans le message de
news:uFPW$
Tu peux essayé ceci :

Private Sub TextBox1_AfterUpdate()

'Si ton textbox contient seulement des chiffres
Me.TextBox1 = Format(Me.TextBox1, "## ### ### #")

'Ou si ton textbox contient des chiffres et des lettres
Me.TextBox1 = Left(Me.TextBox1, 2) & " " & Mid(Me.TextBox1, 3, 3) _
& " " & Mid(Me.TextBox1, 6, 3) & " " & Right(Me.TextBox1, 1)
End Sub




"stef" de pub.fr> a écrit dans le message de news:
45a7641a$0$166$
bonjour
Je viens d'essayer et quand je saisie dans ma text box je suis bloquer au
2e

chiffre.
de plus les personnes qui saisisse tape en continue"778712396" et je
voudrais qu'une fois les chiffre taper ce soit "77 871 239 6" dans la
feuille Excel.

merci

"JB" a écrit dans le message de
news:
Bonsoir,

Un masque de saisie simple:

Private Sub UserForm_Initialize()
Me.TextBox1 = ".. .. ... ... . .."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_Change()
p = p + 1
If p = 2 Or p = 5 Or p = 9 Or p = 13 Or p = 15 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

JB

Boujour a tous

J' aurais besion de vos lumiere d'expert concernant le fomat de cellule
dans

un textbox .
ce textbox renvoi un N° de recommander et pour l'instant il me le renvoi
comme ça "RA778712396FR" et il le faudrais comme ceci "RA 77 871 239 6
FR"



merci de votre aide







Avatar
Fredo P.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Application.EnableEvents = False
'Si ton textbox contient seulement des chiffres
Me.TextBox1 = Left(Me.TextBox1, 2) & " " & Mid(Me.TextBox1, 3, 3) _
& " " & Mid(Me.TextBox1, 6, 3) & " " & Right(Me.TextBox1, 1)
[A1] = TextBox1
Application.EnableEvents = True
End Sub

--
'Ôtez toutes voyelles avant l'@
http://frdpst.9online.fr
"stef" de pub.fr> a écrit dans le message de news:
45a7b0ff$0$164$
super merci beaucoup

"MichDenis" a écrit dans le message de
news:uFPW$
Tu peux essayé ceci :

Private Sub TextBox1_AfterUpdate()

'Si ton textbox contient seulement des chiffres
Me.TextBox1 = Format(Me.TextBox1, "## ### ### #")

'Ou si ton textbox contient des chiffres et des lettres
Me.TextBox1 = Left(Me.TextBox1, 2) & " " & Mid(Me.TextBox1, 3, 3) _
& " " & Mid(Me.TextBox1, 6, 3) & " " & Right(Me.TextBox1, 1)
End Sub




"stef" de pub.fr> a écrit dans le message de news:
45a7641a$0$166$
bonjour
Je viens d'essayer et quand je saisie dans ma text box je suis bloquer
au


2e
chiffre.
de plus les personnes qui saisisse tape en continue"778712396" et je
voudrais qu'une fois les chiffre taper ce soit "77 871 239 6" dans la
feuille Excel.

merci

"JB" a écrit dans le message de
news:
Bonsoir,

Un masque de saisie simple:

Private Sub UserForm_Initialize()
Me.TextBox1 = ".. .. ... ... . .."
p = 0
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

Private Sub TextBox1_Change()
p = p + 1
If p = 2 Or p = 5 Or p = 9 Or p = 13 Or p = 15 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

JB

Boujour a tous

J' aurais besion de vos lumiere d'expert concernant le fomat de
cellule



dans
un textbox .
ce textbox renvoi un N° de recommander et pour l'instant il me le
renvoi



comme ça "RA778712396FR" et il le faudrais comme ceci "RA 77 871 239 6
FR"



merci de votre aide