calendrier + format date

[bruno]

Bonjour à tous
Je rencontre quelques problemes sous excel 2000 avec la fontion calendrier. Les experts que vous etes pourront peut etre m'aider

probleme 1:
comment activer l'apparition du calendrier au passage du curseur dans un textbox , curseur commender soit par la souris soit par le clavier.
et bien sur faire le calendrier lorsque l'on quitte textbox en question

Probleme2
la question est peut etre bete mais j'ai le calendrier qui est en anglais comment le faire passer en francais. il s'agit excel 2000 FR.
j'avoue que je ne comprends pas

Probleme 3:
suite à ce probleme,j'ai failli jeter l'ordinateur à la poubelle , mais bon .
voila quand je selection une date dans le calendrier , celle ci s'affiche bien au format JJ/MM/AAAA dans un msgbox que j'ai créé.
je transfert la date dans un textbox , je visualise le resultat (par point d'arret ) le format est toujours bon mais
quand je demande de copier le contenu du textbox.value dans la feuil1 ,
C'EST LA CATA!!!!!!!!!!!!, le format devient MM/JJ/AAAA.
j'ai eu beau formater la colonne date de feuil1 dans tout les formats dates existant, le resultat est le meme.

si quelqu'un à la solution c'est sympa ;
merci

 

[@Christophe@]

Bonjour Bruno

Problème 1:

Private Sub TextBox1_Enter()
UserForm2.Show
End Sub

Ton calandrier apparait dès que tu entre dans le textbox, avec souris ou clavier, tu selectionne la date et il se referme

Problème 2:
Bonne question, moi j'ai tous en francais et mes versions sont en francais, donc???

Problème 3:
Par contre, pour ton problème 3, j'ai le même problème j'ai essayé pas mal de choses, rien a faire, une fois j'ai un formats, et l'autre fois un autres????
La je comrpends rien, si quelqu'un peux nous éclairer

Merci, bonne journée


@Christophe@

 

[keata]

Bonjour,

problème 3:

dans EXCEL le format est jj/mm/aa
dans VBA le format est Selection.NumberFormat = "mm/dd/yy"
On y peut rien...

Pour afficher dans un TextBox :

Public Sub Affichage()
Dim Valeur1 As Variant
Valeur1 = Sheets("feuil1").Range("C6")
Menu.Prem1.Value = Format(Valeur1, "@")
Valeur1 = Sheets("feuil1").Range("C7")
Menu.Prem2.Value = Format(Valeur1, "hh:mm")
Valeur1 = Sheets("feuil1").Range("C8")
Menu.Prem3.Value = Format(Valeur1, "jj/mm/aaaa")
end sub
bonne journée