userform avec boutton et textbox

Question

Bonjour,
j'ai fais un userform sur excel avec un boutton et textbox je veux lorsque je j'ecrire un texte dans textbox et je click sur le boutton le text s'affiche dans la cellule A2 et si je repete elle s'afiche sur A3.....etc

boromba · Answer

SALUT,
Private Sub LE NOM DE TON BOUTON_Click()
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("LE NOM DE TA FEUILLE")
    iRow = ws.Cells(Rows.Count, 1) _
      .End(xlUp).Offset(1, 0).Row
    ws.Cells(iRow, 1).Value = Me.LE NOM DE TON TEXTBOX.Value 
    Me.LE NOM DE TON TEXTBOX.Value = "" 
    End Sub

Userform avec boutton et textbox

1 réponse

Discussions similaires

Newsletters