TextBox Date

L

laetitia90

XLDnaute Barbatruc

• 5 Mai 2011

• #2

Re : TextBox Date

bonjour apdf1
brut comme cela

Code:

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

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 5 Mai 2011

• #3

Bonjour apdf, laetitia et le forum.

Comme ceci peut-être. 🙂

Code:

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 +

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 5 Mai 2011

• #4

Re : TextBox Date

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

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 5 Mai 2011

• #5

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 5 Mai 2011

• #6

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🙁

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 5 Mai 2011

• #7

Re : TextBox Date

Re,

Tampis peut être plus tard

@+

Max

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 5 Mai 2011

• #8

Re à vous.

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

A +

 

Pièces jointes

• insérer lien mail depuis textbox vers feuille.xls

  48 KB · Affichages: 25

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 5 Mai 2011

• #9

Re : TextBox Date

Re

Je vous remercie beaucoup.

Bonne journée.
@+
Max

 

Vote positif 0 Vote négatif