Masque de saisie en VBA(excel)

Le
clochette71
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
hasco
Le #4513291
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



Mishell
Le #4512821
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" news:
Bonjour,
J'aurai aimé connaître la formule en VBA pour entrer l'heure et aussi le

de téléphone et ce serai un format que j'aurai choisi
ex _ _/_ _
Je vous remercie d'avance
Valérie



Publicité
Poster une réponse
Anonyme