Conditionner zoom selon activation cellule
Résolu/Fermé
fahd22
Messages postés
14
Date d'inscription
vendredi 12 août 2016
Statut
Membre
Dernière intervention
23 septembre 2016
-
13 août 2016 à 22:11
fahd22 Messages postés 14 Date d'inscription vendredi 12 août 2016 Statut Membre Dernière intervention 23 septembre 2016 - 13 août 2016 à 23:11
fahd22 Messages postés 14 Date d'inscription vendredi 12 août 2016 Statut Membre Dernière intervention 23 septembre 2016 - 13 août 2016 à 23:11
A voir également:
- Conditionner zoom selon activation cellule
- Telecharger zoom - Télécharger - Téléphonie & Visio
- Verrouiller cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Clé d'activation windows 10 - Guide
- Activation windows 10 - Guide
1 réponse
Bonsoir fahd22,
Ton code peut être simplifié ainsi :
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. 😊
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. 😊
13 août 2016 à 23:11