> Tous les forums > Forum Bureautique
 [VBA Excel et Zoom]Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Magnan
  Posté le 16/02/2016 @ 19:56 
Aller en bas de la page 
Astucien

Bonjour,

J'ai une mini macro qui me permet d'obtenir un zoom défini sans passer par le menu :

Sub zoom90()
' zoom90 Macro

ActiveWindow.Zoom = 90
Range("A1").Select
End Sub

Ca fonctionne.

Je souhaiterai que la valeur 90 ou une autre soit extraite de la cellule A1 dans la feuille Visualisation.

Comment dois-je modifier le code ?

Merci d'avance.

A+



Modifié par Magnan le 17/02/2016 09:41
Publicité
gilbert_rgi
 Posté le 17/02/2016 à 00:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir,

Pas trop compris la demande

Sub zoom90()
' zoom90 Macro

If ActiveSheet.Name = " Visualisation" Then
ActiveWindow.Zoom = [a1].Value
Range("A1").Select

End If
End Sub



Modifié par gilbert_rgi le 17/02/2016 00:12
Magnan
 Posté le 17/02/2016 à 09:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

C'est ce que je cherchais. L'affectation de A1 à ActiveWindows.Zoom

Merci.

A+



Modifié par Magnan le 17/02/2016 09:42
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
109,99 €Tablette 9,6 pouces HUAWEI MediaPad T3 16 Go à 109,99 €
Valable jusqu'au 22 Février

Amazon fait une promotion sur la tablette tactile 9,6 pouces HUAWEI MediaPad T3 qui passe à 109,99 € alors qu'on la trouve ailleurs à partir de 130 €. Cette tablette a un écran de 9,6 pouces HD IPS, 2 Go de RAM, un processeur Quad core Qualcomm Snapdragon 425, 16 Go d'espace de stockage (extensible via microSD) et tourne sous Android 7.0. 


> Voir l'offre
599,99 €Portable 15,6 pouces HP (FullHD, Core i5, 8 Go, SSD 128 Go + DD 1 To, GTX 1050 3 Go) à 599,99 €
Valable jusqu'au 22 Février

Cdiscount fait une belle promotion sur l'ordinateur portable HP Pavilion 15-bc511nf qui passe à 599,99 € livré gratuirement alors qu'on le trouve ailleurs autour de 700 €. Ce portable possède un écran 15,6 pouces HD Full HD (1920x1080), un processeur Intel Core i5 9300H, 8 Go de RAM, un SSD de 128 Go, un disque dur de 1 to et une carte graphique dédiée GeForce GTX 1050 3 Go. Le tout tourne sous Windows 10.


> Voir l'offre
104,99 €Disque dur externe portable Western Digital Elements USB 3.0 5 To à 104,99 €
Valable jusqu'au 20 Février

Amazon propose actuellement le disque dur externe portable Western Digital Elements USB 3.0 5 To à 104,99 € livré gratuitement. On le trouve ailleurs à partir de 149 €. Ce disque dur qui tient dans la main est silencieux, ne chauffe pas et dispose d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire.


> Voir l'offre

Sujets relatifs
Zoom en aperçu avant impression excel
ZOOM IMAGE DANS EXCEL
Excel et zoom
Dates dans Excel
figer les volets dans excel 13
Soucis excel
trier un tableau Excel !
Excel-Report automatique d'une valeur entre 2 pages
Enregistrer les modifications Excel 2013
Excel filtre ou pas filtre
Plus de sujets relatifs à [VBA Excel et Zoom]
 > Tous les forums > Forum Bureautique