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

SMEAGOAL · 16 Août 2021

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.

job75 · 17 Août 2021

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+

SMEAGOAL · 17 Août 2021

Phil69970 à dit:
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 · 17 Août 2021

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+

SMEAGOAL · 18 Août 2021

job75 à dit:

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+

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 · 18 Août 2021

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

Phil69970 · 18 Août 2021

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 · 18 Août 2021

@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 · 18 Août 2021

@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 · 18 Août 2021

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 · 19 Août 2021

Phil69970 à dit:
@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 · 9 Septembre 2021

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.

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

SMEAGOAL

XLDnaute Junior

Pièces jointes

job75

SMEAGOAL

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

SMEAGOAL

XLDnaute Junior

job75

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

SMEAGOAL

XLDnaute Junior

SMEAGOAL

XLDnaute Junior

Pièces jointes

Discussions similaires