annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Impression > Zoom sur la zone

Zoom sur la zone

Publié par veriland le 12-Aug-2013 21:30 (1567 lectures)

Caler automatiquement le zoom à l'écran en fonction de la résolution et de la zone d'impression définie sur la feuille
Cette procédure permet de s'adapter exactement à toutes les configurations d'écrans ou de feuilles ...

 

Partie à placer dans un module de feuille...

module

 

Option Explicit

Private Sub Worksheet_Activate()
'Ti
'http://www.excel.veriti.net
'Zoom automatique sur une zone d'impression
    Dim Area$­, Cel As Range
    On Error Resume Next
    With ActiveSheet
        Set Cel = Selection
        If Cel Is Nothing Then Set Cel = .Range("A1")
        Area = .PageSetup.PrintArea
        If Area <> "" Then
            .Range(Area).Select
            ActiveWindow.Zoom = True
        End If
    End With
    Cel.Select
End Sub
 
Ici le principe sera actif lorsque le feuille en question sera activée ... il est facile d'appliquer un bouton ou autre à cet exemple 


Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013