masque dans une textbox userform

[sylv@in]

bonjour

j'aurais voulu avoir quelques explications sur ce morceau de code ligne par ligne car ne comprenant pas tout je n'arrives donc pas à l'adapter pour mon cas. chez moi ca ne marche pas jpeux pas rentrer plus que les deux premiers nombre 12/**/**** une fois que j'ai tapé 12 le curseur reste bloqué sur 2 et ne veux pas passer au premier chiffre du mois

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 Then p = p + 1
Me.TextBox1.SelStart = p
Me.TextBox1.SelLength = 1
End Sub

 

[Guest]

Re : masque dans une textbox userform

Bonjour Sylvain,

As-tu déclaré en tête de module du userform comme ceci

Option Explicit
Dim p As Byte


Parce que chez moi, l'exemple fonctionne parfaitement.

A bientôt

 

[sylv@in]

Re : masque dans une textbox userform

tu le met ou

Option Explicit
Dim p As Byte

car à l'extérieur d'un module excel me dit que je ne peux pas et dans un module la commande option explicit bug

 

[sylv@in]

Re : masque dans une textbox userform

bon en fait parès quelque modif c'est bon ca marche !
merci

 

[Guest]

Re : masque dans une textbox userform

re Sylvain

La déclaration de la variable P doit se faire en tête de module du UserForm afin que cette variable soit accessible par les deux procédures UserForm_Initialize et TextBox1_Change.

Option Explicit est quant à lui facultatif mais c'est étonant qu'il bug.

A bientôt