Copy la valeur du textbox dans une cellule

Y

Yvon

Guest
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

XLDnaute Accro
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
 
Y

Yvon

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
300 793
Messages
1 987 228
Membres
209 742
dernier inscrit
Ben33100