Ajuster un userform à la taille de l'écran

missLaura

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

Merci <3 <3
 

GClaire

XLDnaute Occasionnel
Supporter XLD
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.

VB:
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

XLDnaute Occasionnel
Supporter XLD
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
 
Dernière édition:

GClaire

XLDnaute Occasionnel
Supporter XLD
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
 

Pièces jointes

  • Livraison paniers-V05-06.xlsm
    342.3 KB · Affichages: 11
Dernière édition:

GClaire

XLDnaute Occasionnel
Supporter XLD
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, :rolleyes::rolleyes:

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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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 :rolleyes:

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
 

Pièces jointes

  • Livraison paniers-V patricktoulon.xlsm
    323.8 KB · Affichages: 22

GClaire

XLDnaute Occasionnel
Supporter XLD
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

XLDnaute Occasionnel
Supporter XLD
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
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
ben il fonctionne non pourquoi tu veux repositionner
demo4.gif
 

cp4

XLDnaute Barbatruc
Bonjour à tous, le fil, le forum,

j'utilise ce code depuis un bout de temps
VB:
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.
 

Discussions similaires

Réponses
3
Affichages
182
Réponses
4
Affichages
437

Statistiques des forums

Discussions
314 736
Messages
2 112 319
Membres
111 506
dernier inscrit
Souleymane@