XL pour MAC Excel VBA agrandir réduire Userform sur PC et sur MAC

JCCool · 20 Juillet 2020

Bonjour,
Je suis débutant en programmation VBA et sur le Forum, aussi, si je fais quelques impaires je vous demande par avance de bien vouloir m'en excuser.
J'ai fait pour un ami un petit programme de gestion d'abonnements que j'ai développé sur un PC avec la possibilité d'agrandir ou de réduire dynamiquement la taille du Userform (boutons en haut à droite et flèche) . Bien entendu son associé à investi dans un MAC et bien-sur l'appel aux librairies "USER32" bug sur le MAC. Quelqu'un pourrait-il m'aider pour réaliser cette fonctionnalité sur un Mac. L'idéal serait de trouver un système qui soit commun aux 2 plateformes.
Dans tous les cas, merci d'avance à tous ceux qui vont se pencher sur une solution.

VIARD · 20 Juillet 2020

Bonjour JCCool, Patrick et à tous

En voici un autre utilisant SpinButton
de maître TI

VB:

Const Largeur As Long = 367
Const Hauteur As Long = 400
Dim Coef As Long
Dim ActionSpin As String
Dim ActionList As String
---------------------------
Private Sub UserForm_initialize()
With Me.SpinButton1
.Value = 100
.Min = 50
.Max = 200
End With
Reglage
End Sub
----------------------
Private Sub SpinButton1_SpinUp()
ActionSpin = "Plus"
Reglage
End Sub
-------------------------------
Private Sub SpinButton1_SpinDown()
ActionSpin = "Moins"
Reglage
End Sub
--------------------------------
Private Sub Reglage()
With Me
Coef = .SpinButton1 - 100
.Height = ((Hauteur / 100) * Coef) + Hauteur
.Width = ((Largeur / 100) * Coef) + Largeur
.Zoom =...

patricktoulon · 20 Juillet 2020

bonsoir
compatible mac/pc resizible avec la louris dans les angles ou les cotés

JCCool · 20 Juillet 2020

Merci pour cette réponse impressionnante de rapidité. J'essaye de comprendre ce code, de l'intégrer au mien et je vous fais un retour.
D'avance pardonnez-moi il me faudra plus de temps pour l'intégrer que vous en avez utilisé pour me répondre.
Encore merci

VIARD · 20 Juillet 2020

Bonjour JCCool, Patrick et à tous

En voici un autre utilisant SpinButton
de maître TI

VB:

Const Largeur As Long = 367
Const Hauteur As Long = 400
Dim Coef As Long
Dim ActionSpin As String
Dim ActionList As String
---------------------------
Private Sub UserForm_initialize()
With Me.SpinButton1
.Value = 100
.Min = 50
.Max = 200
End With
Reglage
End Sub
----------------------
Private Sub SpinButton1_SpinUp()
ActionSpin = "Plus"
Reglage
End Sub
-------------------------------
Private Sub SpinButton1_SpinDown()
ActionSpin = "Moins"
Reglage
End Sub
--------------------------------
Private Sub Reglage()
With Me
Coef = .SpinButton1 - 100
.Height = ((Hauteur / 100) * Coef) + Hauteur
.Width = ((Largeur / 100) * Coef) + Largeur
.Zoom = .SpinButton1
End With
End Sub

à adapter, les composants suivent le mouvement.

A+ Jean-Paul

JCCool · 25 Juillet 2020

Bonjour Patrick, Bonjour Jean Paul,
Merci pour vos superbes réponses, ça m'a bien aidé dans mon petit développement. J'ai choisi la solution de Patrick parce-qu’elle correspondait plus à l'idée que je me faisais de ce que je voulais obtenir.
J'ai pourtant eu un peu de mal à la mettre en place, Je n'ai toujours pas compris pourquoi la fonction Me.Move ne semble pas fonctionner comme elle le devrait, j'ai du faire une erreur quelque part. Je l'ai remplacé par (Me.Left=Me.Left+(x-xx), etc...) et ça fonctionne.
Encore Merci à vous deux. A vous lire au sujet d'un prochain problème que je ne manquerai pas d'avoir...

patricktoulon · 26 Juillet 2020

re
ravi pour toi

XL pour MAC Excel VBA agrandir réduire Userform sur PC et sur MAC

JCCool

XLDnaute Nouveau

VIARD

patricktoulon

XLDnaute Barbatruc

Pièces jointes

JCCool

XLDnaute Nouveau

VIARD

XLDnaute Impliqué

JCCool

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Discussions similaires