Discussion :

[Mugette]

bonjour,
Je demande à un utilisateur de remplir une textbox, cependant je voudrais que le format soit précis.
je voudrais tester ce format.
J'ai fais un truc comme ça mais j'ai "incompatibilité de type".

Code :

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

1
2
3
4
5
6
 
    If Format(Sheets("Feuil1").TextBox7.Value, "jj/mm/yyyy") Then
        MsgBox "ok"
    Else
        MsgBox "nok"
    End If

pouvez-vous m'aider ?

merci d'avance.

[megapacman]

essaie ca peux etre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
IsDate Function Example
This example uses the IsDate function to determine if an expression can be converted to a date.
 
Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "February 12, 1969": YourDate = #2/12/69#: NoDate = "Hello"
MyCheck = IsDate(MyDate)    ' Returns True.
MyCheck = IsDate(YourDate)    ' Returns True.
MyCheck = IsDate(NoDate)    ' Returns False.

[Mugette]

merci mais j'avais deja essayé avec ça mais c'est pas assez précis, cela sert juste a savoir si le contenu de la variable peut etre converti en date.