Module Userform
Bonsoir à tous.
Je viens à la pêche aux infos pour une TexBox sur un UserForm. J'ai crée un module UseeForm avec 7 CombBox (qui fonctionnent très bien) et un TextBox8 dans lequel je voudrais que la date du jour s'affiche automatiquement à l'ouverture de l'UserForm mais sans passer par un bouton. L'idéal serait de récupérer la date avec la formule (=maintenant) dans une feuille1 et cellule A1 (pour faire cour) et que ce date se place automatiquement dans ma TextBox. J'ai bien essayé des codes vu des tutos mais rien ne marche. Voici un exemple de mon code :
Private Sub TextBox8_Initialize()
sheets("BASE_DE_DONNEES").range("B1").value = val(me.TextBox8.value)
End Sub
Merci à tous du petit coup de pouce éventuel.Bonjour,
ce n'est pas une textbox qu'on "initialize" mais le userform :
Et ce n'est pas la cellule qui est égale à la textbox mais l'inverse la textbox = la cellule
Private Sub userform_Initialize()
Textbox8.value= Format(Worksheets("BASE_DE_DONNEES").range("A1").value, "dd/mm/yyyy")
end subBonjour,
Ok merci pour la réponse.
Je mets cela en pratique et bonne journée.
Cdt.
Salut DanyMaccoy,
Salut Xmenpl,
si tu as d'office la date du jour en [A1], pourquoi alors chipoter ?
Me.textBox1.Text = Format(Date, "dd/mm/yyyy")
A+