Zoomer un UserForm

Pour écrire et partager des tutoriels et des astuces (Excel, Calc et Google Sheets uniquement)
Avatar du membre
lermite
Membre impliqué
Membre impliqué
Messages : 1'599
Inscrit le : 5 février 2012
Version d'Excel : 2000/2007FR

Message par lermite » 10 septembre 2012, 16:18

Pour le test, ouvrir un nouveau UserForm.
Coller quelque contrôles, n'importe lesquels c'est juste pour visualiser.
Coller un SpinBouton comme sur le modèle.
Image
Coller le code ci-dessous dans le module de l'UF.
Option Explicit
Dim LarUF As Single
Dim HautUF As Single
Dim LeftUF As Single
Dim TopUF As Single

Private Sub UserForm_Activate()
    LarUF = Me.Width
    HautUF = Me.Height
    LeftUF = Me.Left
    TopUF = Me.Top
End Sub

Private Sub SpinButton1_SpinDown()
Dim Taux As Single
    Taux = (Me.Zoom / 100) * 0.9
    Me.Move LeftUF / Taux, TopUF / Taux, LarUF * Taux, HautUF * Taux
    Me.Zoom = Me.Zoom - 10
End Sub

Private Sub SpinButton1_SpinUp()
Dim Taux As Single
    Taux = (Me.Zoom / 100) * 1.1
    Me.Move LeftUF / Taux, TopUF / Taux, LarUF * Taux, HautUF * Taux
    Me.Zoom = Me.Zoom + 10
End Sub
Augment/diminue le zoom de 10% à chaque clic.
Tout problème a une solution, le vrai problème... c'est de la trouver.
z
zombe
Membre dévoué
Membre dévoué
Messages : 784
Appréciation reçue : 1
Inscrit le : 28 juin 2011
Version d'Excel : 2007 fr

Message par zombe » 10 septembre 2012, 19:07

Salut lermite

Merci pour ta proposition.
Votre code est simple comme vous l'avez dit mais je trouve que l'autre est plus pratique.
En un seul click on agrandi ou réduit et les icones sont standard. donc plus facile à comprendre par les autres utilisateurs.
Peut m'expliquer afin que je puisse adapter l'ancien code (agrandir, reduire à mes usf)?
Vous aviez parlé d'un code pour la gestion du format date. Jusqu'à present, j'ai pas senti de changement à ce niveau?
Cdlt
z
zombe
Membre dévoué
Membre dévoué
Messages : 784
Appréciation reçue : 1
Inscrit le : 28 juin 2011
Version d'Excel : 2007 fr

Message par zombe » 23 février 2013, 17:34

Salut Lermite

Au moment ou vous me proposiez ce code, je n'ai pas su l'apprécier à sa juste valeur.
Aujourd'hui, je bien compris qu'il est très pratique surtout les écrans n'ont pas les même tailles.
Je te remercie infiniment et te présente mes excuses.
Merci
Avatar du membre
lermite
Membre impliqué
Membre impliqué
Messages : 1'599
Inscrit le : 5 février 2012
Version d'Excel : 2000/2007FR

Message par lermite » 24 février 2013, 10:46

Re Zombe,
Pas de souci, chacun "prend" ce qui l’intéresse.
Mais depuis il y a de l'eau qui a couler sous les ponts :P
Voire la version suivante
A+
Tout problème a une solution, le vrai problème... c'est de la trouver.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message