Excel VB Textbox Erreur compilation

Résolu/Fermé

Kevbad - 22 oct. 2011 à 17:36
Kevbad - 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

A voir également:

Excel VB Textbox Erreur compilation
Erreur 0x80070643 - Accueil - Windows
Liste déroulante excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
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

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 Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 753
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 !!