Les Allergies
Alimentaires
Posez votre question Signaler

Excel VB Textbox Erreur compilation [Résolu]

Kevbad - Dernière réponse le 2 nov. 2011 à 18:42
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
Lire la suite 

Excel VB Textbox Erreur compilation »

4 réponses
Réponse
+0
moins plus
pijaku 4446Messages postés 15 mai 2008Date d'inscription 30 mai 2012Dernière intervention 22 oct. 2011 à 17:58
Salut,
Essaye comm ceci : 
If Not IsDate(TextBox3) And TextBox3 = "" Then
    MsgBox "Format non valide"
Else
Xx = CDate(Textbox3)
End If

 Ajouter un commentaire - Site web
Kevbad - 22 oct. 2011 à 20:50
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..
pijaku- 2 nov. 2011 à 08:15
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
Kevbad - 2 nov. 2011 à 18:42
Merci !!
Ajouter un commentaire
Posez votre question
Ce document intitulé « Excel VB Textbox Erreur compilation » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?