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

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 545
Messages
2 089 453
Membres
104 169
dernier inscrit
alain_geremy