Un truc tout simple... peut être ya encore plus simple ? :)
Mettre un textbox dans une form, et rajouter le code sur le textbox
Source / Exemple :
Private Sub Text1_Change()
Dim tmp As String
If Len(Text1.Text) = 2 Then
tmp = Text1.Text & "/"
Text1.Text = tmp
Text1.SelStart = 4
End If
If Len(Text1.Text) = 5 Then
tmp = Text1.Text & "/"
Text1.Text = tmp
Text1.SelStart = 7
End If
End Sub
Conclusion :
Rajoute automatiquement les séparateurs pour le formatage d'une date. Ya plus simple ??
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.