Formater textbox

Y compris Power BI, Power Query et toute autre question en lien avec Excel
K
KTM
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 6
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 28 janvier 2020, 20:15

Bonsoir chers tous
j'aimerais autoriser une forme de saisie dans mon textbox
Format alphanumérique du genre : xxxx/xx/xx/xxxxx

Infiniment Merci
Classeur1.xlsm
(16.48 Kio) Téléchargé 6 fois
Avatar du membre
M12
Passionné d'Excel
Passionné d'Excel
Messages : 3'123
Appréciations reçues : 120
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 28 janvier 2020, 20:19

Bonsoir,

A tester
Range("A1").Value = Format(TextBox1.Value, "####/##/##/#####")
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'184
Appréciations reçues : 242
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 28 janvier 2020, 21:09

Bonsoir KTM, M12, le forum,

Une autre possibilité....
Option Explicit

Private Sub CommandButton1_Click()
 If Len(TextBox1) = 15 Then
  Range("A1") = TextBox1
  TextBox1 = ""
 Else
  MsgBox "Donnée incomplète"
 End If
End Sub

Private Sub TextBox1_Change()
 Dim valeur As Byte
  TextBox1.MaxLength = 15 'nb caractères maxi autorisé dans le textbox
   valeur = Len(TextBox1)
If valeur = 4 Or valeur = 7 Or valeur = 10 Then TextBox1 = TextBox1 & "/"
End Sub
Format Textbox.xlsm
(17.99 Kio) Téléchargé 2 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
K
KTM
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 6
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 29 janvier 2020, 07:43

xorsankukai a écrit :
28 janvier 2020, 21:09
Bonsoir KTM, M12, le forum,

Une autre possibilité....
Option Explicit

Private Sub CommandButton1_Click()
 If Len(TextBox1) = 15 Then
  Range("A1") = TextBox1
  TextBox1 = ""
 Else
  MsgBox "Donnée incomplète"
 End If
End Sub

Private Sub TextBox1_Change()
 Dim valeur As Byte
  TextBox1.MaxLength = 15 'nb caractères maxi autorisé dans le textbox
   valeur = Len(TextBox1)
If valeur = 4 Or valeur = 7 Or valeur = 10 Then TextBox1 = TextBox1 & "/"
End Sub
Format Textbox.xlsm
Cordialement,
SUPER xorsankukai
C'est exactement ce que je veux
Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message