Insérer ligne en gardant formule sauf une cellule

Sardine -  
titeufdu89 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai trouvé la macro ci-dessous pour insérer une ligne en gardant les formules de la ligne du dessous :

Sub InsèreCopieLigne()
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub

Elle fonctionne très bien
Par contre, j'aimerais insérer une ligne en gardant les formules de la ligne du dessous, sauf pour la cellule de la colonne A.

Si quelqu'un a la solution, je suis preneur !


A voir également:

1 réponse

titeufdu89 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   38
 
Bonjour,

Avant "end sub" ajoute cette ligne ca devrait faire l'affaire :
range("A" & ActiveCell.Row+1) = ""

Bonne journée

jc
0
Sardine
 
Bonjour titeuf du 89,

Merci pour ta réponse rapide.

La ligne de macro que tu m'as dit de rajouter efface le contenu de la cellule de la colonne A de l'ancienne ligne que je souhaite copier.
Mais je veux effacer le contenu de la cellule de la colonne A de la nouvelle ligne que je souhaite créer.
J'ai donc essayé de modifier ta ligne de macro comme suit :
range("A" & ActiveCell.Row) = ""
Et ça fonctionne !

Un grand merci ! :)
0
titeufdu89 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   38
 
Impec!
Bonne journée
0