Conditionner zoom selon activation cellule
Résolu
fahd22
Messages postés
14
Statut
Membre
-
fahd22 Messages postés 14 Statut Membre -
fahd22 Messages postés 14 Statut Membre -
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
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
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. 😊
fahd22
Messages postés
14
Statut
Membre
Merci bcp Albkan, ça fonctionne.
