Conditionner zoom selon activation cellule

Résolu

fahd22 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
fahd22 Messages postés 14 Date d'inscription Statut Membre Dernière intervention - 13 août 2016 à 23:11

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

A voir également:

Conditionner zoom selon activation cellule
Clé d'activation windows 10 - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Clé activation office 2010 gratuit - Télécharger - Sécurité
Mas activation - Accueil - Windows

1 réponse

Réponse 1 / 1

Utilisateur anonyme

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. 😊

fahd22 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Merci bcp Albkan, ça fonctionne.

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Votre réponse

Discussions similaires