[VBA] ajout ligne sous ligne sélectionnée

lauradala

XLDnaute Nouveau
Bonjour,

J'ai un bouton avec un code VBA qui m'ajoute une ligne à la fin de mon tableau sauf que j'aimerais que cette ligne soit ajoutée sous la ligne sélectionnée.

Merci d'avance,

Laura
VB:
Ajout_ligne_dessous_action Macro
'
      ActiveSheet.Unprotect ("")
     ActiveCell(2).EntireRow.Insert
     ActiveSheet.Protect ("")
 

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Bonsoir Lauradala,
ceci doit suffir.
Bruno
VB:
Sub AjoutLigneDessousEval()
ActiveSheet.Unprotect ("")
Rows(Selection.Row + 1).Insert
ActiveSheet.Protect ("")
End Sub
 

Discussions similaires


Haut Bas