Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide macro insérer ligne sous Target, Range + copie +coller

  • Initiateur de la discussion Initiateur de la discussion lmylvc
  • 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 !

lmylvc

XLDnaute Occasionnel
Hello

je souhaiterais construire une macro permettant :
1) copier les valeurs des cellules C-D-E-F-G de la ligne sur laquelle je me situe

2) d'insérer 3 lignes sous cette même ligne sur laquelle je me situe
et coller les valeurs des cellules C-D-E-F-G précédement copiées dans les cellules C-D-E-F-G des 3 lignes insérées

Si quelqu'un pouvait m'aider ce serait sympa car je suis un bricoleur et il me faut toujours
plusieures heures ou jours pour trouver et là j'ai pas beaucoup de temps devant moi.

Si je ne suis pas clair, n'hesitez pas à me le dire et je reformulerais

Merciiiiii😉
 
Dernière édition:
Re : Aide macro insérer ligne sous Target, Range + copie +coller

Hello les amis


j'ai tenté de réaliser mon bout de code mais ça bug et au bout de 3 heures j'en peu plus et ne trouve de solution

Please, aidez moi ce serait vraiment sympa

Sub test()
'
' test Macro pour copier et coller 1 lignes
'Insérer une ligne

Selection.EntireRow.Insert , CopyOrigin:=xlDownFormatFromLeftOrAbove

On Error Resume Next
' Copier les cellules suivantes

Range("B" & ActiveCell.Row & ",D" & ActiveCell.Row & _
",E" & ActiveCell.Row & ",F" & ActiveCell.Row & ",G" & ActiveCell.Row & ",H" & ActiveCell.Row, "I" & ActiveCell.Row).Select
Selection.Copy

Coller les cellules
Range("B" & ActiveCell.Row & ",D" & ActiveCell.Row & _
",E" & ActiveCell.Row & ",F" & ActiveCell.Row & ",G" & ActiveCell.Row & ",H" & ActiveCell.Row, "I" & ActiveCell.Row).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
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

Réponses
20
Affichages
1 K
Réponses
9
Affichages
884
Réponses
22
Affichages
2 K
Réponses
3
Affichages
569
Réponses
3
Affichages
439
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…