Récupérer valeur d'un textbox

[Laosurlamontagne]

Je dois être idiot et passer à côté de quelque chose de gros que je ne vois pas. Je cherche simplement à récupérer la valeur d'une textbox, mais, je n'y arrive pas et je comprends pas pourquoi...

J'ai essayé les solutions trouvées sur ce forum, notamment ici, mais rien n'y fait... Sauriez-vous m'expliquer pourquoi?

 

[Dranreb]

Bonjour.
Précisez Feuil1.TextBox1
Là, comme il était ça plante avec CDate(Feuil1.Textox1) forcément puisqu'il n'y avait rien qui puisse être converti en date.

 

[D.D.]

Rho, et moi qui passais par
ActiveSheet.OLEObjects("TextBox1").Object.Text

 

[mutzik]

et bonjour à toi aussi 😉

 

[Si...]

Bonjour

... passer à côté de quelque chose de gros ...

Pour éviter cela, d’abord se poser la question « je suis où et je vais où ? ».

Ici tout se passe dans la même feuille donc le plus simple est de placer la macro dans la fenêtre de code de celle-ci. et non dans un Module standard (qui demande l'onglet de référence). Donc tout simplement :

Sub test()
  If IsDate(TextBox1) Then [A1] = TextBox1 Else [A1] = ""
End Sub

Si le bouton est dans une autre Feuille, Dranreb a donné la réponse

 

[Laosurlamontagne]

Merci à tous pour vos retours, cela fonctionne maintenant.