Je tente d'appliquer un zoom sur une feuille, en employant une plage de
cellules, mais je préfèrerais le faire sans utiliser la méthode Select
(puisque j'ai une protection sur la feuille). Bien évidemment, je n'y
parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select
ActiveWindow.Zoom = True
End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un
CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de
quelqu'un ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Salut,
Juste sur ta question, l'instruction With s'utilise ainsi (moi je n'aime pas beaucoup car si elle est longue et que l'entête dépasse l'écran, on ne sait plus de quoi on parle):
With nom_mobjet .diredtive .x. End With
Le poitn doit rester devant chaque ligne... ----------------
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
Salut,
Juste sur ta question, l'instruction With s'utilise
ainsi (moi je n'aime pas beaucoup car si elle est longue et
que l'entête dépasse l'écran, on ne sait plus de quoi on
parle):
With nom_mobjet
.diredtive
.x.
End With
Le poitn doit rester devant chaque ligne...
----------------
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com>
a écrit dans le message de news:
599FBA96-DC1E-426E-8E20-773831691810@microsoft.com...
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant
une plage de
cellules, mais je préfèrerais le faire sans utiliser la
méthode Select
(puisque j'ai une protection sur la feuille). Bien
évidemment, je n'y
parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à
utiliser un Select.
With Range("A1:L35").Select
ActiveWindow.Zoom = True
End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow
par un
CurrentRegion mais n'y parviens toujours pas.....L'erreur
saute aux yeux de
quelqu'un ?
Juste sur ta question, l'instruction With s'utilise ainsi (moi je n'aime pas beaucoup car si elle est longue et que l'entête dépasse l'écran, on ne sait plus de quoi on parle):
With nom_mobjet .diredtive .x. End With
Le poitn doit rester devant chaque ligne... ----------------
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
michdenis
Bonjour Stéphan DuQuébec,
With ActiveWindow .Zoom = 125 'applique le zoom que tu désires ! End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
Bonjour Stéphan DuQuébec,
With ActiveWindow
.Zoom = 125 'applique le zoom que tu désires !
End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le message de news:
599FBA96-DC1E-426E-8E20-773831691810@microsoft.com...
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de
cellules, mais je préfèrerais le faire sans utiliser la méthode Select
(puisque j'ai une protection sur la feuille). Bien évidemment, je n'y
parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select
ActiveWindow.Zoom = True
End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un
CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de
quelqu'un ?
With ActiveWindow .Zoom = 125 'applique le zoom que tu désires ! End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
Stéphan DuQuébec
Non M. michdenis.
C'est gênant, mais ce n'était que ça mon problème......
Merci !
Bonjour Stéphan DuQuébec,
With ActiveWindow .Zoom = 125 'applique le zoom que tu désires ! End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
Non M. michdenis.
C'est gênant, mais ce n'était que ça mon problème......
Merci !
Bonjour Stéphan DuQuébec,
With ActiveWindow
.Zoom = 125 'applique le zoom que tu désires !
End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le message de news:
599FBA96-DC1E-426E-8E20-773831691810@microsoft.com...
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de
cellules, mais je préfèrerais le faire sans utiliser la méthode Select
(puisque j'ai une protection sur la feuille). Bien évidemment, je n'y
parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select
ActiveWindow.Zoom = True
End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un
CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de
quelqu'un ?
C'est gênant, mais ce n'était que ça mon problème......
Merci !
Bonjour Stéphan DuQuébec,
With ActiveWindow .Zoom = 125 'applique le zoom que tu désires ! End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
michdenis
| C'est gênant, mais ce n'était que ça mon problème......
Je crois que le plus gênant ... ce ne pas oser demander !!! ;-)
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Non M. michdenis.
C'est gênant, mais ce n'était que ça mon problème......
Merci !
Bonjour Stéphan DuQuébec,
With ActiveWindow .Zoom = 125 'applique le zoom que tu désires ! End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
Le cas échéant, merci de m'en informer.
| C'est gênant, mais ce n'était que ça mon problème......
Je crois que le plus gênant ... ce ne pas oser demander !!!
;-)
Salutations!
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le message de news:
2C99CE08-6EED-47DB-841D-BFD508772884@microsoft.com...
Non M. michdenis.
C'est gênant, mais ce n'était que ça mon problème......
Merci !
Bonjour Stéphan DuQuébec,
With ActiveWindow
.Zoom = 125 'applique le zoom que tu désires !
End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le message de news:
599FBA96-DC1E-426E-8E20-773831691810@microsoft.com...
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de
cellules, mais je préfèrerais le faire sans utiliser la méthode Select
(puisque j'ai une protection sur la feuille). Bien évidemment, je n'y
parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select
ActiveWindow.Zoom = True
End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un
CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de
quelqu'un ?
| C'est gênant, mais ce n'était que ça mon problème......
Je crois que le plus gênant ... ce ne pas oser demander !!! ;-)
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Non M. michdenis.
C'est gênant, mais ce n'était que ça mon problème......
Merci !
Bonjour Stéphan DuQuébec,
With ActiveWindow .Zoom = 125 'applique le zoom que tu désires ! End With
Tu cherches autre chose ?
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
Je tente d'appliquer un zoom sur une feuille, en employant une plage de cellules, mais je préfèrerais le faire sans utiliser la méthode Select (puisque j'ai une protection sur la feuille). Bien évidemment, je n'y parviens pas.....
Voici mon code, celui qui fonctionne, mais qui m'oblige à utiliser un Select.
With Range("A1:L35").Select ActiveWindow.Zoom = True End With
J'ai tenté plusieurs variantes.....modifié le ActiveWindow par un CurrentRegion mais n'y parviens toujours pas.....L'erreur saute aux yeux de quelqu'un ?
