Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problèmes de date dans Textbox

Créer une discussion

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 !

S'inscrire
K

karinette

XLDnaute Occasionnel
Bonjour à tous ...
Je vous expose mon problème, car mes recherches ne m'ont pas beaucoup aidées ...
J'ai un classeur avec un USF où l'on saisi 2 dates.
Un raccourcis permet de mettre automatiquement la date du jour.
Apres validation, une formule calcule l'ecart.
J'ai 2 problèmes :
- Lorsque je change la date dans le textbox, le mois et le jour s'inverse parfois (sauf sur un petit ecart 😕)
- Comment obliger la saisie au bon format (dd/mm/yyyy hh:mm)

Merci d'avance ...
 

Pièces jointes

Trier par date Trier par votes
Re : Problèmes de date dans Textbox

Bonjour karinette,

Par exemple cette solution :

Code: 
Private Sub CommandButton9_Click()
[COLOR="Red"]If Not TextBox1 Like "##/##/#### ##:##" Or Mid(TextBox1, 4, 2) > "12" _
  Or Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not TextBox2 Like "##/##/#### ##:##" Or Mid(TextBox2, 4, 2) > "12" _
  Or Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub[/COLOR]
ActiveSheet.Range("C3") = CDate(TextBox1)
ActiveSheet.Range("D3") = CDate(TextBox2)
Unload Me
End Sub

On peut aussi contrôler chaque caractère, c'est plus compliqué et plus lourd...

Edit : j'avais mis Like "##/##* ##:##", excès de zèle pas terrible...

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problèmes de date dans Textbox

Re, salut Michel,

IsDate considère comme des dates les années à partir de l'an 100...

Donc il faut aussi contrôler l'année (en rouge) :

Code: 
Private Sub CommandButton9_Click()
If Not TextBox1 Like "##/##/#### ##:##" Or Mid(TextBox1, 4, 2) > "12" [COLOR="Red"]Or Mid(TextBox1, 7, 4) < "1900"[/COLOR] _
  Or Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not TextBox2 Like "##/##/#### ##:##" Or Mid(TextBox2, 4, 2) > "12" [COLOR="red"]Or Mid(TextBox2, 7, 4) < "1900"[/COLOR] _
  Or Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub
ActiveSheet.Range("C3") = CDate(TextBox1)
ActiveSheet.Range("D3") = CDate(TextBox2)
Unload Me
End Sub

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
768
SAMUAL_2023
S
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
641
Staple1600
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
883
NONO14
N
V
  • Question Question
Autres Traitement des formats date
Réponses
8
Affichages
477
VIARD
V
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
811
RyuAutodidacte
  • Résolu(e)
XL 2013 (Résolu)Format date de Textebox vers cellule
Réponses
5
Affichages
892
Staple1600
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
1 K
Bernard38
D
  • Question Question
Fond textbox si date du jour
Réponses
12
Affichages
789
gbinforme
G
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
847
fanch55
  • Question Question
XL 2021 comment convertir et enregistrer en pdf tout en conservant la date d'une textbox vba
Réponses
2
Affichages
663
AugusteP
A
  • Résolu(e)
Microsoft 365 Empecher date de s'enregistrer au format américain
Réponses
2
Affichages
952
Arnnaud
A
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
A
  • Question Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
1 K
aurelio.ewane
A
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
S
  • Résolu(e)
Autres Récupérer un total d'heures dans un textbox
Réponses
6
Affichages
1 K
seraff1
S
  • Question Question
Autres (RESOLU) formule et format d'un TextBox
Réponses
1
Affichages
808
chaelie2015
J
  • Question Question
XL 2019 Changement de date qui fait bugger un import
Réponses
1
Affichages
657
Deadpool_CC
D
  • Résolu(e)
XL 2019 calcul de date dans textbox
Réponses
14
Affichages
1 K
ChTi160
J
  • Résolu(e)
Microsoft 365 Exception de Textbox dans une boucle
Réponses
2
Affichages
968
J-Laurie
J
  • Question Question
Microsoft 365 Soucis de format date
Réponses
2
Affichages
1 K
pompaero
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…