résolu : Forme d'une date

[ABIDINE]

bonsoir le forum
bonsoir tout le monde
je sollicite vos aides svp.comment faire pour que les nombres dans TextBox1 s'affichent avec 3chiffres apres la virgule ..je tappe dans cette TextBox1 25 alors s'affichera dans cette meme TextBox1 25.000
et aussi dans TextBox2 comment la date s'affichera de cette maniere par exemple:
Friday 14/7/2013
merci d'avance pour l'aide
ABIDINE

 

[JCGL]

Re : Forme d'une date

Bonjour à tous,

Peux-tu essayer avec :

TextBox1.Selection.NumberFormat = "#,##0.000"

Si Anglais(Royaume-Uni)

TextBox2.NumberFormat = "[$-809]dddd dd/mm/yyyy;@"

A+ à tous

 

[ABIDINE]

Re : Forme d'une date

bonsoir JCGL
merci pour l'aide mais j'ai mis ce code dans mon userform mais je ne sais où est le probleme car ça ne fonctionne pas chez moi
voir svp cette image
sincerement
ABIDINE

 

[JCGL]

Re : Forme d'une date

Bonjour à tous,

Essaye avec un _Change

A+ à tous

 

[ABIDINE]

Re : Forme d'une date

Bonsoir JCGL
merci pour votre patience avec moi
J'ai essayé avec Change avant de poster mon message
SVP si vous pouvez voir ce fichier
merci d'avance pour l'aide
cordialement
ABIDINE

 

[JCGL]

Re : Forme d'une date

Bonjour à tous,

Peux-tu essayer mais j'ai un doute sur le format UK de la date :

Private Sub TextBox2_AfterUpdate()
Application.EnableEvents = False
TextBox2 = Format(TextBox2.Value, "[$-809]dddd dd/mm/yyyy")
Application.EnableEvents = True
End Sub


Private Sub TextBox1_AfterUpdate()
Application.EnableEvents = False
  TextBox1 = Format(TextBox1.Value, "#,##0.000")
Application.EnableEvents = True
End Sub

A+ à tous

 

[ABIDINE]

Re : Forme d'une date

Bonsoir JCGL
Merci beaucoup pour votre aide et super travail
Pour le chiffre c'est formidablement résolu .. il ne me reste sauf la forme de la date dans TextBox2 .. avec ce code s'affichera Vendredi 27 /11/2015 ..SVP comme dernier truc.. Est ce qu'on peut changer le Vendredi par le mot Friday
Merci beaucoup JCGL
Amicalement
ABIDINE

 

[ABIDINE]

Re : Forme d'une date

Bonjour forum
Bonjour tout le monde
Svp est ce qu'on peut afficher la date dans TextBox1 comme la forme de la date dans la cellule A1 Feuil1
merci pour l'aide
sincerement
ABIDINE

 

[JCGL]

Re : Forme d'une date

Bonjour à tous,

Peux-tu essayer :

Private Sub Workbook_Open()
UserForm1.Show 0
UserForm1.TextBox1.Text = Feuil1.Range("A1").Text
End Sub

A+ à tous

 

[ABIDINE]

Re : Forme d'une date

Bonjour JCGL
Merci pour votre code
Je l'ai mis dans mon userform mais la date ne s'affichera comme celle de la cellule A1
Voir svp ce fichier
Merci d'avance pour me coriger ce probleme
Amicalement
ABIDINE

 

[JCGL]

Re : Forme d'une date

Bonjour à tous,

Mets le bout de code dans le ThisWorkBook et non dans le module de l'USF



A+ à tous

 

[ABIDINE]

Re : Forme d'une date

Bonjour JCGL
Merci beaucoup pour vos codes ainsi que votre patience avec moi
C'est résolu
Amicalement
ABIDINE