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
- Clé d'activation windows 10 gratuit - Guide
- Telecharger zoom - Télécharger - Téléphonie & Visio
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
Utilisateur anonyme
Modifié par albkan le 13/08/2016 à 22:43
Modifié par albkan le 13/08/2016 à 22:43
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