alain.raphael
XLDnaute Occasionnel
Bonjour à Tous,
Ci-joint ma formule.......Problème elle m'insère 2 lignes au lieu d'1 seule...
Une correction ?
Ci-joint ma formule.......Problème elle m'insère 2 lignes au lieu d'1 seule...
Une correction ?
Code:
Sub InsertLigne()
Dim DLig As Long
' Avec la feuille active
With ActiveSheet
' Trouver la dernière ligne du tableau
DLig = .Range("B" & Rows.Count).End(xlUp).Row
' Insérer une ligne à la fin (selon présentation tableau)
.Rows(DLig + 1).Insert
' Copier l'ancienne dernière ligne
.Rows(DLig).SpecialCells(xlCellTypeFormulas).Select
.Range(Selection, Selection.Offset(1, 0)).FillDown
' Sortir du mode copier/coller
Application.CutCopyMode = False
End With
End Sub