format textbox

[Vivien]

Bonjour le forum,
J'ai réalisé une fenetre de remplissage(userform1).
Elle est constituée de différentes textbox:
-pour la date
-pour l'heure......

et d'un bouton OK(commandbutton)

J'aimerai que lorsque j'appuie sur le bouton OK,les champs soient vérifier:

-la zone date(textbox)bien saisie en format date
-zone heure ,bien saisie en format heure
.
.
.
Si les zones remplies ne sont pas au bon format alors une autre fenetre apparait pour annoncer que les champs ne sont pas saisies correctement(exemple userform2).

Autre souci:
J'utilise la fonction date pour afficher la date dans une cellule.
Elle s'affiche 16/06/2005.
Comment faire pour qu'elle s'affiche 16/06/05,sachant que j'ai déja essayé tous les formats et que mon 2005 reste merci

 

[Eric C]

Bonjour le forum
Bonjour Vivien

Sur que tu auras la réponse appropriée à ta demande (là je vais manger ...)
En attendant :

Private Sub CommandButton1_Click()
 Dim TheDate As Date
 Dim TheTime As Date
If IsDate(Me.TextBox1) Then
TheDate = CDate(Me.TextBox1)
Else
MsgBox 'Veuillez entrer une date valide.', vbOKOnly, 'Erreur'
Me.TextBox1.SetFocus
Exit Sub
End If
If IsDate(Me.TextBox2) Then
TheTime = Me.TextBox2
Else
MsgBox 'Veuillez entrer une heure valide.', vbOKOnly, 'Erreur'
Exit Sub
End If
End Sub

Bon appétit à toutes & à tous & à demain

 

[jepi67]

Bonsoir Vivien, le forum,

Pour ton formatage de date il me semble que cela soit lié à la fonction DATE() elle même qui se présente de cette seule façon.
Mais je ne suis pas un expert.

 

[jepi67]

Bonsoir Vivien, le forum,

Pour ton formatage de date il me semble que cela soit lié à la fonction DATE() elle même qui se présente de cette seule façon.
Mais je ne suis pas un expert.

 

[VBA]

salut a tous,

pour ta date je te conseille un truc que je trouve sympa : le calendrier

Utilisation du calendrier pour inserer date :

`en clickant ds ta textbox tu vas ouvrir le calendrier
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Calendrier.Show
End Sub

`tu selectionne la date qui va s`inscrire ds la textbox1 au format defini ci-apres
Private Sub Calendar1_Click()
UserForm1.TextBox1.Text = Format(Calendar1, ' dddd DD mmmm yyYY')
Unload Me
End Sub

Private Sub UserForm1_Activate()
Calendar1 = Now
End Sub



voila j`espere que ca va t`aider

bonne soiree

VBA

 

[vivien]

bonjour tout le monde.
Je vous remercie de votre aide.je vais tester tout cela de suite.
Encore merci a bientot.
Vivien.