Discussion :

[raAndo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

Bonjour
déjà par rapport a ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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).

[raAndo]

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!!!

[raAndo]

Bonjour
déjà par rapport a ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

rebonjour!

merci à toi Patrick, j'ai essayé ton idée mais le problème persiste.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[raAndo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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


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

a mediter

[raAndo]

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

[patricktoulon]

allez puisque personne ne te la montrer je le fait

j'ai repris l'acabit de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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

ou

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

ou

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

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 !!!!

21/04/17 'c'est ok

ou

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

[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!