Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Dimensionner et ajuster un Userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ValentinLF
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

ValentinLF

XLDnaute Nouveau
Bonjour,

Petit problème que je n'arrive pas à résoudre 😕
J'ai un Userform qui à une taille de 840 * 595, qui est approximativement une feuille A4.

J'aimerais dans un premier temps (Question peut être bête..) comprendre les unités inscrite lors du dimensionnement des éléments dans les propriétés. Est-il possible de les comparer à des centimètres par exemple ?

Dans un second temps, mon userform actuellement dimensionné n'est pas affiché entièrement sur l'écran lorsque je le lance (La moitié est caché en bas). C'est pourquoi j'aimerais trouvé un code qui permet d'ajuster automatiquement mon userform à l'écran, en gardant également les dimensions des boutons, comboBox, etc proportionnels à cet ajustement.

Je vous remercie d'avance pour vos réponse !
 
Trier par date Trier par votes
Re : Dimensionner et ajuster un Userform

Salut ValentinLF,
Concernant ta première demande :
J'aimerais dans un premier temps (Question peut être bête..) comprendre les unités inscrite lors du dimensionnement des éléments dans les propriétés. Est-il possible de les comparer à des centimètres par exemple ?
Cliquez pour agrandir...
La valeur est exprimée en TWIPS. En faisiant des recherches sur le Net, tu auras toutes les réponses à cette demande
Concernant ta deuxième demande : Voir le fichier joint dans lequel, j'ai dessiné un formulaire simple, sans code si ce n'est la fermeture.
En cellule G2, un choix possible entre GRAND et PETIT pour faire des tests.
@+ Lolote83
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Dimensionner et ajuster un Userform

Bonjour à tous

pour la compatibilité svp !
encore que ce n'est pas tout à fait ça au point de vu variable exemple avec GetDC:

' Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
' Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr

encore que, voir avec Win32 et Win 64 ... !? exemple
#If VBA7 Then 'VBA7 depuis office 2010
Dim handle As LongPtr '#####
'1 api FindWindowA pour trouver et identifier le handle de la fenetre(identifiant de la fenetre)
'2 api SetWindowLongA pour appliquer le nouveau style à la fenetre (userform)
#If Win64 Then
Private Declare PtrSafe Function FindWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SWLA Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else 'Win32
Private Declare PtrSafe Function FindWA Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
private Declare PtrSafe Function SWLA Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#End If
#Else . . .
. . .


Code: 
#If VBA7 Then  'VBA7 depuis office 2010
Private Declare PtrSafe Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare PtrSafe Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Sub ReleaseCapture Lib "User32" ()
#Else
Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
#End If
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Dimensionner et ajuster un Userform

Salut à tous,
Merci RolandM pour la précision entre Win32 et Win64.
Effectivement, j'avais oublié de précisé ce point.
En fait, je me suis inspiré d'un ancien code sur un vieux formulaire en Win32 que j'ai adapté ici (en Win64) pour faire des tests.
Merci pour cette précision
@+ Lolote83
 
Vote positif 0 Vote négatif
Re : Dimensionner et ajuster un Userform

Merci à tous les deux déjà pour m'avoir éclairé un peu sur mon problème.

J'ai testé le code sur mon propre fichier et effectivement il fonctionne très bien.

Cependant, l'idée n'est pas particulièrement d'ajuster le userform en plein écran mais de l'ajuster selon sa taille de départ pour qu'il soit entièrement visible sur l'écran. Avec ce code, mon userform qui a au préalable une taille A4 perd son format quand je l'affiche en grand.

L'idée serais de pouvoir dézoomer le userform et qu'il soit totalement visible à l'écran tout en conservant ses proportions.

J'espère que je suis assez clair dans mes explications
 
Vote positif 0 Vote négatif
Re : Dimensionner et ajuster un Userform

Salut ValentinLF, RolandM,
Tu dis :
Cependant, l'idée n'est pas particulièrement d'ajuster le userform en plein écran mais de l'ajuster selon sa taille de départ pour qu'il soit entièrement visible sur l'écran
Cliquez pour agrandir...
alors que dans ton post#1 tu disais :
C'est pourquoi j'aimerais trouvé un code qui permet d'ajuster automatiquement mon userform à l'écran, en gardant également les dimensions des boutons, comboBox, etc proportionnels à cet ajustement.
Cliquez pour agrandir...
Peut être un élément de réponse ici de notre ami RolandM https://www.excel-downloads.com/threads/usf-plein-ecran-sur-toutes-les-tailles-decran.106021/ (post#5).
A adapter à ton besoin.
Perso, je n'y comprends pas grand chose au code (j'essaye d'adapter en fonction de mes besoins), RolandM te donnera peut être toutes les astuces requises pour arriver à tes souhaits.
@+ Lolote83
 
Vote positif 0 Vote négatif
Re : Dimensionner et ajuster un Userform

Oui désolé, en effet j'ai relu mon premier post et je me suis aperçu que je n'avais pas bien expliqué mon problème.

Cependant vos réponses même si elles ne correspondent pas parfaitement à mon attente, m'on permis de découvrir des fonctions intéressantes ce qui m'a été quand même bénéfique ! 😀
 
Vote positif 0 Vote négatif
Re : Dimensionner et ajuster un Userform

re

@Valentine,
si tu veux j'ai une routine sans appel api qui permet de redimensionner un userform à n'importe quelle résolution
ou de mettre plein écran !

si tu veux joindre ton classeur (sans données perso) je te l'incorpore !?
 
Vote positif 0 Vote négatif
Bonjour à vous tous,
j'ai vu avec intérêt ce que fait le code pour ajuster un USF. Dans mon cas j'ai un USF qui contient une ListView et cette ListView malheureusement n'est pas concernée par l'ajustement.
Comment affecter l'ajustement aussi sur la ListView. Si vous avez un exemple je suis preneur car je galère pour utiliser mon appli sur d'autres configurations (taille écran et résolution différentes).
Merci beaucoup pour aide, j'ai vraiment besoin d'un coup de main pour cette satanée ListView
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour @XLMan

Je te joins un ficher avec le zoom.
tu mettras ce que tu veux dedans.
quand tu feras varié le zoom la position d'origine s'affichera en rouge.
Ce code à l'origine est maître "TI", j'ai juste fait quelques aménagements.
Pour ma part je n'utilise plus la ListView, une mise ajour les à rendu inopérant.
J'ai tout refait avec des Combo et ListBox.
Peut-être que chez toi ce sera bon.
Amicalement

Jean_Paul
 

Pièces jointes

Vote positif 0 Vote négatif
Hello,
La Listview fonctionne chez moi avec toutes les versions d'Excel que j'ai ( Excel 2007, Excel 2010, Excel 2016 32 bits, Excel 2021 64 bits) .
Quelle version d'Excel possèdes-tu et sous quel O.S ?
D'autre part en pièce jointe un classeur avec un formulaire contenant une ListBox et une ListView.
Le souci avec le zoom c'est que la ListView est en mode Scroll, c'est à dire que le zoom ne fonctionne pas à l'intérieur , ce sont les scrollers qui fonctionnent :




Ami calmant, J.P
 

Pièces jointes

Vote positif 0 Vote négatif
@jurassic pork, @VIARD,
Merci à vous pour vos réponses.
Votre proposition de zoom est intéressante mais je souhaite que l'appli s'adapte à plusieurs PC/écrans, il faut donc que l'utilisateur fasse le zoom lui-même et ce à chaque fois qu'il ouvrira le fichier Excel.
@jurassic pork écrit : "Le souci avec le zoom c'est que la ListView est en mode Scroll, c'est à dire que le zoom ne fonctionne pas à l'intérieur , ce sont les scrollers qui fonctionnent" donc si je comprends bien, il n'est pas possible que la ListView j'ajuste de la même façon que le UserForm.

Est-ce que je dois abandonner l'idée de pouvoir ajuster la ListView en même temps que le UserForm ?
Merci encore pour votre aide
Ma version Excel est 2021 sous Windows10
 
Vote positif 0 Vote négatif
jurassic pork à dit:
La Listview fonctionne chez moi avec toutes les versions d'Excel que j'ai ( Excel 2007, Excel 2010, Excel 2016 32 bits, Excel 2021 64 bits) .
Cliquez pour agrandir...
Chez oim la ListBox blanche zoome, et la ListView jaune s'élargie mais ne zoome pas.



XLMan à dit:
Est-ce que je dois abandonner l'idée de pouvoir ajuster la ListView en même temps que le UserForm ?
Cliquez pour agrandir...
C'est surtout l'idée de modifier le UserForm en fonction du PC qu'il faut abandonner : il n'y a rien de plus agaçant que ça pour l'utilisateur ! 😅 😉
 
Vote positif 0 Vote négatif
@TooFatBoy à écrit :
"C'est surtout l'idée de modifier le UserForm en fonction du PC qu'il faut abandonner : il n'y a rien de plus agaçant que ça pour l'utilisateur"

Désolé TooFatBoy mais je ne comprends pas la remarque. Justement je me mets à la place de l'utilisateur et je souhaite pouvoir lui offrir la version du programme développé sur mon ordinateur avec ma résolution d'écran sur son ordinateur avec surement une définition différente où il pourra lire sans scroller dans la Listview comme pour moi ce qui est plus fun pour lui.

Ma question était juste de savoir si ce que que je vois en entier (USF plus ListView) sur mon ordi sans Scroller était possible à programmer génériquement pour être diffusable sur d'autres PC qq soit la config future utilisée. A priori ce n'est pas possible !
 
Vote positif 0 Vote négatif
Normalement l'utilisateur règle la résolution de son affichage pour que les textes soient lisibles pour lui.

OK, admettons qu'il ne puisse pas lire ce qui est écrit à droite sans scroller.
Donc toi tu veux afficher en plus petit pour qu'il voit ce qui est à droite sans avoir besoin de scroller ?
Mais du coup ça risque de devenir illisible pour lui car écrit trop petit..
Mais peut-être n'ai-je pas bien compris. 🙁


ps : ce qu'il fallait surtout retenir c'est que chez moi comme chez toi, la ListView jaune s'élargie mais le texte garde la même taille.
Et là, je comprends l'intérêt de la modification de la largeur de la ListView, puisque ça permet d'afficher plus de colonnes sans modifier la taille du texte.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…