Re : Redimensionnement d'un userform
bonjour à tous
voir sans API toujours compatible !
adapte à la résolution avec position au choix ! ((voir le module !)
possibilité plein écran !
voir code simple dans code userf
mettre la résolution d'origine de vos userforms (j'ai mis 1600,900) à vous de voir
celui-ci se sert de zoom j'ai le même en redim mais zoom est plus souple et plus fiable !
'Position="" ou "centre" "haut" "<haut" "haut>" "bas" "<bas" "bas>"
'... Me, ResolutionX d'origine, ResolutionY d'origine (création de l'userf)
Private Sub UserForm_Initialize()
UserformZoom Me, 1600, 900, "centre" '< pour zoom à la résolution position centre
'UserformZoomEcran Me '< pour zoom plein écran limité à la Largeur ou la Hauteur
'UserformZoomEcran Me, True '< idem userf tout écran sans les ctrls pour ne pas déformer
End Sub
EDIT:
voir avec redim et resize de patricktoulon(améloré!)