format date et affichage

[phil]

bonjour.

1) quand j'entre la date par vba en direct dans la cellule
range(''A1')='5/8/2005' ,pas de problème
via variable,pas de problème
via textbox dans mes autres programmes,pas de problème
via textbox dans ce fichier m/j/a

2)comment faire pour que la date du jour s'affiche dans textbox1 a l'ouverture du userform pour eventuellement etre modifier ?

3)userform trop grand pour voir la feuille en entier
impossible de le reduire ou modifier sa taille pas d'options !!

4)probleme bouton 'Effacer' deux options 'ok' ou 'Annuler'
les deux effacent ?!!!

je joint le fichier .
ps:il faut imperativement renseigner textbox3(famille)
'1,2ou 3'

merci.

 

[N_Christian]

Hello phil, tu as oublier le fichier...!

en zip sans espace exemple toto.zip
merci Christian

 

[Claudy]

En attendant ton fichier....

Private Sub UserForm_Initialize()
TextBox1.Value = Date
End Sub
A+
Claudy

 

[PascalXLD]

Bonjour

Pour ta première question

range(''A1')=CDate(Textbox1.value)

Pour ton problème d'effacement il faut bien que tu traites la réponse

If vbyes

 

[phil]

merci claudi ca marche impec !!

Private Sub UserForm_Initialize()
Me.Caption = X
TextBox1.Value = Date

End Sub

par contre pascal celle ci marche pas ou alors je la met pas ou il faut

range('A1')=CDate(Textbox1.value)

merci

 

[bebere]

bonjour à tous
avec les deux,date et cdate, jour et mois inversés
à+