Excel VB Textbox Erreur compilation

Résolu
Kevbad -  
 Kevbad -
Bonjour,
Alors voila, je voudrai faire une base de donnée sous excel, avec un userform pour la boite de dialogue. Le but est de rentrer les valeur dans les textbox, puis elles se rangent toutes seules dans les colonnes.
A un moment, j'ai un textbox qui reçoit une donnée Date : Xx = CDate(Textbox3)
Hors, quand je ne met aucune valeur dans celle si, j'ai une erreur de compilation..

Comment y remédier ?

Merci d'avance tout le monde :D


A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Salut,
Essaye comm ceci : 
If Not IsDate(TextBox3) And TextBox3 = "" Then
    MsgBox "Format non valide"
Else
Xx = CDate(Textbox3)
End If
0
Kevbad
 
Merci, mais ce n'est pas exactement ce que je cherche.. Je voudrai que s'il n'y a aucune valeur de rentrée, alors, on n'entre aucune valeur dans la base de donnée.

S'il n'y a rien à importer, on importe pas..

Je ne sait pas si c'est très clair..
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,
De retour de vacances... :
Si rien de saisi dans textbox3 alors rien ne s'inscrit en A1 : 
If TextBox3 = "" Then
Range("A1") = ""
Else
Range("A1") = TextBox3
End If

Si rien de saisi dans textbox3 alors rien ne se passe : 
If TextBox3 = "" Then Exit Sub
0
Kevbad
 
Merci !!
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses