XL 2010 Déplacer librement une Usf (RESOLU)

[misteryann]

Bonsoir le forum.
Savez-vous si il est possible de déplacer librement une usf. Je m'explique:
sur l'ordi de mon boulot la usf prend la totalité de l'écran (21') mais sur mon perso l'écran fait 15'.
Du coup je n'ai pas accès à certains boutons, textbox, etc.
Quelqu'un sait-il si il y a possibilité de déplacer la usf librement comme une fenêtre Windows (genre saisie de la usf avec le curseur en forme de croix fléché), ou est-ce impossible à réaliser ?

Bien cordialement.
Misteryann

 

[Dranreb]

Bonsoir.
Oui, normalement on peut toujours le glisser par sa barre titre.

 

[misteryann]

Merci pour la réponse Dranreb.
Sauf que la usf prend la totalité de l'écran 21'.
Par conséquent, la barre de titre se retrouve en haut de l'écran et donc je ne peux pas déplacer l'usf pour accéder aux textbox et boutons qui se situe en bas de l'usf et qui sont invisibles sur un écran 15' .
Peut être y a t-il un moyen de redimensionner une usf avec ses textbox, combo, list, etc en fonction de la taille de l'écran?

 

[misteryann]

j'ai quelque part (faut que je retrouve) un code qui met la usf au dimension de l'écran (plein écran) mais sans mettre les contrôles à l'échelle et sans les repositionner

 

[Dranreb]

Et en changeant sa propriété Zoom ?

 

[misteryann]

Ok je prends cette solution et me munir d'une loupe pour voir les contrôles
Mais au moins cela permettre de continuer à créer le fichier chez moi.
Y a t-il un moyen de définir le zoom via une combo?z
du genre zoom = combobox1.value ( pas essayé) ou userform1.zoom = combobox1.value

 

[Dranreb]

Il est aussi possible d'utiliser les propriétés de la rubrique Défilement.

 

[misteryann]

Et quelles sont les propriétés à paramétrer (jamais utilisées)

 

[Dranreb]

Faites des essais. Toutes à un moment ou un autre à partir du moment ou on en utilise une. À moins bien sur que le soucis ne soit qu'en largeur ou en hauteur mais pas les deux.

 

[misteryann]

Bon, la propriété zoom reste la meilleure solution.
Les scrollbars ne sont pas top.
Cependant si il y a un moyen de paramétrer le zoom directement depuis la usf je suis preneur.

Merci pour votre aide Dranreb toujours aussi précieuse.
Cordialement.

 

[Modeste geedee]

Bonsour®

Sauf que la usf prend la totalité de l'écran 21'.
Par conséquent, la barre de titre se retrouve en haut de l'écran et donc je ne peux pas déplacer l'usf pour accéder aux textbox et boutons qui se situe en bas de l'usf et qui sont invisibles sur un écran 15' .
Peut être y a t-il un moyen de redimensionner une usf avec ses textbox, combo, list, etc en fonction de la taille de l'écran?

Dans les propriétés du Userform mettre le zoom à : 71%
ajuster éventuellement

ou bien ajouter un bouton "discret" dans le coin supérieur gauche du Usf
Private Sub CommandButton1_Click()
If Me.Zoom = 100 Then Me.Zoom = 71 Else Me.Zoom = 100
End Sub

 

[misteryann]

Merci pour votre aide Dranreb et modeste geedee.
En résumé la propriété "Zoom" ne redimensionne que les contrôles mais pas la Usf elle-même.
Par conséquent j'ai rajouté un combobox dans la USF à redimensionner.
Ce combo est alimenté depuis la feuille "DATA" (valeur de la colonne Y) et les dimensions de la USF sont contenus dans les 2 colonnes suivantes.
Du coup le code pour la combo devient:

Private Sub ComboBox11_Click()
Me.Zoom = ComboBox11.Value
ligne = Sheets("DATA").[Y:Y].Find(ComboBox11, LookIn:=xlValues).Row
With UserForm1
.Width = Sheets("DATA").Cells(ligne, 26)
.Height = Sheets("DATA").Cells(ligne, 27)
End With
End Sub

Une fois de plus, grace au Forum XLD affaire résolue.
Bien cordialement

 

[Eric C]

Bonjour le forum
Bonjour misteryann, Dranreb et Modeste geedee

Une très ancienne démo de notre ami @+Thierry mise en ligne en 2004 qui permet de modifier
la taille du Userform (et de ses contrôles) à l'aide d'un SpinButton :

Option Explicit

'Thierry'démo pour ajustement USF, January 2004

Const Largeur As Long = 367
Const Hauteur As Long = 400
Dim Coef As Long
Dim ActionSpin As String
Dim ActionList As String


Private Sub UserForm_initialize()
With Me.SpinButton1
.Value = 100
.Min = 50
.Max = 200
End With
Reglage
End Sub

Private Sub SpinButton1_SpinUp()
ActionSpin = "Plus"
Reglage
End Sub

Private Sub SpinButton1_SpinDown()
ActionSpin = "Moins"
Reglage
End Sub


Private Sub Reglage()
With Me
Coef = .SpinButton1 - 100
.Height = ((Hauteur / 100) * Coef) + Hauteur
.Width = ((Largeur / 100) * Coef) + Largeur
.Zoom = .SpinButton1
End With
End Sub

Bonne fin de journée

 

[misteryann]

Merci Eric C
Mai le SpinButton ne me parle pas.
Pouvez-vous poster un exemple?
Merci.
Cordialement

 

[Dranreb]

Est-ce qu'il ne serait pas possible de calculer le zoom nécessaire en faisant le rapport hauteur fenêtre d'applicaton / hauteur UserForm si ce rapport < 1 ?