XL 2016 Insérrer une ligne en vba

Franck DEVISSCHER

XLDnaute Nouveau
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
 

Pièces jointes

  • test3.xlsm
    21.6 KB · Affichages: 23

Lone-wolf

XLDnaute Barbatruc
Bonjour Fanck, Dranreb :)

@Dranreb: pourquoi copier - inserer?? :rolleyes:

VB:
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
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re

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

Edit: macro corrigée

VB:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG