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
 
Haut Bas