Bouton "insérer ligne identique"
Résolu/Fermé
A voir également:
- Bouton "insérer ligne identique"
- Insérer signature word - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 778
2 sept. 2010 à 15:59
2 sept. 2010 à 15:59
Bonjour,
C'est bien compliqué, alors qu'il suffit de faire un clic droit sur la ligne de faire insertion, ce sera plus rapide.
C'est bien compliqué, alors qu'il suffit de faire un clic droit sur la ligne de faire insertion, ce sera plus rapide.
2 sept. 2010 à 16:05
Merci pour cette réponse rapide,
En fait une simple insertion ne fonctionne pas car je souhaite que les mises en formes et formules de la ligne précédente soient copiées dans la ligne insérée.
J'ai trouvé après quelques recherches un code très simple qui me permet de le faire :
Sub InsertARow()
'make new row
ActiveCell.EntireRow.Insert Shift:=xlDown
'copy the row above
ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.row, 1)
On Error Resume Next
'clear every cell in the new line that does not have a formula
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Pour ceux qui galèrent un peu comme moi avec Excel !