Bouton "insérer ligne identique"

Résolu
lulu -  
 lulu -
Bonjour,

J'ai un tableau excel dans lequel je souhaite mettre un bouton qui lorsque je cliquerais dessus
- me demanderait où ajouter une ligne
- ajouterait une ligne à cet endroit, avec la même mise en forme conditionnelle que celle de la ligne précédente.

Merci de votre aide !



A voir également:

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

C'est bien compliqué, alors qu'il suffit de faire un clic droit sur la ligne de faire insertion, ce sera plus rapide.
1
lulu
 
Bonjour Patrice,

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 !
0