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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion SMEAGOAL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

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
Merci Phil69970!
J'aimerais pouvoir aller voir cette macro... Quand je vais sur afficher les macros, rien ne m'est proposé!
C'est normal?
 
Vote positif 0 Vote négatif
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
390
Phil69970
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
293
TooFatBoy
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
170
sylvanu
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
625
Musbek
M
D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
431
Daniel200666
D
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
318
Yogean
Y
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
334
fd.30
F
A
  • Résolu(e)
Microsoft 365 Compter avec la condition que la valeur suivante ne soit pas 3 - NB.SI.ENS ?
Réponses
8
Affichages
214
sylvanu
  • Question Question
Insérer une ligne vide à chaque cellule non vide
Réponses
2
Affichages
295
sylvanu
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
619
floflatch22
F
M
  • Résolu(e)
XL 2016 Formule de ligne précédente non mise à jour après une insertion automatique de lignes dans l'objet tableau.
Réponses
4
Affichages
223
TooFatBoy
J
  • Résolu(e)
Microsoft 365 imprimer feuille selon valeur cellule
Réponses
6
Affichages
390
juju91
J
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
354
Sylvia57
S
D
  • Question Question
XL 2021 Fusion de cellule si vide à côté
Réponses
11
Affichages
384
job75
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
145
pamino
P
E
  • Résolu(e)
XL 2016 Verrouillage cellules remplies après enregistrement fichier
Réponses
7
Affichages
333
job75
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
F
  • Résolu(e)
Microsoft 365 Retrouver un mot dans un autre onglet
2
Réponses
17
Affichages
343
Fitgy
F
G
  • Question Question
Microsoft 365 Validation des Données
Réponses
3
Affichages
316
AtTheOne
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
797
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…