Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée dans Excel ?

Author Siluvia Last modified

Dans Excel, lorsque vous protégez une feuille de calcul, la fonctionnalité d'expansion automatique des tableaux est souvent désactivée. Par exemple, si vous avez un tableau nommé Tableau1 et que vous essayez d'ajouter des données sous la dernière ligne dans une feuille de calcul protégée, le tableau ne s'étendra pas automatiquement pour inclure la nouvelle ligne. Cependant, il existe un moyen de garder votre tableau extensible même dans une feuille de calcul protégée. Ce tutoriel vous guidera à travers les étapes pour activer l'expansion automatique de votre tableau tout en maintenant la protection de la feuille de calcul.

Garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée avec du code VBA


Garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée avec du code VBA

Comme illustré dans la capture d'écran ci-dessous, un tableau nommé Tableau1 dans votre feuille de calcul, et la dernière colonne du tableau est une colonne de formule. Maintenant, vous devez protéger la feuille de calcul pour empêcher la modification de la colonne de formule, mais permettre l'expansion du tableau en insérant une nouvelle ligne et en attribuant de nouvelles données aux nouvelles cellules. Veuillez procéder comme suit.

A screenshot of a table named Table1 in a worksheet with the formula column shown

1. Cliquez sur Développeur > Insérer > Bouton (Contrôle de formulaire) pour insérer un bouton de contrôle de formulaire dans votre feuille de calcul.

A screenshot of inserting a Form Control button in Excel using the Developer tab

2. Dans la boîte de dialogue Assigner une macro qui apparaît, cliquez sur le bouton Nouveau.

A screenshot of the Assign Macro dialog box in Excel with the New button highlighted

3. Dans la fenêtre Microsoft Visual Basic for Applications, veuillez copier et coller le code VBA ci-dessous entre les paragraphes Sub et End Sub dans la fenêtre Code.

Code VBA : Garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée

'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    Set tableRg = ActiveSheet.ListObjects("Table4").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True

Remarques :

1) Dans le code, le nombre « 123 » est le mot de passe que vous utiliserez pour protéger la feuille de calcul.
2) Veuillez modifier le nom du tableau et le nom de la colonne contenant la formule que vous souhaitez protéger.

4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

5. Sélectionnez les cellules dans le tableau où vous devez attribuer de nouvelles données, à l'exception de la colonne de formule, puis appuyez sur les touches Ctrl + 1 pour ouvrir la boîte de dialogue Format de cellule. Dans la boîte de dialogue Format de cellule, décochez la case Verrouiller, puis cliquez sur le bouton OK. Voir la capture d'écran :

A screenshot of the Format Cells dialog box in Excel with the Locked checkbox unchecked

6. Maintenant, protégez votre feuille de calcul avec le mot de passe que vous avez spécifié dans le code VBA.

Dès maintenant, après avoir cliqué sur le bouton de contrôle de formulaire dans votre feuille de calcul protégée, le tableau sera extensible en insérant une nouvelle ligne comme illustré dans la capture d'écran ci-dessous.

A screenshot of a protected worksheet with a table being expanded by inserting a new row

Remarque : vous pouvez modifier le tableau à l'exception de la colonne de formule dans la feuille de calcul protégée.


Articles connexes :

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionnez l'analyse de données avec : Exécution intelligente | Générer du code | Créer des formules personnalisées | Analyser des données et générer des graphiques | Appeler les Fonctions améliorées de Kutools
Fonctionnalités populaires : Trouver, mettre en évidence ou marquer les doublons | Supprimer les lignes vides | Combinez les colonnes ou les cellules sans perte de données | Arrondir sans formule...
Super RECHERCHEV : Recherche multi-critères | Recherche multi-valeurs | Recherche multi-feuilles | Correspondance floue...
Liste déroulante avancée : Créer rapidement une liste déroulante | Liste déroulante dépendante | Liste déroulante à sélection multiple...
Gestionnaire de colonnes : Ajouter un nombre spécifique de Colonnes | Déplacer des Colonnes | Alterner l’état de visibilité des Colonnes masquées | Comparer des plages & Colonnes...
Fonctionnalités phares : Mise au point de la grille | Affichage de conception | Barre de formule améliorée | Gestionnaire de Classeur & Feuille de calcul | Bibliothèque d’AutoTexte | Sélecteur de date | Merge Worksheets | Chiffrer/Déchiffrer les cellules | Envoyer un e-mail par liste | Super Filtre | Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...)...
Top15 des ensembles d’outils :12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...) |50+ Types de graphiques (Diagramme de Gantt, ...) |40+ Formules pratiques (Calculer l’âge en fonction de la date de naissance, ...) |19 outils d’insertion (Insérer un code QR, Insérer une image depuis le chemin, ...) |12 outils de conversion (Convertir en mots, Conversion de devises, ...) |7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...) | ... et bien plus encore
Utilisez Kutools dans la langue de votre choix – disponible en Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres !

Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.

  • Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !

Tous les modules complémentaires Kutools. Une seule installation

La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un installateur, une licence — installation en quelques minutes (compatible MSI)
  • Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
  • Essai complet30 jours — sans inscription, ni carte bancaire
  • Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels