XL 2016 Insérrer une ligne en vba

[Franck DEVISSCHER]

Bonjour, je cherche depuis un petit momant pour inserrer une ligne dans mon classeur excel en passant par un userform, mais cella ne marche pas ci joint le fichier. un grand Merci a vous.
Cordialement Franck

 

[Dranreb]

Bonsoir.

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

 

[Lone-wolf]

Bonjour Fanck, Dranreb 🙂

@Dranreb: pourquoi copier - inserer?? 🙄

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

 

[Dranreb]

Pourquoi pas ?
Ça revient au même que Insérer, copier, coller sauf que ça ne requiert que 2 opérations, pour la reconduction des formules d'une ligne voisine.

 

[Lone-wolf]

Re

@Dranreb

Euuuhh! Wath'Is?? 😵. Tu as vu le code que j'ai mis?

 

[Dranreb]

Oui, il ne semble pas reconduire les formules. D'ailleurs il n'insère même pas de ligne, ça me semble totalement hors sujet.

 

[Lone-wolf]

Re

@Dranreb : c'est vrai, tu as raison.

Edit: macro corrigée

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

 

[Franck DEVISSCHER]

Bonsoir.

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

Merci Beaucoup super