date auto dans useform

[Phil 45]

bonjour à tous

j'ai bricolé un fichier avec userform, recupéré sans dout sur ce forum, je l'ai adapté pour le boulot

j'aimerai faire une modification, mais je ne suis pas calé en VBA,

je voudrais simplement que dans la case Date, la date du jour se mette automatiquement (et la reporte sur le tableau comme les autres données)

Merci de l'aide que vous pourrez m'apporter

Cordialement

 

[mromain]

Re : date auto dans useform

bonjour Phil,

peux-tu joindre ton fichier stp ?

a+

 

[Phil 45]

Re : date auto dans useform

bonjour et merci de regarder

je me suis rendu comte de mon erreur, j'ai réctifié le message le fichier est joint maintenant

Merci à toi

 

[mromain]

Re : date auto dans useform

re,

ce bout de code permet de saisir la date du jour automatiquement à l'ouverture du userform :

Private Sub UserForm_Initialize()
Me.TextBox10.Text = Format(Now, "dd/mmm/yyyy")
End Sub

pour la partie "saisie dans le tableau", ton code à l'air d'être bon

a+

 

[PascalXLD]

Re : date auto dans useform

Bonjour

pour ta date à l'ouverture

Private Sub UserForm_Initialize()
Me.TextBox10 = Format(Date, "dd/mm/yyyy")
End Sub

pour la recopier

DD.Offset(0, i).Value = CDate(UserForm1.TextBox10.Text)

 

[Phil 45]

Re : date auto dans useform

merci beaucoup ça marche impecable, je soumet ce fichier aux collègues, j'espére que ça conviendra

bonne journée