Modifiez le niveau d’agrandissement d’une feuille en double-cliquant dessus avec Excel VBA

Certains classeurs ont une taille énorme. Parfois, il est nécessaire de réduire la taille de la police pour être affiché à l’écran dans le cadre de la feuille de calcul. Cette macro sera utile pour les personnes qui changent souvent la taille de la feuille affichée pour obtenir une vue régulière des données ou pour lire des composants spécifiques.
Comment ca marche?
Une fois la macro préparée, il vous suffit de double-cliquer sur le document sélectionné pour agrandir la vue en feuille jusqu’à 200%. Répétez le double-clic pour rétablir le niveau de zoom à 100%. Bien sûr, le grossissement peut être modifié en l’adaptant à vos besoins.

Private Sub Worksheet_BeforeDoubleClick(ByVal Cible As Range, Annuler As Boolean)
'Vérification du niveau d'agrandissement actuel
'Réglez l'agrandissement sur 100% s'il est différent
'Zoomez sur 200% si le paramètre actuel est défini sur 100
If ActiveWindow.Zoom <> 100 Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 200
End If
End Sub

Commentaires
Il convient de noter que l’effet secondaire du double-clic sur la cellule est le passage au mode édition. Pour en sortir, appuyez sur la touche Echap. Vous pouvez ajouter la procédure suivante à la fin de la macro:
Application.SendKeys (“{ESC}”)
Grâce à cela, vous n’avez plus besoin d’appuyer sur la touche Esc.
Comment utiliser la macro?
Pour implémenter cette macro, copiez et collez son code dans la fenêtre Code, en l’ajoutant à la méthode de gestion de l’événement Worksheet_BeforeDoubleClick. Si vous le placez ici, vous pourrez exécuter la macro chaque fois qu’un utilisateur clique deux fois sur une feuille.
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, recherchez le bon projet ou classeur et cliquez sur le signe + en regard de celui-ci. Toutes les feuilles seront affichées.
3. Sélectionnez la feuille dans laquelle vous voulez exécuter le code.
4. Sélectionnez BeforeDoubleClick dans la liste déroulante Evénement.
5. Tapez ou collez le code dans le module nouvellement créé.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x