Discussion :

[florian30]

Salut tout le monde.

Tout d'abord je veux saluer le travail effectué (merci à Seb92400).

Je fais moi même une base de donnée sous Access 2003 et j'ai besoin d'une compatibilité entre les résolutions. En effet ma base va se trouver sur un réseau et donc sur des moniteurs allant du 800*600 aux 1680*1050.
Mes objectifs proches sont un redimensionnement automatique des formulaires à leur ouverture ainsi qu'une maximisation pour qu'il prennent tout l'écran.
J'y suis arrivé à peu près en créant ma base dans la résolution la plus basse et en utilisant plusieurs codes.
Celui ci: http://access.jessy.free.fr/htm/DownLoad/AutoResize.htm
et celui là: DoCmd.Maximize

Là commencent les soucis!!!
Pour que ma base soit bonne, il faut qu'elle soit fluide, ce qui n'est pas le cas. Lors de l'ouverture d'un formulaire, la fenêtre clignote pendant 1 seconde avant de s'afficher.
Ensuite, j'ai un lien OLE qui est très long à charger, et si je fais une image de mon classeur excel ça va plus vite mais les polices s'agrandissent très mal (sérieux dilemme).

J'aimerai bien résoudre ces problèmes mais je suis un débutant en VBA.

J'espère que vous pourrez m'aider en me faisant part de vos idées...

Merci d'avance

[Titwou]

Salut Florian30!

Pas l'impression que il y ait grand monde par ici!

Je suis pas un crack mais pour les photos, il y a un lien pas mal à regarder...

http://cafeine.developpez.com/access/tutoriel/photos/

Les photos ne sont pas stockées ds la base de données ce qui allège pas mal!

[florian30]

Salut Titwou,

C'est super sympa de prendre le temps de me répondre

Cependant je n'ai pas due être très clair dans mon explication.
L'image que je veux afficher est insérée au formulaire et s'ouvre donc en même temps que lui. Je voulais savoir si il n'y avait pas un format d'image qui, avec un code de redimensionnement, puisse redimensionner ses polices. Je parlais du format OLE car mon image n'est autre qu'un impr. écran d'un fichier Excel. Mais comme j'ai dis dans le message précèdent, un fichier OLE est très long à charger...

Je te remercie encore une fois et j'espère que quelqu'un pourra résoudre mon problème.

[florian30]

J'ai trouvé une solution pour les images. Je les ai mises sous le format PNG qui améliore un peu la qualité par rapport aux bitmaps. C'est pas extraordinaire mais je prends volontiers.
Il me reste encore le problème de l'affichage du formulaire à son ouverture. Le clignotement d'une seconde est un peu gênant et je voudrais m'en débarrasser pour que ma base soit quasi parfaite.
J'en appelle à toute votre expérience...

Merci d'avance.

[curt]

Bonsoir à tous,

Le code (superbe !!) donné ici fonctionne correctement sur mon formulaire, mais, chose étrange, j'ai un soucis sur un Sous-formulaire en feuille de données qui ne m'affiche pas 10 contrôles (date) sur les 24 présents. Les largeurs de ces contrôles passent à 0 et du coup ne sont pas affichées.
Pour les autres contrôles, pas de soucis, ça fonctionne !!!
J'ai bien mis le code

Code :

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

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

sur le sous-formulaire... rien n'y fait.
Quelqu'un a déjà rencontré ce phénomène ??
En tout cas, bravo à Seb pour ce code.

Curt

[fevec]

Bonjour,
Je viens de tester le code sous Access97.

compilation Ok,
mais à l'utilisation du code, j'ai le message
ModResolutionProResolution448 Argument nommé introuvable

Quelqu'un d'autre a-t-il testé sous Access97.

Cordialement,
fevec

[DMboup]

Bonjour

J'ai beaucoup de bug avec ce code ci-dessous

Code :

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

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

Par contre avec celui de ce lien ca marche trés bien et je suis même arrivé à l'appliquer sur les sous formulaires en mode continue.

Pour les feuilles de données ca ne marche pas chez moi.
Et pour terminer il ya un clignotement de l'écran au moment du redimensionnement qu'il faut peut être arriver à stabiliser.

[Ordonalor]

bonjour merci pour ce code

Mais voilà je suis un débutant voir un novice de la programmation et je cherche a intégrer ce code a mon formulaire mais voila je ne trouve pas:
- la propriété "sur ouverture" du formulaire

Merci d'avance pour l'aide

Ordonalor

[micniv]

Bonjour ,

la propriété "sur ouverture" du formulaire

c'est en fait un 'évènement (donc dans l'onglet Evenements des prorpriétés du formulaire :
le code VBA est nommé :

Code :

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

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

[Ordonalor]

Merci beaucoup j'ai compris grace a vous
Mais voila je fonctionne avec Access 2007 et une fois que j'ai fait tous ce que vous avez indiqué, mon ordinateur ne réalise aucune modification il n'y a pas de redimensionnement.

Comment puis-je faire???

voici le fichier: [Lien sur feu Megaupload] si vous voulez voir comment il est fichu

Merci d'avance

Ordonalor

[karidrou]

Bonjour,
Tout d'abord un gd bravo pour ce code. Je l'ai un peu testé car intéressée pour l'utiliser. Sur un premier formulaire avec un sous-formulaire ca fonctionne très bien (on applique proResolution au sous-formulaire).
Après j'ai une zone de liste déroulante où l'on choisi un nom ce qui ouvre un autre formulaire (avec des onglets, sous formulaire...). Et la pb, impossible d'appliqué le code sur ce formulaire, j'ai comme erreur : 9: l'indice n'appartient pas à la sélection !!
Je ne voit pas de quoi il parle, quel indice ??
Est-ce que qq'un à une petite idée ???
Merci

[karidrou]

Bonjour,

Donc après recherche, l'erreur survient parce que j'ai 9 onglets... Si je supprime l'onglet n°2 plus d'erreur mais si je rajoute une page, de nouveau cette erreur d'indice (et tjs sur l'indice n°2 de l'onglet ???)
J'ai regardé le code mais j'ai pas trouvé comment régler le pb
Une idée ??
Merci

[michelbrunet]

Bonjour
Votre module m’intéresse beaucoup, mais pouvez vous m'en dire un peu plus sur sa méthode d'intégration. Sur mon application, j'ai plusieurs formulaires avec des gros boutons qui appellent eux même d'autres formulaires.
Merci de m'apporter quelques éclaircissements.
Cordialement,
Michel

[gwenagan]

Bonjour à tous,

J'ai demandé de l'aide il y a quelques jours pour adapter mes formulaires à tous les écrans quelques soient les résolutions.
On m'a indiqué ce poste et je certifie que cela marche parfaitement bien.

Mais pourquoi mettre des ratios comme ci-dessous ?

Code :

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

1
2
3
4
5
 RatioX = FactRedimX / FactRedimY
    RatioY = FactRedimY / FactRedimX
    If (ResolutionActuelleX <> ResolutionInitialeX) Or (ResolutionActuelleY <> ResolutionActuelleY) Then
        If RatioX <= 1 Then FactRedimX = FactRedimX * 1.1
        If RatioY <= 1 Then FactRedimY = FactRedimY * 1.05

alors que ça marche dans tous les cas de figures avec des ratios avec :

Code :

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

1
2
3
ResolutionActuelleY) Then
        If RatioX <= 1 Then FactRedimX = FactRedimX * 1.0
        If RatioY <= 1 Then FactRedimY = FactRedimY * 1.0

Bonne journée à tous et à bientôt.

[ale42]

Salut a tous,

J ai récemment développé une base de données pour du suivi d actions. Les utilisateurs du programme n' ayant pas les mêmes résolutions d’écran, j ai alors utilise ce code.
Alors tout d'abord, seb92400 merci. Ce code est formidable!
Le code fonctionne a merveille pour la vingtaine d utilisateurs de la base de données. Cela dit je rencontre un problème avec un des membres du groupe. Le redimensionnement ne prend pas effet sur son ordinateur. J ai beau chercher mais je commence a m arracher les cheveux.
Auriez vous une idée, une configuration a changer sous Access (2007), un morceau de code a modifier,... pour résoudre ce problème?

Merci d avance,
Cordialement

[ensascience]

Bonsoir,

pouvez vous poster le code corrigé celui la apres complication et test sur mon application me donne l'erreur 2113 the value you entred is not valid
et le taille de mon formulaire est encore plus grande
j'utilise Access 2013 et 1600x900 comme resolustion

Merci

[Akre6]

Bonjour,
Merci pour la contribution, ça semble être un boulot énorme et de qualité.

J'ai un petit soucis, je travaille sur le developpement d'un outil access. J'ai un formulaire (que j'ai pas moi-même crée mais quelqu'un d'autre) qui est très volumineux, affiche ou non certaines parties du formulaires en fonction de l'avancement de l'opérateur sur le formulaire (par exemple tant qu'il appuye pas sur un bouton "REX", la partie "REX" ne s'affiche pas).

L'ouil sera porté sur plusieurs types d'écrans donc je me suis tournée vers ce module, mais ça marche toujours pas. Je présume que c'est du fait que des ces sous formulaires. Je voulais savoir s'il existe une solution, et si vous avez une idée ou la solution ?

[Ludwik]

Bonsoir j'ai essayé d'utiliser le programme proposé, j'ai voulu qu'un formulaire soit redimensionné automatiquement lorsque l'on utilise un pc portable.

J'ai activé 'proResolution Me' dans la procédure VBA Form_Open

Le message d'erreur de compilation est apparu me précisant Sub ou Function non définie sur la ligne suivante:

Code :

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

 MsgBoxPlusErreur "modResolution", "proResolutionFD_Exit", CStr(Err.Number), Err.Description

Pour continuer mes essais j'ai supprimé momentanément cette ligne de code

J'ai redéfini la résolution de l'écran ( correspondant à celle du PC fixe)

Code :

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

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

J'ai vu sur mon pc fixe le fond du formulaire augmenter en largeur mais pas les différents champd de liste .
J'ai augmenté le fomulaire en hauteur de façon à ce qu'il dépasse de l'écran, à l'ouverture du formulaire celui ci ne sais par réajuster .

voilà mon premier point d'investigations sur le sujet merci pour votre aide sur un sujet délicat

[electrosat03]

Salut à tous,

Je viens de découvrir ce code par hasard, je pense qu'il est pas mal, mais j'ai essayé avec mon aplli en Access 2010 et c'est pas du tout concluant pour moi.

Je pense qu'il faudrait que je regarde peut-être pour le ratio et autre.
Mais c'est très bien fait, peut-être un jour quand j'aurai un peu plus de temps j'y regarderai de plus près.

Ce qui serait pas mal c'est d'avoir un code qui centre tous les contrôles par rapport à l'écran mais sans changer la résolution.
Un petit écran c'est centré et si ça tourne sur un plus large et ben c'est centré aussi.

Avoir un code générique pour tout les forms et contôles sans devoir chercher à centrer les contrôles un par un.

A+

[ArthurDeLyon]

Voilà... Je continue mon monologue !!!

Je viens de mettre le code qui permet de redimensionner également les colonnes des formulaires feuille de données (avec un 'tit bug que je ne comprends pas, tout est écrit dans le 1er message)...

Ce n'est pas parfait, je pense qu'il faudrait écrire une 'tite fonction placée dans le Form_Open des formulaires feuille de données afin de gérer la largeur des colonnes en pourcentage... Ou mieux, d'écrire la largeur des colonnes en vba (une ligne pour chaque colonne)..... Mais, bon, ça à déjà le mérite d'être efficace à 95%... ........ Ouai, ouai, ouai... j'en vois déjà qui disent :"Mouiiiii, et les 5% ??? "

Bref, je vous laisse juger, essayer, critiquer, m'insulter, et même me bannir de ce forum !!!!

Bonjour,

Avec quelques années de retard as tu trouver une solution fiable au redimensionnement des formulaires et autres objets???
En effet, etant confronté a un souci de redimensionnement en fonction de l'ordinateur utilisé, je suis à la recherche d'une solution technique...

Merci