Ajuster un userform à la taille de l'écran

[missLaura]

Bonjour,
Quelqu'un saurais comment faire pour ajuster un userform à la taille de l'écran ?

Merci <3 <3

 

[patricktoulon]

de rien a+

 

[GClaire]

CC

Je viens de faire un test sur la deuxième option.

Cela me dit que la vairiable "ctrl" n'est pas définie.

C'est bizard car chez toi cela fonctionne sans.

Private Sub UserForm_Activate()

    For Each ctrl In Me.controls
        ctrl.Tag = ctrl.Tag & ctrl.Top & ";" & ctrl.Left & ";" & ctrl.Width & ";" & ctrl.Height
        Select Case TypeName(ctrl)
        Case "TextBox", "Label", "CommandButton", "Frame", "MultiPage", "ListView", "ComboBox", "CheckBox", "OptionButton"
            ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size
        End Select
    Next
    SetWindowLongA fwa(vbNullString, Me.Caption), -16, &H94CF0080
    showw fwa(vbNullString, Me.Caption), 3

End Sub

Une idée?

Merci, G'Claire

 

[GClaire]

Re

je viens de rajouter dans chaque procédure

Dim ctrl As Control

cela ma demandé la vaiable "Tbl', je l'ai déclarée

et la message , histoire d'acivex.

Fermé et réouvert, cela a fonctionné, j'ai un petit bug sur un bouton et j'ai 6 texbox qui ont disparus

Le nom est comme cela : Txt_PRODUIT_20, es-ce le soucis

je regarde.

Merci, G'Claire

 

[patricktoulon]

re
donne moi ton userform

 

[GClaire]

re
donne moi ton userform

Tu veux quoi le fichier ou juste l'userform?

Merci, G'Claire

 

[patricktoulon]

comme tu veux

 

[GClaire]

comme tu veux

Ok, Merci.

Le voici.
1) Page normale ou l'on peut créer un client, la a priori
a) Dans la frame coordonnées
Manque les boutons pour créer client
est 1 label et 1 textbox

2) On clique sur un client
a) Bouton annuler, n'est pas bon
b) Plus de texbox dans le frame Produit

3) Double clqie sur un client.
a) Pareil bouton annuler pas bon
2) J'ai perdu mes boutons dans la frame Coordinnées.


Merci

 

[patricktoulon]

puré j'ai un écran 107 cm et l'userform est déjà trop grand au départ
réagence tout ca veux tu
c'est impensable de travailler avec ça
je regarde demain il y a beaucoup trop de travail et tu a des boutons en double

 

[GClaire]

Hello.

A ce point? Je pensais assez bien l'agencement et a mon collègue cela lui a plus (remarque au départ il n'avait rien), lol.

Aprés la taille, il faut que mon pote y vois quand même, il n'est plus tout jeune,

Pour les boutons je ne vois pas ceux qui sont en double, enfin si, les "ANNULER", mais je le fais de la sorte car je ne sais pas faire autrement.

Aprés ne te fait pas du boulot(Ca n'est pas le but), cela fonctionne comme cela, c'est plus que je voulais juste ajuster l'UserForm a l'écran.

Merci.

Suis tout tristounet moi.

Merci, G'Claire

 

[patricktoulon]

re

Aprés la taille, il faut que mon pote y vois quand même, il n'est plus tout jeune

réfléchi une seconde
tu veux adapter a l’écran
donc la taille max doit être l’écran pas la peine de le faire énorme au départ puisque ma fonction adapte tout
en l'etat pour le travailler en mode édition c'est un calvaire
de main je réduirais tout et il s'adaptera a n'importe quel écran

 

[patricktoulon]

bonjour
bon j'ai revu un peu tout ça
tu avais des repositionnement de boutons codé en dur
comment veux tu que ça fonctionne avec un redimensionnement dynamique

ce la dit sincèrement je suis pas sur que d'avoir toutes les colonnes soit utile mais bon voila
tu a ton userform qui s'adapte a l’écran

 

[GClaire]

Hello.

Zut, n'a pas eu la notification du nouveau message.

C'est sur que ca n'est pas de la haute voltige, ce que j'ai fais.

A la base je n'avais pas pensais faire ce redimensionnement.

C'est pas mon taff, on va dire que je bricole le VBA et ne maitrise pas grand chose.

Je regarde de suite.

Merci beaucoup.

G'Claire

 

[GClaire]

Patrick, Le fofo.

J'ai fais des tests avec le fichier.

Je pense bien compliqué, car étant donné que je suis partie sur certaines fonctions d'affichage, qui aurait pu être autre si j'avais prévue, boutons qui bougent comme tu disais pas stop peut être, frame pas toujours de la bonne taille etc..., la moindre modification est compliqué a mettre en oeuvre, car il faut y aller a la mano pour repositionner.

Je laisse tombé cela, car c'était pas besoin de base, plus du visuel qu'autre chose.

Je ne pensais pas qu'il y aurait tant d'influence sur l'ensemble.


J'espère que tu auras pas passé trop de temps dessus.

Désolé.

Merci, G'Claire

 

[patricktoulon]

re
ben il fonctionne non pourquoi tu veux repositionner

 

[cp4]

Bonjour à tous, le fil, le forum,

j'utilise ce code depuis un bout de temps

Private Sub UserForm_Activate()
   Dim ctl As Control, ratioW As String, ratioH As String
   Set UserActif = Me
   ratioW = Application.Width / Me.Width
   ratioH = Application.Height / Me.Height
   Me.Left = 0
   Me.Top = 0
   Me.Width = Application.Width
   Me.Height = Application.Height
   For Each ctl In Me.Controls
      ctl.Left = ctl.Left * ratioW
      ctl.Top = ctl.Top * ratioH
      ctl.Width = ctl.Width * ratioW
      ctl.Height = ctl.Height * ratioH
      ctl.Font.Size = ctl.Font.Size * ratioH
   Next
End Sub

Est-ce que ça te va? En cas moi j'en suis satisfait.

@patricktoulon

Bonne soirée.