XL 2016 macro insertion ligne

  • Initiateur de la discussion Initiateur de la discussion Bnj
  • Date de début Date de début

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 !

Bnj

XLDnaute Occasionnel
bonjour,

J'ai trouvé une macro me servant à insérer une ligne dans un classeur :

Sub insertionLigne()
With ActiveCell
.EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
.EntireRow.Copy ' Copie la ligne active
With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteFormulas
End With
Application.CutCopyMode = False
End With
End Sub

elle marche bien , cependant ,
comment faire pour que dans la ligne copiée, il soit indiqué automatiquement dans la cellule collée de la colonne DA, "SURGESTION" ?
 
Salut BNJ,
Voir code modifié
VB:
Sub InsertionLigne()
    With ActiveCell
        xLig = .Row
        .EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
        .EntireRow.Copy ' Copie la ligne active
        With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteFormulas
        End With
        Application.CutCopyMode = False
    End With
    Range("DA" & xLig) = "SURGESTION"
End Sub
En espérant avoir bien saisie ta demande.
@+ Lolote83
 
- 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

Réponses
7
Affichages
163
Réponses
10
Affichages
547
Réponses
2
Affichages
461
Réponses
2
Affichages
500
Réponses
0
Affichages
459
Réponses
9
Affichages
580
Réponses
1
Affichages
520
Retour