macro insertion de ligne

matt31 · 5 Septembre 2012

Bonjour,

je voudrais insérer dans le fichier ci-joint une macro (reliée à un bouton) permettant d'insérer une ligne à un endroit désiré du fichier.
Ce fichier est utilisé par plusieurs personnes dont les compétences informatiques sont très variées.
Il est du coup protégé par un mot de passe (qui est motdepasse même si c'est peu original...).
Certaines cellules sont protégées pour ne pas être modifiées manuellement notamment en colonne M.

Le mot de passe se remet automatiquement.
J'ai essayé avec l'enregistreur de macro de faire cette macro d'insertion de ligne (macro1 du fichier) mais je n'arrive pas à proposer la ligne au dessus de laquelle insérer une ligne vierge (avec toutefois la recopie automatique de la formule de la colonne C).

Est-ce que je pourrais avoir de l'aide svp?
Merci par avance.

Robert · 5 Septembre 2012

Re : macro insertion de ligne

Bonjour Matt, bonjour le forum,

Peut-être comme ça :

Code:

Sub Macro1()
ActiveSheet.Unprotect Password:="motdepasse"
Rows("18:18").Insert Shift:=xlDown
Range("M17").AutoFill Destination:=Range("M17:M18"), Type:=xlFillDefault
Range("A18").Select
ActiveSheet.Protect Password:="motdepasse"
End Sub

Robert · 5 Septembre 2012

Re : macro insertion de ligne

Bonjour Matt, bonjour le forum,

ou comme ça pour inserer une ligne avant la ligne de la cellule active :

Code:

Sub Macro1()
ActiveSheet.Unprotect Password:="motdepasse"
Rows(ActiveCell.Row).Insert Shift:=xlDown
Cells(ActiveCell.Row - 1, 13).AutoFill Destination:=Range(Cells(ActiveCell.Row - 1, 13), Cells(ActiveCell.Row, 13)), Type:=xlFillDefault
Cells(ActiveCell.Row, 1).Select
ActiveSheet.Protect Password:="motdepasse"
End Sub

matt31 · 5 Septembre 2012

Re : macro insertion de ligne

Merci beaucoup

macro insertion de ligne

matt31

XLDnaute Occasionnel

Pièces jointes

Robert

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

matt31

XLDnaute Occasionnel

Discussions similaires