Renvoyer le textbox à EXCEL

Fermé

sharazed1988 Messages postés 5 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 6 mars 2011 - 5 mars 2011 à 16:44
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 7 mars 2011 à 12:31

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:

Renvoyer le textbox à EXCEL
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Formule excel - Guide
Si et excel - Guide
Mise en forme conditionnelle excel - Guide

6 réponses

Réponse 1 / 6

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 5/03/2011 à 19:37

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.

Réponse 2 / 6

sharazed1988 Messages postés 5 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 6 mars 2011
5 mars 2011 à 19:26

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)

Réponse 3 / 6

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 mars 2011 à 19:35

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+

Réponse 4 / 6

sharazed1988 Messages postés 5 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 6 mars 2011
5 mars 2011 à 21:59

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

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

Posez votre question

Réponse 5 / 6

sharazed1988 Messages postés 5 Date d'inscription samedi 5 mars 2011 Statut Membre Dernière intervention 6 mars 2011
6 mars 2011 à 10:49

@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

Réponse 6 / 6

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 7/03/2011 à 12:32

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.

Discussions similaires

colonne A disparue tableur excel

Discussions similaires

Newsletters