Microsoft 365 Problème de macro

[netparty]

Bonjour à tous
Je sollicite votre aide car j'ai un soucis avec ma macro.

Dans le code de ma feuille j'ai Worksheet_BeforeDoubleClick qui me permet d’insérer une nouvelle ligne en dessous de la ligne sélectionnée et cela fonctionne parfaitement.

Mais je voudrai le faire via un bouton, dans le code du bouton j'ai placé le même code mais la nouvelle ligne ne s’insérer pas en dessous mais au dessus de la sélection.

Merci d'avance pour votre aide

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[sylvanu]

Bonjour Netparty, Fanfan,
Essayez avec :

Rows(Selection.Row + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents

mais quel intérêt de copier coller une ligne puis de l'effacer ? Pourquoi ne pas simplement insérer une ligne vierge ?

Sub Ajouter_ligne()
    If MsgBox("Copier la ligne n° " & Selection.Row, vbYesNo) = vbYes Then
       Rows(Selection.Row + 1).Insert Shift:=xlDown
    End If
End Sub

 

[netparty]

Bonjour Netparty, Fanfan,
Essayez avec :

Rows(Selection.Row + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents

mais quel intérêt de copier coller une ligne puis de l'effacer ? Pourquoi ne pas simplement insérer une ligne vierge ?

Sub Ajouter_ligne()
    If MsgBox("Copier la ligne n° " & Selection.Row, vbYesNo) = vbYes Then
       Rows(Selection.Row + 1).Insert Shift:=xlDown
    End If
End Sub

Bonjour @sylvanu

Merci pour ton code mais en fait je voudrai en plus récupérer les formules de la ligne

merci

 

[sylvanu]

Re,
Dans ce cas cette ligne fonctionne :

Rows(Selection.Row + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[netparty]

Re,
Dans ce cas cette ligne fonctionne :

Rows(Selection.Row + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents

Merci c'est impeccable

Bonne journée