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

  • Initiateur de la discussion Initiateur de la discussion SMEAGOAL
  • Date de début Date de début
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

  • Question Question
Insérer une ligne vide à chaque cellule non vide
Réponses
2
Affichages
185
sylvanu
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
385
Phil69970
O
  • Résolu(e)
XL 2016 insérer automatiquement des données vers un tableau
Réponses
1
Affichages
482
Valky68
D
  • Question Question
XL 2021 Fusion de cellule si vide à côté
Réponses
11
Affichages
271
job75
Z
  • Question Question
Microsoft 365 Segment commun avec plusieurs onglets source de données
Réponses
12
Affichages
577
Zazagally
Z
G
  • Question Question
Microsoft 365 Validation des Données
Réponses
3
Affichages
221
AtTheOne
E
  • Résolu(e)
XL 2016 Verrouillage cellules remplies après enregistrement fichier
Réponses
7
Affichages
229
job75
C
  • Question Question
XL 2019 Distribuer des équipes en poules selon force et établissement
Réponses
2
Affichages
250
carlos
C
M
  • Question Question
XL pour MAC comment insérer des initiales protégées dans une cellule remplie dans excel pour mac
Réponses
11
Affichages
741
patricktoulon
  • Question Question
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
682
jeff1494
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
232
job75
A
  • Résolu(e)
Microsoft 365 masquer lignes d'un fichier si
Réponses
3
Affichages
233
auloin
A
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
735
Alain 79
A
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
723
Thomi
T
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
267
mromain
J
  • Question Question
Microsoft 365 Autoriser uniquement des valeurs alphanumériques mais avec aussi les espaces dans des cellules
Réponses
1
Affichages
165
djidji59430
N
  • Résolu(e)
Microsoft 365 Afficher-désafficher lignes selon réponses de menu déroulants (oui-non)
Réponses
11
Affichages
429
NicodePorto
N
T
  • Question Question
Microsoft 365 Bouton qui change de taille...
Réponses
3
Affichages
504
ThierryP
T
M
  • Question Question
XL pour MAC Mise en forme conditionnelle sans changer le remplissage des cellules
Réponses
4
Affichages
394
sylvanu
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
550
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…