Private Sub CommandButton1_Click()
Dim L As Long
L = TextBox1.Value
Rows(L).Copy: Rows(L).Insert
Application.CutCopyMode = False
Cells(L, "A").Value = TextBox2.Text
End Sub
Private Sub CommandButton1_Click()
Dim cel As Range
Set cel = Cells(TextBox1.Value, 1) ' activer la ligne
cel = TextBox2.Value
'On Error Resume Next
'Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 1).ClearContents ' efface le nom dans la nouvelle ligne copier
'???? insérer le nouveau salarié avec le textbox2
End Sub
Private Sub CommandButton1_Click()
Dim cel As Range
Set cel = Cells(TextBox1.Value, 1)
cel = TextBox2.Value
Range(cel.Offset(-2, 1), cel.Offset(-2, 3)).Copy cel.Offset(0, 1)
cel.Interior.Color = cel.Offset(0, 1).Interior.Color
End Sub
Merci Beaucoup superBonsoir.
VB:Private Sub CommandButton1_Click() Dim L As Long L = TextBox1.Value Rows(L).Copy: Rows(L).Insert Application.CutCopyMode = False Cells(L, "A").Value = TextBox2.Text End Sub