Comment appliquer la fonction « Figer/Dégeler les volets » à plusieurs feuilles de calcul simultanément ?
Lorsque vous travaillez avec un grand classeur Excel contenant des dizaines, voire des centaines de feuilles de calcul, il est fréquent que vous souhaitiez maintenir certaines lignes ou colonnes visibles en figeant les volets. Cependant, la fonction Figer les volets d’Excel ne s’applique par défaut qu’à la feuille active, ce qui rend fastidieuse la répétition manuelle de cette opération sur chaque feuille. Si vous devez figer (ou plus tard dégeler) systématiquement les mêmes lignes ou colonnes sur toutes vos feuilles, existe-t-il un moyen d’appliquer ce paramètre à l’ensemble du classeur en une seule fois, afin de gagner du temps et d’éviter d’en oublier une ?
Appliquer Figer les volets à toutes les feuilles simultanément à l’aide d’un code VBA
Appliquer Dégeler les volets à toutes les feuilles simultanément à l’aide d’un code VBA
Appliquer Figer/Dégeler les volets à toutes les feuilles en un clic avec Kutools pour Excel
Appliquer Figer les volets à toutes les feuilles simultanément à l’aide d’un code VBA
Si vous souhaitez figer les volets à la même position de cellule sur chaque feuille de votre classeur, VBA propose une solution efficace pour automatiser cette opération. Cela garantit une vue uniforme sur l’ensemble des feuilles — par exemple en maintenant toujours visibles les lignes d’en-tête ou les colonnes clés, même dans des classeurs volumineux. Notez que cette méthode nécessite de sélectionner, sur chaque feuille, la cellule à partir de laquelle vous souhaitez appliquer le gel, puisque le code VBA s’appuie sur la cellule active de chaque feuille.
1. Si vous souhaitez figer toutes les feuilles à la même position, sélectionnez d’abord la cellule à figer dans la feuille, puis maintenez la touche Maj enfoncée tout en sélectionnant tous les onglets de feuille.
2. Appuyez sur ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Dans la fenêtre de l’éditeur VBA, cliquez sur Insertion > Module, puis copiez-collez le code VBA suivant dans la fenêtre du module :
Code VBA : Figer toutes les feuilles simultanément dans Excel
Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
Ws.Activate
With Application.ActiveWindow
.FreezePanes = True
End With
Next
Application.ScreenUpdating = True
End Sub
4. Pour exécuter le code, appuyez sur F5 ou cliquez sur le bouton Exécuter. Le gel des volets sera alors appliqué à la position de la cellule active sur toutes les feuilles.
Remarque : Si vous n’avez pas sélectionné toutes les feuilles et que la cellule active diffère d’une feuille à l’autre, les positions de gel des volets varieront selon les feuilles. Pour garantir une uniformité parfaite, veillez toujours à aligner la cellule active avant d’exécuter le code.
Appliquer Dégeler les volets à toutes les feuilles simultanément à l’aide d’un code VBA
Lorsque plusieurs feuilles disposent de volets figés et que vous souhaitez supprimer ce paramètre simultanément sur l’ensemble d’entre elles, une solution VBA simplifie considérablement la tâche. Plutôt que de dégeler manuellement les volets feuille par feuille, la macro suivante les dégèle instantanément sur toutes les feuilles.
1. Ouvrez le classeur contenant des volets figés sur plusieurs feuilles.
2. Appuyez sur ALT + F11 pour lancer l’éditeur Microsoft Visual Basic pour Applications.
3. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans la fenêtre du module :
Code VBA : Dégeler toutes les feuilles simultanément dans Excel
Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
Ws.Activate
With Application.ActiveWindow
.FreezePanes = False
End With
Next
Application.ScreenUpdating = True
End Sub
4. Appuyez sur F5 ou cliquez sur le bouton Exécuter pour lancer l’exécution. Toutes les feuilles comportant des volets figés verront ces derniers supprimés instantanément.
Appliquer Figer/Dégeler les volets à toutes les feuilles en un clic avec Kutools pour Excel
Si vous préférez ne pas utiliser de code VBA ou recherchez une méthode plus simple sans programmation, Kutools pour Excel propose une solution efficace pour figer ou dégeler les volets sur toutes les feuilles via un menu intuitif. Cette fonctionnalité convient particulièrement aux utilisateurs souhaitant une solution rapide, fiable et sans configuration de macros. Les utilitaires Figer les volets pour plusieurs feuilles de calcul et Déverrouiller les volets pour plusieurs feuilles de calcul permettent d’appliquer ou de supprimer les volets figés sur toutes les feuilles en une seule action, ce qui fait gagner un temps considérable dans les grands classeurs et réduit les risques d’incohérence entre les feuilles.
Après avoir installé Kutools pour Excel, suivez ces étapes :
1. Choisissez la cellule à partir de laquelle vous souhaitez figer les volets sur toutes les feuilles (par exemple, sélectionnez la cellule B2 si vous voulez garder la ligne 1 et la colonne A toujours visibles). Cette position sera appliquée de façon uniforme à chaque feuille. Voir capture d’écran :
2. Dans le ruban Excel, cliquez sur KUTOOLS PLUS > Feuille de calcul > Figer les volets pour plusieurs feuilles de calcul. Voir la capture d’écran :
3. Toutes les feuilles auront immédiatement les volets figés à la même position de cellule désignée (par exemple, B2), garantissant ainsi une vue cohérente dans tout le classeur.
Remarque : pour supprimer les volets figés de toutes les feuilles en une seule opération, sélectionnez KUTOOLS PLUS > Feuille de calcul > Déverrouiller les volets pour plusieurs feuilles de calcul. Cette fonctionnalité vous offre une grande flexibilité pour adapter l’affichage à vos besoins, notamment lors de la préparation de modèles, de réunions de direction ou chaque fois que vous recherchez une navigation rapide et cohérente.
Démo : Appliquer Figer/Dégeler les volets à toutes les feuilles en un clic avec Kutools pour Excel
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels