Re : Macro copier coller label dans une userform
Ca peut aider aussi
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("feuil1")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.txtPart.Value) = "" Then
Me.txtPart.SetFocus
MsgBox "Merci de renseigner les données"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txt1.Value
ws.Cells(iRow, 2).Value = Me.txt2.Value
ws.Cells(iRow, 3).Value = Me.txt3.Value
ws.Cells(iRow, 4).Value = Me.txt4.Value
ws.Cells(iRow, 4).Value = Me.txt5.Value
ws.Cells(iRow, 4).Value = Me.txt6.Value
'clear the data
Me.txt1.Value = ""
Me.txt2.Value = ""
Me.txt3.Value = ""
Me.txt4.Value = ""
Me.txt5.Value = ""
Me.txt6.Value = ""
Me.txtPart.SetFocus
End Sub
Bonne journée