Insérer ligne en gardant formule sauf une cellule

Fermé
Sardine - 21 août 2018 à 23:23
titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 22 août 2018 à 10:34
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 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 38
22 août 2018 à 09:14
Bonjour,

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

Bonne journée

jc
0
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 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 38
22 août 2018 à 10:34
Impec!
Bonne journée
0