Discussion :

[zire478]

Bonjour,

J'aimerais que tous mes formulaires et autres éléments s'adaptent automatiquement a la taille de différents écrans afin que toutes les données se trouvent sur l'écran et ainsi éviter le défilement vertical et horizontal.

Est ce possible ?

Quels sont les réglages a faire ?

BAV.
Olivier.

[Jeannot45]

Voici une discussion qui pourrait t'ouvrir quelques pistes : ajuster automatiquement un formulaire en fonction de l'ecran

Bonne lecture

[User]

Bonjour,

Si vous souhaiter adapter la taille de vos objets et contrôles en fonction de la résolution d'écran, alors
Je pense que Jean , voulait parler de ce lien :

https://www.developpez.net/forums/d3...n-formulaires/

Très belle contribution, que j'ai déjà eu l'occasion d'utiliser.

Cdlt

[zire478]

merci bcp mais pourriez vous m'aider a inclure ce code dans mon fichier access.
Dois tout copier au même endroit ?
Quelles sont les étapes pour installer ce code vba ?

Merci d'avance.
Olivier.

[User]

Bonsoir,

Je reprends les conseils de l'auteur pour sa mise en place :

Copier la totalité du code dans un module standard, le compiler et l'enregistrer, puis ensuite pour son utilisation :

'
'Ecrire 'proResolution Me' dans la procédure VBA Form_Open du formulaire à redimensionner...
'
'Ecrire 'proResolutionFD Me' dans la procédure VBA Form_Open du formulaire feuille de données...
'
'Ecrire 'proResolutionFD_Exit Me.NomDuContrôleSousFormulaire.Form' dans la procédure VAB Form_Close
'du formulaire à redimensionner (celui contenant le(s) sous-formulaire(s) en feuille de données).
'A écrire autant de fois qu'il y a de sous-formulaires en feuille de données...
'
'Attention à bien dimensionner les colonnes au départ, sans aucun redimensionnement, et à prévoir une
'marge car l'ascenseur s'élargit lorsqu'on descend en résolution...

Attention toute fois si vous êtes sur une version d'office 64_bits, il faudra adapter le code concernant les déclarations et l'utilisation des api.

Bon courage

[zire478]

bonjour,
malheureusement je ne suis pas informaticien et trop novice avec le code vba...je ne sais pas ce que vous entendez par module standard et adaptation si j'utilise en 64b...snif..seriez vous aimable de m'aider svp ?

[User]

Regardez cette base, vous avez un module standard nommé M_AjusterFormulaire,
et un formulaire F_FormulaireAjuste, avec le code sur ouverture du formulaire pour l'ajuster à la résolution de l'écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
    proResolution Me
End Sub

Dites moi si ça fonctionne sur votre système.

Cdlt,

[zire478]

Bonjour,
Quand j'essaie d'ouvrir votre fichier "base exemple" voici l'erreur de compilation que j'ai:



Comment résoudre cela ?
BAV.
Olivier.

[zire478]

j'ai ajouté a chaque fois:
Declare PtrSafe Function...

[zire478]

désolé mais le formulaire ne s'ajuste pas...j'ai une barre de défilement verticale et aussi horizontale..

[User]

Bonjour,

Comme ça c'est très compliqué de voir ce que vous avez fait.

Peut-être poster votre code ou la base sans les données.

Il faut que sur l'écran d'origine tout tienne dans le formulaire.

et il faut mettre le code à l'ouverture de chaque formulaire.

Cdlt,

[zire478]

Bonjour,

J'ai juste téléchargé votre fichier "base_exemple" et ajouter "Declare PtrSafe Functio"
quand j'ouvre le formulaire il ne s'adapte pas aux écrans de mes 2 pc (un pc fixe et 1 portable).

J'aimerais d'abord régler cela dans votre fichier avant d'inclure ces codes dans mon fichiers.

Pourriez vous m'aider a solutionner cela dans votre fichier ?

BAV.
Olivier S.

[User]

Bonjour,

J'ai adapté le module pour le 64 bits, mais je n'ai pas le moyen de tester chez moi

Cdlt,

[zire478]

Bonjour,

Je viens de tester,

Je constate que le zoom est différent du mode création et du mode formulaire.
Mais le formulaire ne s'adapte pas au différents écrans.
J'ai d'origine une barre de défilement verticale.

Puis j'ai agrandi le formulaire pour placer ces données en horizontale.
J'ai une barre de défilement horizontale qui apparaît aussi.

Savez vous résoudre cela ?
J'aimerais que le formulaire s'adapte a tous les écrans afin de ne jamais avoir de barre de défilement.
Je suppose que de votre côté c'est le but recherché également.

BAV.
Olivier.

[User]

Bonjour,

L'idée du module c'est vraiment d'adapter la taille des contrôles du formulaire à l'écran :

Au début du module vous avez la définition de votre écran initial à préciser, l'écran sur lequel vous avez créez la base :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
'
' --------------------------------------------------------------
' Pour retrouver caractéristiques écran
' --------------------------------------------------------------

Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10
Private Const HWND_DESKTOP = 0

Private Const ResolutionInitialeX = 1024
Private Const ResolutionInitialeY = 768
...

Voilà tout ce que je peux faire, adapter la taille des objets à la définition de l'écran..

Il va utiliser un ratio entre la résolution initiale et la nouvelle résolution.

Cdlt,

[zire478]

Bonjour,
J'ai intégré ce module dans mon fichier access en changeant ces 2 lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Const ResolutionInitialeX = 1920
Private Const ResolutionInitialeY = 1080

J'ai ajouté "proresolution Me" a l'ouverture de mon formulaire d'accueil.

Voici mon formulaire d'origine (copie écran complet)



Mais quand je vais sur mon pc portable qui a une résolution de 3200*1800, je vois ce formulaire comme si j'avais zommer:



Que dois je faire ?

Merci d'avance.
Olivier S.

[User]

Pouvez-vous joindre une base avec juste votre formulaire d'accueil et le module d'adaptation à l'écran, que je vois ce que vous avez fait..

Cdlt,

[zire478]

bonjour, je peux vos envoyer mon fichier complet mais est ce possible en privé afin qu'il ne se retrouve pas sur le net ?
BAV.
Olivier.

[zire478]

faut il mettre cela aussi dans des sous formulaires ?

[User]

Pour les sous-formulaires en mode feuille de données,
Il faut mettre se code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

proResolutionFD Me ' dans la procédure VBA Form_Open du formulaire feuille de données...

'
Et su fermeture du sous-forme en mode feuille de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
proResolutionFD_Exit Me.NomDuContrôleSousFormulaire.Form ' dans la procédure VAB Form_Close
'du formulaire à redimensionner (celui contenant le(s) sous-formulaire(s) en feuille de données).
'A écrire autant de fois qu'il y a de sous-formulaires en feuille de données...

Cdlt,