Insérer des lignes automatiquement

Question

Je suis débutante dans la partie Macro d'excel (Vs 2003) et j'aurais besoin d'avoir votre aide, à savoir comment insérer des lignes automatiquement en fin d'un tableau, avec les formules et MFC incluses. Je vous remercie beaucoup...

Hosni · Answer

Bonjour;

Salut VALOU et bien venu;

Voici le code qui te permet de rajouter une ligne en dessous de la ligne active en recopiant les formules de la ligne qui précède

à vérifier et à adapter.

 Sub NouvelleLigneEnDessous()
 Dim ZtNumLig As Integer
 Dim ZtDerCol As Integer
 Dim I
  If MsgBox("Ajouter une ligne ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
   ActiveCell.Range("A2").EntireRow.Insert
  ZtNumLig = ActiveCell.Row
  ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
  Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
    Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
  Application.ScreenUpdating = False
  For I = 1 To ZtDerCol
    If Not Cells(ZtNumLig + 1, I).HasFormula Then
      Cells(ZtNumLig + 1, I).ClearContents
    End If
  Next I
  End If
  ActiveCell.Range("A2").Select
 End Sub