Renvoyer le textbox à EXCEL

sharazed1988 Messages postés 5 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
mon probleme c'est que je dois renvoyer la valeur entrée dans textbox à chaque fois à la ligne qui suit. Au fait pour la 1ere entrée ca c'est déja fait sur la ligne A2, l'entrée suivante doit se faire sur A3 etc....
merci de me répondre


A voir également:

6 réponses

Réponse 1 / 6
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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.
0
Réponse 2 / 6
sharazed1988 Messages postés 5 Statut Membre
 
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)
0
Réponse 3 / 6
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
0
Réponse 4 / 6
sharazed1988 Messages postés 5 Statut Membre
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
sharazed1988 Messages postés 5 Statut Membre
 
@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
0
Réponse 6 / 6
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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.
0