TextBox Date

[apdf1]

Bonjour,

J'ai un USF avec 1 TextBox pour date avec le code ci-dessous

Private Sub TextBox4_Change()
    Dim Valeur As Byte
    TextBox4.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
    Valeur = Len(TextBox4)
    If Valeur = 2 Or Valeur = 5 Then TextBox4 = TextBox4 & "/"

End Sub

Et-il possible d'avoir 19 aprés la deuxiéme "/"

Merci d'avance

Cordialement

Max

 

[laetitia90]

Re : TextBox Date

bonjour apdf1
brut comme cela

Private Sub TextBox4_Change()
    Dim Valeur As Byte
    TextBox4.MaxLength = 10
    Valeur = Len(TextBox4)
    If Valeur = 2 Or Valeur = 5 Then TextBox4 = TextBox4 & "/"
   If Valeur = 6 Then TextBox4 = TextBox4 & 19
End Sub

 

[stefan373]

Bonjour apdf, laetitia et le forum.

Comme ceci peut-être. 🙂

Dim Valeur As Byte
    TextBox4.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
    Valeur = Len(TextBox4)
    If Valeur = 2 Then TextBox4 = TextBox4 & "/"
    If Valeur = 5 Then TextBox4 = TextBox4 & "/19"

A +

 

[laetitia90]

Re : TextBox Date

re,bonjour stefan373
eventuellement on peut simplifier
maxlength on le defini dans la propriete de la textbox

Private Sub TextBox4_Change()
    If Len(TextBox4) = 2 Then TextBox4 = TextBox4 & "/"
    If Len(TextBox4) = 5 Then TextBox4 = TextBox4 & "/19"
End Sub

 

[apdf1]

Re : TextBox Date

Bonjour Laetetia, Stefan 373,

Je vous remercie infiniment super! si je n'abuse pas trop j'aimerais avoir un renseignement pour mettre une adresse é-mail. Quand je rentre une adresse é-mail directement sur ma feuille elle devient automatiquement un lien par "clik" mais si je rentre par un USF via un textbox elle ne devient pas un lien pourquoi ????

Merci d'avance tet bonne journée à tous

Max

 

[laetitia90]

Re : TextBox Date

re, je crois que cela va etre difficile
j'avais vu une approche de solution de l'ami JNP avec MouseMove mais je retrouve pas🙁

 

[apdf1]

Re : TextBox Date

Re,

Tampis peut être plus tard

@+

Max

 

[stefan373]

Re à vous.

Voilà pour votre bonheur à vous d'adapter.🙄

A +

 

[apdf1]

Re : TextBox Date

Re

Je vous remercie beaucoup.

Bonne journée.
@+
Max