Test sur une date

bqtr

XLDnaute Accro
Bonjour le forum,

J'ai un TextBox1 alimenté par un contôle calendar1, et il affiche une date sous la forme dddd dd-mm-yyyy.

Je souhaite réaliser un test sur cette date avec un bouton de commande.

J'ai rentré cette formule, mais elle ne fonctionne pas :

Private Sub Mat_C_Click()
If Format(TextBox1, vbSunday) = True then
TextBox8.value = "1"
End if
End Sub

J'ai essayé plusieurs choses, mais rien à faire ca ne marche toujours pas.
Je sollicite donc votre aide.

Merci

P.O
 

Bebere

XLDnaute Barbatruc
Re : Test sur une date

bonjour Bqtr

regarde dans l'aide vba à weekday
par défaut vbSunday 1er jour de la semaine
If weekday(Cdate(TextBox1)= 1 then

à bientôt
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas