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

6 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
  2. 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
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
  4. 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

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

    Posez votre question
  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
  7. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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