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, 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,
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, 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
Mishell
Bonjour.
Code à mettre dans un Userform
Dim MonMasque Dim Initialiser Dim CaractereARemplacer
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" wrote in message news:
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
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
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" wrote in message news:
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