date dans textbox

[ifi77]

Bonjour @ tous,

une petite demande simple mais je seche.
J'aimerais inscrire la date issue du calendrier qui apparait en cliquant sur le commandbouton dans la textbox1.

Si quelqu'un peut m'aider merci

@+

 

[joss56]

Re : date dans textbox

Bonsoir

Comme ça?

Bonne soirée

Jocelyn

 

[phlaurent55]

Re : date dans textbox

Bonjour ifi,

avec ce code:

Private Sub Calendar1_Click()
UserForm1.TextBox1.Value = Calendar1.Value
End Sub

à+
Philippe

Edit: Bonjour Jocelyn ............meilleur sprinteur que moi 🙂

 

[Guest]

Re : date dans textbox

bonjour,

Dans userForm2:

Public oTextBox As MSForms.TextBox
Private Sub Calendar1_Click()
    If Not oTextBox Is Nothing Then
        oTextBox.Text = Me.Calendar1.Value
        Unload Me
    End If
End Sub
Private Sub UserForm_Initialize()
calendrier.Today
End Sub

Dans userForm1:

With UserForm2
    Set .oTextBox = Me.TextBox1
    .Show
End With

A+

[Edit] Salut Philippe

 

[Fo_rum]

Re : date dans textbox

Salut

et avec 1 UsF ?
Label plutôt que Textbox !

 

[ifi77]

Re : date dans textbox

Merci @ tous,

de nombreux exemple, qui me serviront d'une part pour maintenant et surement pour plustard merci encore

@+

 

[ifi77]

Re : date dans textbox

Bonjour @ tous,

voila j'ai bien créer le report en textbox comme demandé, cela fonctionne bien si ce n'est qu'il ne me met pas le calendrier immédiatement à la date du jour.

j'ai bien recopié la macro mais????

je vous mets mon logiciel, la macro si situe dans le l'onglet "formation spécifique " sur le formulaire (logo calendrier): userform1 et userform 2

Cijoint.fr - Service gratuit de dépôt de fichiers

merci @ tous

@+

 

[Bebere]

Re : date dans textbox

bonjour Iffi
'il faut cliquer sur l'userform
Private Sub UserForm_Click()
Calendar1.today
End Sub
'direct
Private Sub UserForm_Initialize()
Calendar1.today
End Sub
à bientôt

 

[ifi77]

Re : date dans textbox

Merci bebere,

j'ai bien compris le distingo entre les 2, cela focntionne parfaitement.

@+