Probleme macro: textbox qui renvoie date

  • Initiateur de la discussion Initiateur de la discussion Seb
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Seb

XLDnaute Occasionnel
Bonjours au forum,

Voila mon petit soucis. Dans un userform, mon textbox5 designe une date.

Qand je valide, je fais vérifier à ma macro la forme de la date. Je voudrais qu'elle agisse ainsi:

Si la date dans textbox5 est au format jj/mm/aaaa alors ..... Je pensais avoir bon en tapant:

If Not IsDate(TextBox5) Then
MsgBox "Seb: Veuillez insérer la date d'entrée au bon format: jj/mm/aaaa."
TextBox5.SetFocus
Exit Sub
End If
Worksheets("LISTING").Range("F3").Value = DateValue(TextBox5)

mais si je tape la date ainsi: 01/02/200 qui est une date fausse, ça bugue, un coup ça me la prend un autre coup non...

Quelqu'un aurait la solution..?

Merci encore..
Seb
 
Re : Probleme macro: textbox qui renvoie date

Bonjour Seb,

le soucis vient du fait que Excel gère les dates à partir du 1er janvier 1900
mais VBA gère les dates à partir du 1er janvier 100
donc pour lui il s'agit d'une date...
je te propose :

If Not IsDate(TextBox5) Then
MsgBox "Seb: Veuillez insérer la date d'entrée au bon format: jj/mm/aaaa."
TextBox5.SetFocus
Exit Sub
End If

if CLng(CDate(textbox5)) <= 0 then
MsgBox "Seb: Veuillez insérer une date d'entrée au-delà du 01/01/1900."
TextBox5.SetFocus
Exit Sub
End If
 
Re : Probleme macro: textbox qui renvoie date

Bonjour,
En formattant la date tu ne devrais plus avoir d'erreur il me semble
Code:
Private Sub CommandButton1_Click()
If Not IsDate(TextBox5) Then
MsgBox "Seb: Veuillez insérer la date d'entrée au bon format: jj/mm/aa ou jj/mm/aaaa"
TextBox5.SetFocus
Exit Sub
End If
Worksheets(1).Range("F3").Value = CDate(Format(TextBox5, "dd/mm/yy"))
End Sub
A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
310
Réponses
4
Affichages
752
Réponses
21
Affichages
2 K
Réponses
22
Affichages
3 K
Réponses
40
Affichages
5 K
Retour