Microsoft 365 Problème de macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

netparty

XLDnaute Occasionnel
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
 

Pièces jointes

Bonjour Netparty, Fanfan,
Essayez avec :
VB:
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 ?
Code:
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 Netparty, Fanfan,
Essayez avec :
VB:
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 ?
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
106
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
218
Réponses
3
Affichages
189
Réponses
33
Affichages
705
Retour