XL 2010 VBA Insertion nouvelle ligne à la fin d'un tableau

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 ?

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
482
Réponses
7
Affichages
574
Retour