problème en testant la date dans un textbox

Version imprimable

bonjour!

j'arrive plus à résoudre cet problème en testant la date dans textbox, le code marche très bien si je saisie "31/31/2017" ou "40/12/2017" ou "ABCD"; mais voilà le souci: si je saisie "123456" vb fait la correction automatique comme "03/01/2238", ou saisir "12/31/2017" l'auto-correction est "31/12/2017" là l'utilisateur risque d’enregistrer la fausse date. Et si je saisie "1234567890" vb renvoi le message d'erreur (erreur d’exécution '6': dépassement de capacité). quelqu'un pourra m'aider? merci pour vos aides les amis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub CommandButton1_Click()
    Dim L As Integer
    Dim objControl As Control
    Dim madate As Date
 
 
    Me.TextBox1.Text = Format(TextBox1, "dd/mm/yyyy")
 
 
    If Not IsDate(Me.TextBox1.Text) Then
            Me.TextBox1.Value = ""
            MsgBox "veuillez inserer la date normal", vbOKOnly + vbInformation, "VALIDATION"
            Exit Sub
 
    Else           'permettre d'inserer les saisies dans la feuille active
        If MsgBox("Confirmez-vous l'insertion de ce nouveau contact?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
 
            L = Sheets(Feuil1).Range("A" & Rows.Count).End(xlUp).Row + 1
 
            Range("A" & L).Value = TextBox1
 
        End If
    End If
                   'pour vider les textbox
    For Each objControl In UserForm1.Controls
        If TypeOf objControl Is MSForms.TextBox Then
            objControl.Text = ""
        End If
    Next
End Sub

18/04/2017, 11h32
patricktoulon

re

Bonjour
déjà par rapport a ceci :

Code:

If Not IsDate(Me.TextBox1.Text) Then

tu ne devrait pas avoir ces erreurs

ensuite dans la retranscription tu pourrait ajouter le formatage identique au textbox

Code:

ta cellule.value=format(textbox1.value,"dd/mm/yyyy")
18/04/2017, 12h44
unparia

Bonjour
L'utilisation de la seule fonction Isdate pour contrôler la validité d'une date est insuffisante, du fait de la trop grande permissivité de VBA/Excel.
que l'utilisateur étourdi saisisse par exemple par erreur "01/13/2000" (au lieu de "01/12/2000") et Isdate retournera True, mais en pensant que la saisie est alors "13/01/2000")
Il est donc nécessaire de compléter par la vérification de ce que la valeur numérique de la concaténation des quatrième et cinquième caractères n'est pas supérieure à 12. ;)
( je crois avoir déjà eu l'occasion d'en parler à différentes reprises).
18/04/2017, 13h59
raAndo

Citation:

Envoyé par patricktoulon

Bonjour
déjà par rapport a ceci :

Code:

If Not IsDate(Me.TextBox1.Text) Then

tu ne devrait pas avoir ces erreurs

ensuite dans la retranscription tu pourrait ajouter le formatage identique au textbox

Code:

ta cellule.value=format(textbox1.value,"dd/mm/yyyy")

rebonjour!

merci à toi Patrick, j'ai essayé ton idée mais le problème persiste.
18/04/2017, 14h07
raAndo

Citation:

Envoyé par unparia

Bonjour
L'utilisation de la seule fonction Isdate pour contrôler la validité d'une date est insuffisante, du fait de la trop grande permissivité de VBA/Excel.
que l'utilisateur étourdi saisisse par exemple par erreur "01/13/2000" (au lieu de "01/12/2000") et Isdate retournera True, mais en pensant que la saisie est alors "13/01/2000")
Il est donc nécessaire de compléter par la vérification de ce que la valeur numérique de la concaténation des quatrième et cinquième caractères n'est pas supérieure à 12. ;)
( je crois avoir déjà eu l'occasion d'en parler à différentes reprises).

bonjour unparia!

oui tu as raison, en plus tu réveille mon pauvre cerveau!!!
18/04/2017, 16h41
Invité

Code:

If Not IsDate(Format(Me.TextBox1.Text, "yyyy-mm-dd")) or Not CBool(InStr(Me.TextBox1.Text, "/")) Then MsgBox "Pas date"

Bonjour à tous !

Merci pour tous vos aides, vous avez de la grande générosité les amis.

Avec « isdate() » le problème toujours persiste, alors je ne l’utilise plus encore. Voici je combine « MID() » ; « Cbool() » ; « Instr() » ; « Right() » pour avoir une format date courte et ça marche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub CommandButton1_Click()
 
    Dim L As Integer
    Dim barre As Integer
    Dim objControl As Control
    Dim Cell As Range
 
    barre = InStr(1, TextBox1, "/") + 1
 
'tester la valeur de textbox1 pour le formater comme date courte
    If Not Mid(TextBox1, 1, 2) <= 31 Or Not Mid(TextBox1, 4, 2) <= 12 Or Not CBool(InStr(barre, TextBox1.Text, "/")) Or Not Right(TextBox1, 4) >= 2017 Then
            MsgBox "veuillez inserer la date normal", vbOKOnly + vbInformation, "VALIDATION"
            Exit Sub
 
    Else           'permettre d'inserer les saisies dans la feuille active
        If MsgBox("Confirmez-vous l'insertion de ce nouveau contact?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
 
            L = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1
 
                Range("A" & L).Value = TextBox1
        End If
    End If
 
'pour vider les textbox
    For Each objControl In UserForm1.Controls
        If TypeOf objControl Is MSForms.TextBox Then
            objControl.Text = ""
        End If
    Next
 
'Supprimer tous les espaces superflus (la cellule se formate en date courte)
For Each Cell In ActiveSheet.UsedRange
    Cell = Application.WorksheetFunction.Trim(Cell)
Next
 
End Sub

21/04/2017, 11h06
patricktoulon

1 pièce(s) jointe(s)

re

Bonjour
malgré que tu pense que c'est résolu je pense que tu devrais t'intéresser au bases

et surtout laisser Excel et vba faire son boulot il le feront certainement mieux que toi

regarde bien cet exemple animé tu verra que vba ne s'y trompe pas avec les dates quelque soit leur format

la règle st simple

si jour et mois <12 alors le mois c'est le milieu
si mois >12 alors le mois c'est les deux premiers
si tu tape la date exemple(2017/25/04) se sera interprété comme une erreur et donc pas une date car la règle pour ce format est "yyyy/mm/dd"
c'est pas compliqué
la preuve en démo
Pièce jointe 266773

donc perso
j'aurais fait les testes sur month(textboxX) ou day(textboxX)

a mediter;)
21/04/2017, 12h41
raAndo

wow! vraiment intéressant!! merci beaucoup Patrick, c'est mieux plus que le mien

allez puisque personne ne te la montrer je le fait

j'ai repris l'acabit de ton code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() Dim jour, année, mois If IsDate(TextBox1) Then jour = Day(TextBox1): mois = Month(TextBox1): année = Year(TextBox1): If MsgBox("Confirmez-vous l'insertion de ce nouveau contact?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then With Sheets("Feuil1"): .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = DateSerial(année, mois, jour): End With TextBox1.Value = DateSerial(année, mois, jour) 'on corige meme le textbox pour le fun End If Else MsgBox "veuillez inserer la date normal", vbOKOnly + vbInformation, "VALIDATION" End If End Sub
voila maintenant essaie de taper:

Citation:

08052017 ' te donnera le message d'erreur "veuillez inserer la date normal",(il mange les séparateurs)

ou

Citation:

05/042017 ' te donnera le message d'erreur "veuillez inserer la date normal",(il manque le separateur de l'année)

ou

Citation:

40/04/2017 ' te donnera le message d'erreur "veuillez inserer la date normal",( il n'y a jamais eu 40 dans un mois)

ou

Citation:

2017/08/04 ' te donnera le message d'erreur "veuillez inserer la date normal",( tout simplement par ce que le isdate teste les date au format Français )

PAR CONTRE SI TU TAPE !!!!

Citation:

21/04/17 'c'est ok

ou

Citation:

04/21/2017 c'est ok

non seulement ces formats seront bons mais en plus !!! ca te les met au bon format dans la cellule et en bonus dans le textbox

comme quoi il est inutile d'essayer de réinventer la roue je suis étonné vraiment que certains ne te l'ai pas dit

21/04/2017, 13h00
raAndo

ça marche très bien, si on tape 12/31/2017 il rectifie automatique 31/12/2017, très bien et merci! merci!......et merci beaucoup!
30/04/2020, 16h33
Nonomix10

Bonjour,

Je sais que ce post est vieux mais je voudrais la même chose dans un TextBox avec un message d'alerte lorsque que la date saisie n'est pas correct.

Je suis débutant dans cette partie d'Excel et je suis avec la version 2007.

Si l'un d'entre vous peut me guider ce serait sympas.