Conditionner zoom selon activation cellule Résolu/Fermé

Question

Bonjour à tous,

J'aimerais augmenter le zoom de la feuille dès qu'une des cellules est active sur les plages : H3 à H65000, V3 à V65000 et X3 à X65000 
Je me retrouve sur un problème concernant ce code que j'ai mis dans le code de ma feuille. Je ne sais pas comment je peux l’exécuter. J'aimerais que le code s'exécute sans devoir à chaque fois aller chercher la macro. Merci de votre réponse.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If (Target.Row >= 3 And Target.Row <= 65000) And (Target.Column = 8 Or Target.Column = 22 Or Target.Column = 24) Then
 With ActiveWindow
       .ZOOM = 100
    End With
Else: ActiveWindow
       .ZOOM = 60
End If
End Sub

Utilisateur anonyme · Answer

Bonsoir fahd22,

Ton code peut être simplifié ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  Dim k As Byte
  If (Target.Row >= 3 And Target.Row <= 65000) And (Target.Column = 8 Or Target.Column = 22 Or Target.Column = 24) Then k = 100 Else k = 60
  ActiveWindow.Zoom = k
End Sub

Inutile de devoir à chaque fois aller chercher la macro si tu mets
ce code VBA au bon endroit : non pas dans un module (comme
Module1 par exemple) ni dans ThisWorkbook mais dans le code
de la feuille pour laquelle tu veux exécuter cette macro.

Donc si c'est pour Feuil1 (par exemple), alors côté gauche,
sous « Microsoft Excel Objets », fais un double clic sur « Feuil1 » ;
côté droit, fais un copier / coller du code VBA ci-dessus.

Tu verras que c'est exécuté automatiquement si tu te mets sur
une des cellules des plages concernées.

N'oublie pas d'enlever le code que tu as dû mettre dans Module1
ou pour une autre feuille que celle où tu veux que ce soit exécuté
(car sinon, si tu l'avais mis sur le code de la bonne feuille, alors
ça aurait été exécuté automatiquement).
 
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement.  &#x1F60A;

Conditionner zoom selon activation cellule

1 réponse

Discussions similaires