Userform calendar

[JC de Lorient]

Bonsoir le forum,

celà fait un petit moment que je n'étais pas passé vous voir
Il y a quelques temps j'ai réussi grace a vous de créer un UF de gestion
Evidemment tout marche a merveille SAUF !!
dans un userform j'ai inclu un calendrier
le seul soucis, lorsque je fé appel a ce calendrier il s'ouvre toujours sur sa date de création a savoir le 03 juin 2005
voici le code :

Private Sub Calendar1_Click()
UFSaisie.TBoxdate = Format(Calendar1, 'DD/MM/YYYY')

Unload UserForm1
End Sub


que faudrait til y rajouter pour qu'à l'ouverture il se trouve sur la date du jour ?
Merci de vos conseils avisés !
JC

 

[PascalXLD]

Bonjour

Si dans l'initialisation de ton UF tu ajoutes

calendar1.value=Date

je pense que cela devrait marcher

 

[JC de Lorient]

Bonsoir Pascal, le forum

quand tu me dis de rajouter le code est ce dans le code lorsque j'appelle calendar a partir de mon UF ?
car ai essayé mé sans résultat

merci de ton attention
JC

 

[PascalXLD]

RE

cela se situerait plutot dans le

Private Sub UserForm_Initialize()

End Sub

 

[JC de Lorient]

re tout le monde, Pascal

bon g suivi tes indications mais j'ai une erreur (débogage)
peut etre l'ai je mal placé?
je te joins mon code Initialize

Private Sub UserForm_Initialize()
TBoxdate = Format(Date, 'dd/mm/yyyy')
TBoxdate.SelStart = 0
TBoxdate.SelLength = Len(TBoxdate)
OB1.GroupName = 'Type'
OB2.GroupName = 'Type'
OB3.GroupName = 'Type'
OB4.GroupName = 'Opération'
OB5.GroupName = 'Opération'
OB6.GroupName = 'Opération'
End Sub

mille merci
JC

 

[PascalXLD]

re

je voyais ceci plutot


Private Sub UserForm_Initialize()
calendar1.value=Date

End Sub

avec bien sur en plus le code necessaire à l'initialisatin qui faisait déjà parti de ton code

 

[JC de Lorient]

re

après de multiples essais j'ai tjrs une erreur!

comme c n'est pas vital je vé rester a mon code initial

merci bcp de m'avoir lu et bonne soirée

JC

 

[PascalXLD]

tu peux envoyer le fichier sans les données ??

 

[JC de Lorient]

re
bon voilà le fichier que g du énormémént epuré pour cause de poids

tout est dans VBA

merci beaucoup
JC [file name=ProdV3_20050914195025.zip size=49429]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ProdV3_20050914195025.zip[/file]

 

[PascalXLD]

Re

j'ai fait un essai cela marche dans le code d'initialisation de l'usrform1 [file name=ProdV3_20050914195507.zip size=31924]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ProdV3_20050914195507.zip[/file]

 

[JC de Lorient]

re Pascal

j'ai été chercher des complications ou y'en avait pas !!!!!!
quelle simplicité !!!!

en tout je te remercie bcp de ton aide

merci encore et bonne soirée

JC