Redimentionner USF

Bonjour à tous,

Je souhaiterai redimensionner cet, USF à n'importe quel écran.

Je vous envoie le fichier

Si vous me donner la marche à suivre pour redimensionner.

Merci d'avance

Amicalement

Noel

Bonjour,

Teste le code suivant :

Private Sub UserForm_Initialize()
    With UserForm1
        .Height = Application.Height
        .Width = Application.Width
    End With
End Sub

Bonjour Noel

Regardes sur cette page de mon blog ..... tout en bas

Paragraphe Agrandir ou réduire son formulaire avec un outils Zoom.

https://cellulexcel.blogspot.fr/p/qui-na-pas-un-jour-utilise-loption.html

Bonjour Raja,

J'ai déjà essayer ce code.

Comme j'ai d'autres codes dans cet USF cela pose problème

pourras-tu voir avec le fichier si tu peux faire quelque chose

Amicalement

Bonjour et1000lio,

J'attendrai un moment pour voir car je ne sais pas trop comment m'y prendre

@+

Amicalement

Noel

Re,

Je n'ai pas le moyen d'ouvrir ton fichier zippé. Désolé.

Re

Je vais essayer de te renvoyer le fichier non zippé.

@+

Amicalement

Noel

Re et1000lio,,

Désolé je me suis rendu sur ton Blog je n'ai pas compris grand chose

Si tu pouvais voir j'ai envoyé le fichier dézippé

Merci d'avance

Noel

Bonjour à tous,

Une parenthèse (vous m'en excuserez) car je viens de d'ouvrir le lien de et1000lio et tombé sur sa recommandation de paramétrer Excel en désactivant tout filtrage de macros !

Je ne suis nullement maniaque de la sécurité mais cela m'a fait tout de même bondir !

Si ponctuellement on peut avoir besoin de désactiver le filtrage des macros, l'option normale reste :

Désactiver les macros avec notification

qui peut tout de même éviter quelques désagréements !

Et la contrainte qui en résulte est toute relative : une fois validée l'activation des macros pour un fichier, la demande n'intervient plus pour le même fichier. Et il est souhaitable d'avoir à approuver un fichier importé à son arrivée...

Noêl, si tu veux dimensionner en fonction de l'écran, tu dois utiliser une fonction API. Mes souvenir sont confus sur ce point, et je n'ai pas le temps de chercher en ce moment. Regarde dans les tutos des sites (Développez.com notamment)...

Cordialement.

Bonjour MFerrand,

Remarque pertinente.... je vais corriger le blog en ce sens.

Ok ! C'est noté !

Cordialement.

Noel

Userform1 paramétré avec SpinButton "Moins" et "Plus" pour l'agrandissement.

Tu peux augmenter le Delta d'agrandissement ou de réductions dans la propriétés

SmallChange = 10 Ce taux est de 10% à chaque clic

Re,

Je n'arrive pas à faire car le bout fichier est liè avec les autres USF en Module.

Je ne peux pas les dissocier cela me fait des erreurs.

Je crois que je vais laisser tomber

car le projet lui même est trop gros pour être mis sur le forum.

Merci de votre patience.

Amicalement

Noel

Re,

Vois dans le fichier un exemple. Si possible inspire-toi du code suivant :

Private Sub UserForm_Initialize()
    UserForm1.Height = Application.Height
    UserForm1.Width = Application.Width
End Sub

Re Raja,

Ce bout fonctionne mail il ne fonctionne que pour l'USF mais non pas pour les éléments qui la compose.

Je souhaiterai que les textbox, label et autres puissent suivre agrandissement.

J'avais trouvé un bout code

Dim Rx As Single

Dim Ry As Single

With Me

Rx = Application.Width / .Width

Ry = Application.Height / .Height

  .StartUpPosition = 1
        .Left = 0
        .Top = 0
        .Height = Application.Height
        .Width = Application.Width
    End With
    With Result
            .Width = .Width * Rx
        .Height = .Height * Ry
        .Left = .Left * Rx
        .Top = .Top * Ry
    End With

il faut se taper tous les éléments un par un on finit par se tromper car il y en a pas mal dans cette USF

@+

Amicalement

Noel

Re Raja ,

J'ai oublier de te dire tant que le projet est ouvert en programmation et que pour l'utiliser je suis dans l'obligation de faire F5 là ca va.

Mais quand tu ouvres le projet l'USF se met en position 0 et qui plus est je ne vois qu'une petite bande avec la croix pour fermer.

@+

Re,

Tu peux intervenir sur les propriétés Left, Top (au lieu de 0) etc. pour positionner le formulaire. C'est à toi de voir. Bien entendu quand on initialise le formulaire tous les autres objets ne suivra pas. Pour le principe, on ne le met jamais en pleine page pour travailler avec. C'est toi qui avait souhaitait de le faire. C'est pour cette raison, quand on fait un projet, on analyse les besoins d'abord et on commence à développer, déboguer et tester. Et on implémente après.

Bonjour Raja,

Effectivement on peut le faire .Comme d'habitude je le préfère au centre de l'écran.

Si les objets ne suivent pas c'est pas intéressant.

Comme tu vois c'st un projet de caisse c'est pour cela il faudrait que cela couvre tout l'écran

Je suis d'accord avec toi sur le dernier point. Mais tu sais ce n'est qu'après qu'on a tous les éléments.

Merci beaucoup de tn implication

Amicalement

Noel