Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

S

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+
Trier par date Trier par votes

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
Vote positif 0 Vote négatif
S

SMEAGOAL

XLDnaute Junior
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.
 
Vote positif 0 Vote négatif
S

SMEAGOAL

XLDnaute Junior
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!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Résolu(e)
XL 2010 VBA - Bouton insérer ligne vide sous toutes les lignes et dupliquer chacune des lignes
Réponses
5
Affichages
176
Phil69970
M
  • Question
XL pour MAC comment insérer des initiales protégées dans une cellule remplie dans excel pour mac
Réponses
11
Affichages
604
patricktoulon
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
340
Alain 79
A
H
  • Question
XL 2016 formule pour resultat croise colonne + ligne
Réponses
3
Affichages
225
hdparcs
H
D
  • Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
301
fanch55
P
  • Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
203
sylvanu
  • Résolu(e)
XL 2021 Case à cocher afin d'insérer des lignes dans une autre feuille
Réponses
2
Affichages
440
Icefedor
C
  • Résolu(e)
XL 2013 Insérer des lignes
Réponses
5
Affichages
326
candido57
C
M
  • Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
578
ManuXZ
M
M
  • Résolu(e)
XL 2019 Copier plusieurs lignes et les insérer plusieurs fois sans boucle
2
Réponses
15
Affichages
498
miloo
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…