User form...Récalcitrant...

[paul87]

Bonjour à tous, Bonjour le Forum,...
je travaille, sur un UF, j'arrive bien à modifier sa taille, Largeur et Hauteur "en mode création" , mais au moment de lancer son ouverture, par un simple commandbutton....il ne se met pas à la taille prévue.....et donc n'affiche pas la totalité de son contenu....
y-aurait-il une propriété ou une fonction ou code que je ne connaisse pas..?
Merci par avance pour vos conseils
Paul

 

[MJ13]

Re : User form...Récalcitrant...

Bonjour,

Peux tu mettre ton Userform dans un fichier, comme cela les Xldiens pourrant le tester sur leur PC et te dire?

 

[paul87]

Re : User form...Récalcitrant...

Bonjour,...
Malheureusement je ne peux pas le dissocier du reste de mon appli..
et c'est un tres gros fichier...
avec des datas professionnelles...
C'est vraiment bizzarre que je n'arrive pas à re-dimensionner ce UF alors que j'en ai plusieurs autres dans mon appli, que je paux redimensionner sans problèmes....

Merci par avance ...

 

[Robert]

Re : User form...Récalcitrant...

Bonjour Paul, Michel, bonjour le forum,

N'aurais-tu pas dans l'événement Initalize de cette UserForm donné des instructions de dimension :

Me.Width = ...
Me.Height = ...

qui modifieraient la taille ?

 

[Staple1600]

Re : User form...Récalcitrant...

Bonjour

Malheureusement je ne peux pas le dissocier du reste de mon appli..

Si tu peux en exportant ton Userform


Dans l'éditeur VBE (--> ALT+F11)

Faire Fichier/Exporter --> Sélectionner l'userform


Deux fichiers seront générés
UserForm1.frm
UserForm1.frx


Ensuite , (stp) ,zippes le *.frm et postes le sur le forum.

 

[news]

Re : User form...Récalcitrant...

Bonjour,

quelques explications à un USF :
La propriété StartUpPosition définit la position des USF lors de l'affichage.

Manual 0 Aucune valeur initiale n'est indiquée.
CenterOwner 1 Centre l'objet UserForm
CenterScreen 2 Centre l'objet par rapport à l'écran.
WindowsDefault 3 Place l'objet dans l'angle supérieur gauche de l'écran.

2 exemples d'affiche d'un USF :

Private Sub UserForm_Initialize() 'userform est centré
Me.StartUpPosition = 2
End Sub

Private Sub userForm_Initialize() ' affiche USF en haut et dans le coin droit de l'écran.
With Me
.startUpPosition = 3
.Left = Application.Width - Me.Width
End With
End Sub


pour avoir plus de place pour afficher et bien afficher le texte au USF,
met le code suivant, peut-être ceci va le résoudre:

Private Sub UserForm_Activate()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

bonne journée encore,

 

[paul87]

Re : User form...Récalcitrant...

Bonjour à tous et bonjour le Forum,
😡 suis confu 😡
je n'avais pas vu le

Me.Width = 392

placé dans l'initialize ....
😡suis désolé du temps que je vous ai fait perdre pour une question si bete!!!😡