Erreur 13

Bonjour

le déblogeur me donne l instruction suivante

erreur d’exécution 13

Incompatibilité de type

Voici le code

rivate Sub TextBox1_Change()

'Date achat

Dim Valeur As Byte

TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox

Valeur = Len(TextBox1)

If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"

End Sub

Private Sub TextBox1_AfterUpdate()

If CDate(TextBox1.Value) > Now Then

MsgBox "La date doit être Inférieure à la date du jour"

Exit Sub

End If

End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox1 = ""

End Sub

en vous remerciant

orguyrine

Bonjour,

orguyrine a écrit :

le déblogeur me donne l instruction suivante

erreur d’exécution 13

Incompatibilité de type

Si tu as ce message, c'est que la définition de ta variable n'est pas la bonne

Maintenant, tu ne nous dis pas dans quel SUB ton code s'arrête

Perso, je définirai "Valeur" en Integer

A+

bonjour

je vous joins le fichier

Quand je mets une date supérieur à la date du jour il me dit date supérieur à la date du jour. je fais OK

Quand je clic sur la textbox date pour effacer et après quitter la j ai le message erreur

Je vous fais parvenir le fichier car je veux comprendre.

en vous remerciant

orguyrine

Re,

Quand tu as un message d'erreur, tu peux cliquer sur le bouton [débogage]

Ce qui t'affiche ceci

Et qui te permet de comprendre ce qui se passe

Quand tu cliques sur le bouton [Quitter], l'évènement ci-dessous se met en route

Comme le TextBox a été remis à zéro et que tu utilises une fonction VBA pour savoir si la date est supérieure à celle du jour

CDate de vide = erreur

Tu peux corriger comme ceci

Private Sub TextBox1_AfterUpdate()
  If Me.TextBox1.Value <> "" Then
    If CDate(TextBox1.Value) > Now Then
        MsgBox "La date doit être Inférieure à la date du jour"
        Exit Sub
    End If
  End If
End Sub

A+