XL 2019 Insérer des lignes avec cellules protégées

SMEAGOAL

XLDnaute Junior
Bonjour,
J'aimerais pouvoir insérer une ligne type dans un tableau mais il y a des cellules protégées donc ce n'est pas possible, (voir exemple ligne 3).
Existe-t-il une macro simple pour pouvoir l'effectuer? (Je n'ai jamais réussi à comprendre le fonctionnement des macros...)
Merci.
 

Pièces jointes

  • Insérer des lignes copiées avec protection.xlsm
    12.3 KB · Affichages: 14
Solution
Bonjour SMEAGOAL, Phil69970,

Il faut copier les valeurs de la plage B3:J3 mais aussi entrer la formule en colonne A :
VB:
Sub Insertion()
'se lance par les touches Ctrl+I
Feuil1.Activate
If ActiveCell.Row < 6 Then MsgBox "Sélectionnez une cellule sous la ligne 5...", , "Insertion": Exit Sub
ActiveSheet.Protect "toto", UserInterfaceOnly:=True 'mot de passe à adapter
With ActiveCell.EntireRow
    .Insert
    .Rows(0).Font.Bold = False
    .Cells(0, 1).FormulaR1C1 = "=MAX(R5C:OFFSET(RC,-1,))+1"
    .Cells(0, 2).Resize(, 9) = [B3:J3].Value 'copie les valeurs
End With
End Sub
A+

Phil69970

XLDnaute Barbatruc
Bonjour @SMEAGOAL, le forum

Je te propose ce fichier avec macro....;)

Le principe on déprotège , on copie la ligne 3 qui correspond à ton exemple et on colle à l'endroit désiré (j'ai choisi en fin de fichier) et on reprotège

@Phil69970
 

Pièces jointes

  • Insérer des lignes copiées avec protection V1.xlsm
    21.4 KB · Affichages: 9

SMEAGOAL

XLDnaute Junior
Bonjour @SMEAGOAL, le forum

Je te propose ce fichier avec macro....;)

Le principe on déprotège , on copie la ligne 3 qui correspond à ton exemple et on colle à l'endroit désiré (j'ai choisi en fin de fichier) et on reprotège

@Phil69970
Merci Phil69970!
J'aimerais pouvoir aller voir cette macro... Quand je vais sur afficher les macros, rien ne m'est proposé!
C'est normal?
 

SMEAGOAL

XLDnaute Junior
Bonjour @SMEAGOAL, le forum

Je te propose ce fichier avec macro....;)

Le principe on déprotège , on copie la ligne 3 qui correspond à ton exemple et on colle à l'endroit désiré (j'ai choisi en fin de fichier) et on reprotège

@Phil69970
Dans cette macro, on ne peut pas choisir la ligne de l'insertion,
Est-il possible d'insérer les lignes au-dessus de la cellule sélectionnée?
Merci.
 

SMEAGOAL

XLDnaute Junior
Re

Pourtant avec la version 2 tu peux choisir la ligne ou tu veux copier il me semble.

Pour être sur que je comprenne bien tu veux copier ta ligne 3 où exactement ?(quelle ligne)


*Le nombre de ligne n'a pas d'importance et ce n'est pas un tableau structuré que tu as.

@Phil69970
En fait, si ma cellule sélectionnée est B25 "Article 19", je veux faire CTRL+I et la ligne va s'insérer au dessus.
Ce tableau n'est qu'un exemple, ma feuille est plus complexe,
Merci!
 

Discussions similaires

Statistiques des forums

Discussions
312 196
Messages
2 086 099
Membres
103 116
dernier inscrit
kutobi87