Masque de saisie en VBA(excel)

MonHeure=format(heure,"hh:mm:ss")
MonTel=format(NumTel,"00/00/00/00/00")

Bonjour,
J'aurai aimé connaître la formule en VBA pour entrer l'heure et aussi le n°
de téléphone et ce serai un format que j'aurai choisi
ex _ _/_ _
Je vous remercie d'avance
Valérie

Bonjour.

Code à mettre dans un Userform

Dim MonMasque
Dim Initialiser
Dim CaractereARemplacer

Private Sub UserForm_Initialize()

'CaractereARemplacer = "."
'MonMasque = "../../.."
'MonMasque = "(...) ...-...."

CaractereARemplacer = "_"
MonMasque = "_ _/___/__"

Initialiser = True
Me.TextBox1 = MonMasque
Initialiser = False

Me.TextBox1.SelStart = 0

p = Me.TextBox1.SelStart

While p < Len(MonMasque) And Mid(MonMasque, p + 1, 1) <>
CaractereARemplacer
p = p + 1
Wend

Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1

End Sub

Private Sub TextBox1_Change()

If Initialiser = True Then Exit Sub

p = Me.TextBox1.SelStart

While p < Len(MonMasque) And Mid(MonMasque, p + 1, 1) <>
CaractereARemplacer
p = p + 1
Wend


Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1

End Sub

Salutations

Mishell

"clochette71" <clochette71@discussions.microsoft.com> wrote in message
news:62208835-7623-4CFC-8759-7623200297F9@microsoft.com...

Bonjour,
J'aurai aimé connaître la formule en VBA pour entrer l'heure et aussi le
n°
de téléphone et ce serai un format que j'aurai choisi
ex _ _/_ _
Je vous remercie d'avance
Valérie