format date d'un textbox

[natorp]

bjr à toutes et tous

comment puis-je écrire cela :

    Lign = Range("F151").End(xlUp).Row + 1
    Cells(Lign, 1).Value = Format(TextBox1.Value, "dd/09/2010")

pour qu'il apparaisse 19/09/2010 si je tape 19 dans le textbox1 du userform

actuellement il apparaît 18/09/2010 en format texte (à gauche dans la cellule)

merci de votre aide, cordialement,
Gérard

 

[ROGER2327]

Re : format date d'un textbox

Bonjour natorp

Essayez ceci :
Cells(Lign, 1).Value = Format(DateSerial(2010, 9, TextBox1.Value), "dd/mm/yyyy")

ROGER2327
#4740

Samedi 14 Sable 138 (Don Quichotte, champion du monde, SQ)
24 Frimaire An CCXIX
2010-W50-2T14:57:24Z

 

[pierrejean]

Re : format date d'un textbox

Bonjour patron

A tester

    Lign = Range("F151").End(xlUp).Row + 1
    Cells(Lign, 1).Value =TextBox1.Value  & "/09/2010"

et si tu souhaites une date

     Lign = Range("F151").End(xlUp).Row + 1
     Cells(Lign, 1).Value =Cdate(TextBox1.Value  & "/09/2010")
     Cells(Lign, 1).numberformat="dd/mm/yyyy"

Edit : Salut ROGER

 

[natorp]

Re : format date d'un textbox

Re Roger
Merci cela solutionne bien le problème de chiffre mais apparemment pas le format date car le texte se trouve tjrs à gauche dans la cellule cible....
sinon merci beaucoup, vous être vraiment impressionnant, je suis admiratif de votre savoir et de votre disponibilité

cordialement; Gérard

 

[natorp]

Re : format date d'un textbox

Ben voilà, merci Pierrejean

ça marche avec la deuxième solution que j'adopte

merci à vous

C'est génial.... vous êtes super sympa....

Gérard

PS : je viens de voir que Pierrejean m'appelle patron, anagramme de natorp, je n'avais pas fait attention à cela, je l'ai choisi car il ne veut rien dire dans ma tête et je ne suis pas patron....et du coup il est libre sur tous les sites où j'ai besoin de m'inscrire.... lol