Ajouter un jour

[Electron24]

Bonsoir le Forum,

Je viens vous demander de l'aide car j'ai un TextBox au format Date comme ci dessous.

    TxtDate.Value = Format(TxtDate.Value, "ddd dd mmm yyyy")

J'ai ajouté un bouton afin d'incrémenter de 1 le jour. avec ce code :

TxtDate.Value = Format(TxtDate.Value, "dd/mmm/yy")+1

Mais j'obtiens une erreur quelqu'un peut il m'aider.
D'avance merci

 

[Dranreb]

Bonsoir.

TxtDate.Text = Format(CDate(TxtDate.Text) + 1, "dd/mmm/yy")

 

[Electron24]

Bonsoir Dranreb

J'ai testé votre formule mais cela me donne une erreur
Le format du TextBox (TxtDate) me donne ceci : Sam. 16 mai 2009 (Ceci est un exemple)
Ce que je désire en réalité c'est de retranscrire dans un autre TextBox (Txt1) via le bouton, le format : 16 mai 2009 sans le Jour (Sam.)
Vous me direz pourquoi ne pas noter directement le format dans TxtDate tout simplement parce que celui ci réinscrit dans une cellule ce format et l'autre, Txt1 dans une autre cellule d'une autre feuille du même classeur.
En clair, le format Sam. 16 mai 2009 doit être modifié en 16 mai 2009 dans Txt1

 

[Dranreb]

Bonsoir.
S'il y a bien toujours un point derrière le nom du jour vous pouvez essayer l'expression Split(TxtDate.Text, ".")(1)

 

[Electron24]

Bonsoir

S'il y a bien toujours un point derrière le nom du jour vous pouvez essayer l'expression Split(TxtDate.Text, ".")(1)

Oui le point y est mais ou dois je mettre l'expression svp

 

[Dranreb]

Vous pouvez simplement l'affecter à Txt1.Text si vous n'avez pas besoin de l'avoir en tant que date ailleurs.

 

[Electron24]

Bonsoir

Je reviens vers vous après mettre absenté pour motif professionnel.
Pour simplifier les choses, j'ai choisi l'option la plus simple en incrémentant directement la cellule et en mettant le format texte "jjj jj mmm aaaa"
Merci pour votre aide