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

[SMEAGOAL]

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.

 

[SMEAGOAL]

Re

Je te propose ce fichier
Voir les commentaires dans le fichier

@Phil69970

Super!
Je n'ai plus qu'à l'adapter à mon fichier!
Merci beaucoup!

 

[job75]

Bonjour SMEAGOAL, Phil69970,

Il faut copier les valeurs de la plage B3:J3 mais aussi entrer la formule en colonne A :

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+

 

[SMEAGOAL]

Bonjour SMEAGOAL, Phil69970,

Il faut copier les valeurs de la plage B3:J3 mais aussi entrer la formule en colonne A :

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+

Bonjour job75,
Alors là plus que parfait, merci pour la formule décaler!
Question: pourquoi y a t'il un mot de passe à l'intérieur de la macro?
A+

 

[job75]

Une feuille est protégée avec ou sans mot de passe, c'est à vous de décider.

 

[Phil69970]

Bonjour à tous

Voici ma version avec l'insertion de la formule d’origine sur la colonne A
*J'ai pas pu répondre plus tôt car absent toute la journée.

@Phil69970

 

[job75]

@Phil69970 si j'entre la formule =MAX(A$5: DECALER...)+1 c'est parce que =A6+1 n'est pas fameuse.

En effet quand une ligne est supprimée les cellules du dessous en colonne A renvoient #REF!

 

[Phil69970]

@job75
J'ai vu mais du coup cela te fait un doublon c'est pourquoi je suis parti de l'idée de refaire les formules de la colonne A et après la nouvelle insertion pour remettre comme à l'origine

De plus un truc me chagrine c'est sur la manière de numéroter la colonne A car pour moi :

Référence de stock devrait correspondre à un même article avec une référence unique mais je dis ça je dis rien

@Phil69970

 

[job75]

Je ne comprends pas, ma formule ne peut pas créer de doublon en colonne A.

Il est sûr que si l'on veut attacher un numéro unique à chaque article il ne faut pas de formule.

Mais alors pourquoi mettre des numéros ?

Bonne nuit.

 

[SMEAGOAL]

@job75
J'ai vu mais du coup cela te fait un doublon c'est pourquoi je suis parti de l'idée de refaire les formules de la colonne A et après la nouvelle insertion pour remettre comme à l'origine

Regarde la pièce jointe 1113515
De plus un truc me chagrine c'est sur la manière de numéroter la colonne A car pour moi :
Regarde la pièce jointe 1113518
Référence de stock devrait correspondre à un même article avec une référence unique mais je dis ça je dis rien

@Phil69970

Bonjour Phil,
Je ne vois pas de doublon non plus avec la formule de job75,
Quant au tableau, j'ai pris un modèle disponible dans excel, je souhaite adapter la macro à mon fichier, histoire de me faire progresser sur VBA... (et c'est pas évident!)
Merci en tous cas!

 

[SMEAGOAL]

Bonjour à tous,
J'ai essayé d'adapter la macro à mon fichier mais je n'y suis pas arrivé!
J'ai abandonné la protection des cellules pour le moment,
Je cherche juste avec insérer les lignes type 122&123 (ensemble) et adapter la formule de la colonne D (comme a si bien fait job75).
Si vous pouvez m'aider là dessus?
Merci.