Copy la valeur du textbox dans une cellule

[Yvon]

Bonsoir à tous,

Je souhaiterai connaitre, la syntaxe pour copier la valeur exacte d'une textbox, dans la cellule A1, j'ai cherché un peu partout et je n'aie pas trouvée cette petite chose toute simple.

J'ai essayé cela et cela ne marche évidement:

Private Sub annulez_Click()
End
End Sub

Private Sub CommandButton1_Click()
TextBox1.Value = Copy
TextBox1.Value =past range(A1)

End Sub

Private Sub TextBox1_Change()
TextBox1.Value = ''

End Sub

Par avance Merci
Yvon

 

[Creepy]

Bonsoir le Forum, Yvon

Dans ce sens là :

Feuil1.range('a1').value = textbox1.text

Attention toutefois il faut que ta userform soit ouverte ! Si elle est fermée, les controles perdent leurs valeurs, donc il faut l'attribuer avant de fermer la userform.

Bonne soirée,

Creepy

 

[Yvon]

BonsoirCreepy

Désolé, cela ne marche pas je te confie le code ou j'ai fait les modifs

Private Sub annulez_Click()
End
End Sub

Private Sub CommandButton1_Click()

Feuil1.Range('a1').Value = TextBox1.Text

End Sub

Private Sub TextBox1_Change()
TextBox1.Value = ''
End Sub

Private Sub UserForm_Click()

End Sub

Merci de ta participation au problème

a++
Yvon

 

[excalibur]

bonsoir yvon Creepy le forum Private Sub TextBox1_Change()
Sheets('feuil1').Range('k10').Value = TextBox1
End Sub' normalement ca marche salutations

 

[Yvon]

Autant pour moi je n'avais pas compris qu'il fallait copier le code dans textbox, je l'avais copié dans button click.

Merci pour ton aide

a++
Yvon