Userform/Masque de saisie textbox ,format 0000/00 Fermé

Question

Bonjour tout le monde ,

Svp j'ai encore besoin de votre aide,

J'aimerais bien créer un masque de saisie pour mon texbox au format suivant "0000"/"00"

a noter que si j'entre par exemple 9/14 le format de sortie sera 0009/14


Pièce jointe :  http://cjoint.com/14ma/DCAod68OIbo.htm

Exp :

0001/14
0007/14
0099/14
0358/14
9999/14



Merci pour votre aide

cs_Le Pivert · Answer

Bonjour,

je vois que tu n'as pas eu de réponse, donc voici le code en vba

Il faut mettre ce code dans la feuille où ce situe tes cellules: 
 
Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) Dim pos As Integer Dim caract, rep As StringOn Error Resume Next 'permet de travailler sur la feuillerep = Target.Value 'valeur de la celluleIf rep = "" Then Exit Sub 'si cellule videpos = InStr(rep, "/") 'position du /If pos = 2 Thencaract = Left(rep, 1) 'on récupère le 1er caractèrerep = Replace(rep, caract, "000" & caract) 'on ajoute 000 au 1er carctèreTarget.Value = rep 'on actualise la celluleElseIf pos = 3 Thencaract = Left(rep, 2)rep = Replace(rep, caract, "00" & caract)Target.Value = repElseIf pos = 4 Thencaract = Left(rep, 3)rep = Replace(rep, caract, "0" & caract)Target.Value = repEnd IfEnd Sub

J'ai mis des commentaires pour que tu comprennes ce qui a été fait

Bonne programmation

ssassam · Answer

Merci beaucoup , cs_Le Pivert

Ton code et bien mais il lui manque le mode de formatage d'une feuille

J'ai enfin trouvé la bonne réponse 

C'est un code a intégré dans une textbox

Private Sub TextBox1_Change()If Right(TextBox1, 1) = "/" ThenTextBox1 = Format(Left(TextBox1, Len(TextBox1) - 1), "0000") & "/"End IfEnd Sub



Merci

cs_Le Pivert · Answer

Je me suis planté, je l'ai fait pour une cellule!!!!!!!!!!! 

 Cela servira toujours

Userform/Masque de saisie textbox ,format 0000/00

3 réponses

Discussions similaires