Renvoyer le textbox à EXCEL

Bonjour,
Ça dépend suivant quel événement tu veux copier le texte..
Ici tu rempli le TextBox > taper Enter
Le texte est mémoriser sur la dernière ligne
Le texte est vider
Le focus est remis sur le texte.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
    If KeyCode = 13 Then '(ENTER)  
        With Sheets("NomFeuille")  
            .Range("A" & .Range("A65536").End(xlUp).Row + 1) = TextBox1.Text  
            TextBox1.text = ""  
            TextBox1.SetFocus  
        End With  
    End If  
End Sub

Adapter le nom de la feuille
A+
Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

re
je te remercie pour ton soutien
je me demande quelle est la signification de
TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

C'est l'événement qui est générer quand tu tape une touche dans le textbox
Apparemment tu connais pas..
Clic droit sur l'onglet de la feuille où est ton textbox >> Visualiser le code
Dans la feuille blanche que tu vois tu colle le code ci-dessus
Si c'est un Userform tu dis.
A+

oui je comprend ce k tu vx dire
au fait je me demande si tu px me communiquer ton adresse pour q je puisse t'envoyer mon travail d'essai et pour k tu puisse comprendre mon probleme

@M.lermite222: ton programme marche trés bien je te remercie enormément, maintenant moi je dois remplir 3 colonnes (code, prix, time)
de sorte que j'aurais klk chose de la forme
Cells(2, 1).Value = TextBox1
Cells(2, 2).Value = "8"
Cells(2, 3).Value = Time
ou dois je la mettre dans ton programme ci dessus?
bonne journée

re,

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
Dim Lig As Long  
    If KeyCode = 13 Then '(ENTER)  
        With Sheets("NomFeuille")  
            Lig = .Range("A65536").End(xlUp).Row + 1  
            .Cells(Lig, 1) = TextBox1.Text  
            .Cells(Lig, 2) = "8"  
            .Cells(Lig, 3) = Time  
            TextBox1.Text = ""  
            'Sur une feuille  
            TextBox1.Activate  
            'Sur un UserForm 
            'TextBox1.SetFocus  
        End With  
    End If  
End Sub

Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.