XL 2019 Inserer une ligne

[netparty]

Bonjour à tous
Je viens vers vous pour avoir votre aide
J'aimerais dans mon fichier avoir la possibilité d’insérer une ligne et de recopier les formules de la ligne supérieur et ne garder que les formules.

J'ai essayé ce code :

Sub Inserer_Ligne()
 If MsgBox("Copier la ligne n°" & Target.Row, vbYesNo) = vbYes Then
        Rows(Target.Row).Copy
        Rows(Target.Row).Insert Shift:=xlDown
        Rows(Target.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
    End If
End Sub

Mais j'ai un messages d'erreur

Merci d'avance pour votre aide

 

[job75]

Bonsoir netparty,

Sub Inserer_Ligne()
If MsgBox("Copier la ligne n°" & ActiveCell.Row & " ?", vbYesNo) = vbYes Then
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=xlDown
    Application.CutCopyMode = 0
    On Error Resume Next 'si aucune SpecialCell
    Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub

A+

 

[Cousinhub]

Bonsoir,
L'utilisation d'un Tableau Structuré ne nécessiterait aucun code....
Voir ICI ou LA
Bonne soirée

 

[netparty]

Bonsoir netparty,

Sub Inserer_Ligne()
If MsgBox("Copier la ligne n°" & ActiveCell.Row & " ?", vbYesNo) = vbYes Then
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Insert Shift:=xlDown
    Application.CutCopyMode = 0
    On Error Resume Next 'si aucune SpecialCell
    Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub

A+

Bonjour @job75

Merci pour ton code.

Par la même occasion est-il possible d'avoir la possibilité de choisir le nombres de lignes que je voudrais ajouter

Bonne journée

 

[job75]

Bonjour netparty, Cousinhub, le forum,

Par la même occasion est-il possible d'avoir la possibilité de choisir le nombres de lignes que je voudrais ajouter

Bien sur :

Sub Inserer_Ligne()
Dim n
n = Val(Application.InputBox("Nombre de lignes à insérer :"))
If n Then
    On Error Resume Next
    Application.CutCopyMode = 0
    Rows(ActiveCell.Row).Resize(n).Copy
    Rows(ActiveCell.Row).Insert
    Application.CutCopyMode = 0
    Rows(ActiveCell.Row).Resize(n).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub

A+

 

[netparty]

Bonjour netparty, Cousinhub, le forum,

Bien sur :

Sub Inserer_Ligne()
Dim n
n = Val(Application.InputBox("Nombre de lignes à insérer :"))
If n Then
    On Error Resume Next
    Application.CutCopyMode = 0
    Rows(ActiveCell.Row).Resize(n).Copy
    Rows(ActiveCell.Row).Insert
    Application.CutCopyMode = 0
    Rows(ActiveCell.Row).Resize(n).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End Sub

A+

Bonjour @job75

J'ai testé le code.
Si je choisi d’insérer une seule ligne cela fonctionne mais si je demande plusieurs lignes alors elle ne sont pas insérées à la bonne place.

Je joint mon fichier pour que tu voie ou celle-ci se sont insérées.

Merci

 

[job75]

Colorez 3 lignes, vous verrez que l'insertion de 3 lignes se fait à la bonne place.

Bonne nuit.

 

[netparty]

Colorez 3 lignes, vous verrez que l'insertion de 3 lignes se fait à la bonne place.

Bonne nuit.

Bonjour @job75

Ce qui est bizarre c'est qu'il me fait ceci :