T
Tigrette121
Guest
Bonjour,
J,ai le code suivant dans une UserForm
Private Sub TextBox14_Change()
[S65536].Select
Selection.End(xlUp)(2).Select
ActiveCell.Offset(0, -2) = UserForm1.TextBox14
End Sub
dans cette boîte j'entre un nombre de 10 chiffres et je voudrais que les séparateurs se mettent tout seul entre les chiffres pour faire ceci
514-555-1235
je suis capable de faire la formule (si je travail juste dans une feuille) mais comment l'intégrer dans le userform.
Si 'Q5' est mon nombre de 10 chiffres, ceci me donne le résultat que je veux.
=CONCATENER(GAUCHE(Q5;3);' - ';GAUCHE(DROITE(Q5;7);3);' - ';DROITE(Q5;4)
Merci pour vos suggestions
J,ai le code suivant dans une UserForm
Private Sub TextBox14_Change()
[S65536].Select
Selection.End(xlUp)(2).Select
ActiveCell.Offset(0, -2) = UserForm1.TextBox14
End Sub
dans cette boîte j'entre un nombre de 10 chiffres et je voudrais que les séparateurs se mettent tout seul entre les chiffres pour faire ceci
514-555-1235
je suis capable de faire la formule (si je travail juste dans une feuille) mais comment l'intégrer dans le userform.
Si 'Q5' est mon nombre de 10 chiffres, ceci me donne le résultat que je veux.
=CONCATENER(GAUCHE(Q5;3);' - ';GAUCHE(DROITE(Q5;7);3);' - ';DROITE(Q5;4)
Merci pour vos suggestions