Comment appliquer le gel/dégel des volets à plusieurs feuilles de calcul en une seule fois ?
Lorsque vous travaillez avec de grands classeurs Excel contenant des dizaines, voire des centaines de feuilles de calcul, vous pouvez avoir besoin de garder certaines lignes ou colonnes visibles en gelant les volets. Cependant, la fonction Gel des volets par défaut d'Excel ne fonctionne que sur la feuille active, ce qui rend fastidieux de répéter cette action manuellement sur chaque feuille. Si vous devez figer (ou plus tard dégeler) systématiquement les mêmes lignes ou colonnes dans toutes vos feuilles de calcul, existe-t-il un moyen d'appliquer ce paramètre à toutes les feuilles en une seule fois - vous faisant gagner du temps et réduisant ainsi le risque d'en oublier une ?
Appliquer le Gel des volets à toutes les feuilles de calcul en une seule fois avec un code VBA
Appliquer le Dégel des volets à toutes les feuilles de calcul en une seule fois avec un code VBA
Appliquer le Gel/Dégel des volets à toutes les feuilles de calcul en un seul clic avec Kutools pour Excel
Appliquer le Gel des volets à toutes les feuilles de calcul en une seule fois avec un code VBA
Si vous souhaitez figer les volets au même emplacement de cellule sur chaque feuille de votre classeur, VBA offre une solution efficace pour automatiser ce processus. Il peut aider à maintenir une vue uniforme pour toutes les feuilles, comme conserver les lignes d'en-tête ou les colonnes clés visibles tout au long des grands classeurs. Notez que cette méthode nécessite de sélectionner la cellule où vous souhaitez appliquer le gel dans chaque feuille, car VBA figera en fonction de la cellule active dans chacune.
1. Si vous souhaitez figer toutes les feuilles au même emplacement, sélectionnez une cellule que vous souhaitez figer dans la feuille, puis maintenez la touche Maj enfoncée pour sélectionner tous les onglets de feuilles.
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 Insérer > Module, puis copiez et collez le code VBA suivant dans la fenêtre du module :
Code VBA : Geler toutes les feuilles de calcul en une seule fois 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, appuyez sur F5 ou cliquez sur le bouton Exécuter. Cela appliquera le gel des volets à la position de la cellule active pour toutes les feuilles de calcul.
Remarque : Si vous n'avez pas sélectionné toutes les feuilles et que la cellule active diffère entre les feuilles, les emplacements des volets gelés peuvent varier d'une feuille à l'autre. Pour garantir l'uniformité, alignez toujours la cellule active avant d'exécuter le code.
Appliquer le Dégel des volets à toutes les feuilles de calcul en une seule fois avec un code VBA
Lorsque plusieurs feuilles de calcul ont des volets gelés appliqués et que vous souhaitez supprimer ce paramètre de toutes les feuilles simultanément, une solution VBA peut grandement simplifier le processus. Au lieu de dégeler les volets feuille par feuille manuellement, la macro suivante dégèle rapidement toutes les feuilles en une seule fois.
1. Ouvrez le classeur contenant des volets gelés sur plusieurs feuilles de calcul.
2. Appuyez sur ALT + F11 pour lancer l'éditeur Microsoft Visual Basic pour Applications.
3. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans la fenêtre du module :
Code VBA : Dégeler toutes les feuilles de calcul en une seule fois 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 exécuter. Toutes les feuilles de calcul ayant des volets gelés se verront supprimer ceux-ci instantanément.
Appliquer le Gel/Dégel des volets à toutes les feuilles de calcul en un seul clic avec Kutools pour Excel
Si vous préférez ne pas utiliser VBA ou recherchez une méthode plus simple sans code, Kutools pour Excel fournit un moyen efficace d'appliquer Gel ou Dégel des volets sur toutes les feuilles de calcul via un menu simple. Cette fonctionnalité est idéale pour les utilisateurs qui souhaitent une solution rapide et fiable avec un minimum d'étapes et sans configuration de macro. Les utilitaires Geler les volets pour plusieurs feuilles de calcul et Dégeler les volets pour plusieurs feuilles de calcul fonctionnent de manière transparente pour configurer ou supprimer les positions des volets gelés dans chaque feuille en une seule action. Cela fait économiser beaucoup de temps dans les grands classeurs et réduit le risque d'incohérence entre les feuilles.
Après avoir installé Kutools pour Excel, veuillez suivre ces étapes :
1. Choisissez la cellule à laquelle vous souhaitez figer les volets dans toutes les feuilles de calcul (par exemple, sélectionnez la cellule B2 si vous voulez garder la ligne 1 et la colonne A visibles). Cette position sera appliquée uniformément à chaque feuille de calcul. Voir capture d'écran :
2. Sur le ruban Excel, cliquez sur Kutools Plus > Feuille de calcul > Geler les volets pour plusieurs feuilles de calcul. Voir capture d'écran :
3. Toutes les feuilles de calcul auront immédiatement les volets gelés définis au même emplacement de cellule désigné (par exemple, B2), afin que votre vue reste cohérente dans l'ensemble du classeur.
Remarque : Pour supprimer les volets gelés de toutes les feuilles de calcul en une seule opération, sélectionnez Kutools Plus > Feuille de calcul > Dégeler les volets pour plusieurs feuilles de calcul. Cela offre la flexibilité de basculer la vue selon les besoins lors du travail avec de grandes ou complexes bases de données. La fonctionnalité est particulièrement utile lors de la préparation de modèles, de réunions de conseil d'administration, ou à chaque fois que vous souhaitez une navigation cohérente rapide.
Démo : Appliquer le Gel/Dégel des volets à toutes les feuilles de calcul en un seul clic avec Kutools pour Excel
Meilleurs outils de productivité Office
Dynamisez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité la plus essentielle pour vous...
Office Tab apporte une interface à onglets à Office, et facilite grandement 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, au lieu d’ouvrir de nouvelles fenêtres.
- Augmentez votre productivité de50% et réduisez des centaines de clics de souris chaque jour!