Discussion :

[patricktoulon]

c'est bon alors même pour W64 avec office 64?

[Allanbzh]

Bonjour Patrick,

Je réponds avec un peu de retard car je n'ai pas pu tester sur l'ordi en question avant... En fait ça fonctionne mais si on enlève la condition correspondant au 32 bits. Je veux dire par là que le programme ne regarde pas le "If VBA..." il capte directement l'erreur d'écriture qui n'est pas de son langage.

De ce fait j'ai désinstaller office64, j'ai réinstaller en 32 bits sur un ordi 64 bits et tout marche nickel (cela m'arrangeait aussi car j'ai un Data picker qui n'est pas exécutable sur un Excel 64 bits

Je te remercie de toute l'attention que tu as porté par rapport à mon problème, je suis super satisfait

A bientôt et bonne soirée.

Allan

[laetitichat]

Bonjour,

J'ai intégré ton code à mon projet et tout semble fonctionner parfaitement lorsque je travaille sur une session locale.
Or, dès que je teste le fichier sur un ordinateur à distance (imposé par mon travail), j'avais systématiquement une erreur d'exécution 9 sur le code ci-dessous lorsque je tente d'afficher mon formulaire "Check".

Code :

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

1
2
3
4
5
6
7
8
Sub maForm_Resize(usf)
   W = usf.Width / Split(usf.Tag, ":")(0): H = usf.Height / Split(usf.Tag, ":")(1)
    For Each Ctl In usf.Controls
        ppe = Split(Ctl.Tag, ";")    'on coupe le tag par les ";"
         Ctl.Move ppe(0) * W, ppe(1) * H, ppe(2) * W, ppe(3) * H
          If UBound(ppe) = 4 Then Ctl.Font.Size = ppe(4) * H
    Next
End Sub

J'ai aussi testé d'autres variantes des codes disponibles dans cette discussion et j'ai à chaque fois cette erreur.

Après avoir cherché à comprendre, j'ai finalement compris que ça plantait lorsque le code tombait sur un contrôle non visible (le "tag" était vide); l'userform en question ayant des boutons, textbox ou labels s'affichant ou non selon un paramètre séléctionné dans un autre userform.

Pour pallier à ce problème, il m'a suffit de rajouter une petite condition pour avoir le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub maForm_Resize(usf)
   if usf.visible then
   W = usf.Width / Split(usf.Tag, ":")(0): H = usf.Height / Split(usf.Tag, ":")(1)
    For Each Ctl In usf.Controls
        ppe = Split(Ctl.Tag, ";")    'on coupe le tag par les ";"
         Ctl.Move ppe(0) * W, ppe(1) * H, ppe(2) * W, ppe(3) * H
          If UBound(ppe) = 4 Then Ctl.Font.Size = ppe(4) * H
    Next
   end if
End Sub

C'est peut-être un problème que peu rencontreront mais au cas-où, ça peut éviter de perdre plusieurs heures à trouver d'où vient le problème

Pour info, j'ai à ma disposition Office 2010 32 bits sur ma session locale comme session à distance (exactement la même version & même licence).
Mon ordi local tourne sous Win 7 64 bits, j'ai 2 ordis à distance à ma disposition, l'un sous Win server 2012 R2 standard et l'autre sous Win server 2008 R2 standard (pas plus d'infos dessus, tout est verrouillé). Aucune idée pourquoi ça plante en session à distance et non en local par contre.


Sinon, l'ouverture de l'userform nativement en plein écran ne m'intéresse pas.
Je ne comprends pas beaucoup ce qui'il y a dans le code, que dois-je modifier pour que l'UF s'ouvre par défaut dans la taille pré-configurée ? (j'ai utilisé la toute dernière version du code présente dans cette discussion)

[patricktoulon]

bonjour
quelle est le type de control en faute ?

[laetitichat]

Lorsque la macro plante, c'est sur un CommandButton

Rectification: je ne suis plus certaine que c'est effectivement sur un commandbutton. J'ai mélangé 2 espions.
En fait, ça plante avant d'arriver sur les contrôles de l'userform, donc directement sur l'userform en lui-même qui a la propriété visible = faux

Vu que ce sont les premiers userform que je crée, il est probable que j'ai fait des erreurs dans mon code, je joins mon fichier pour info.

Plantage uniquement sur l'userform "Check", les 2 autres UF avec le redimensionnement ne posent pas de problème (Starteval & QuestionEval).
Cet userform étant accessible uniquement après avoir saisi des données dans ces deux userforms. Accès rapide via le bouton "see existing form" ouvrant StartEval.

Mais vu que le problème semble spécifique à mes ordis distants, ce n'est pas sûr que ce "bug" pourra être reproduit facilement.

[patricktoulon]

il n'y a que le userform questioneval qui est pris pour le resize les autres non ? c'est bien ca

j'ai cherché la raison et je n'ai pas trouvé c'est le bouton GOBACK dans le userform check qui fou le bordel je pourrais pas te dire pourquoi a première vue il n'y a aucune raison

[laetitichat]

En fait, il y a 2 voies possible.
Voie création: StartEval --> QuestionEval --> Check
Voie affichage formulaire existant: SelectEval (--> QuestionEval selon choix dans SelectEval) --> Check

Le redimensionnement est intégré dans les userform StartEval, QuestionEval et Check mais seul le formulaire Check plante.

Peut-être est-ce à cause du "design" de mes userform
StartEval a tous ses contrôles définit dans l'userform
QuestionEval a tous ses contrôles générés dynamiquement, l'UF est vide à la base dans VBA
Check a un mix de contrôles natifs (Multipage + quelques frames avec labels ou textbox et commandbuttons affichés ou non selon conditions) et de contrôles dynamiques

Même si mon petit ajout ne permet pas de répondre à un bug clairement identifié, le principal pour moi, c'est que ça fonctionne en usage en local ou bien en session à distance avec le matériel de mon entreprise.
Ne maîtrisant pas du tout ce que tu utilises dans ton code, je vais rester comme ça pour l'instant. Je verrais ultérieurement si je comprends un jour l'utilisation des APIs

[Yves_FLHR]

Salut à tous,

J'ai utilisé le code de Patrick (merci, merci et...remerci) pour faire le redimensionnement auto de mes userform et je viens de découvrir un cas particulier : la méthode n'est pas reconnue pour pour les progressbar2 !
J'ai du l'exclure dans le redimensionnement des ctrl.

Passage modifié dans le code de Patrick:

Code :

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

1
2
3
4
5
    For Each ctrl In uf.Controls 
        If TypeName(ctrl) <> "ScrollBar" And TypeName(ctrl) <> "Image" And TypeName(ctrl) <> "SpinButton" And TypeName(ctrl) <> "ProgressBar2" Then
            ctrl.Tag = uf.InsideWidth / ctrl.Font.Size
        End If
    Next

Si vous connaissez une astuce, je suis preneur.

Merci encore et @+ pour une solution.

Yves

[patricktoulon]

bonsoir
c'est quoi ce control ProgressBar2 je connais progressbar mais pas la 2

tu est sur de ne pas utiliser son nom en tant que type name??????

[Yves_FLHR]

bonsoir
c'est quoi ce control ProgressBar2 je connais progressbar mais pas la 2

tu est sur de ne pas utiliser son nom en tant que type name??????

Salut,

Merci pour ton retour rapide.

C'est la première question que je me suis posé et pour vérifier, alors j'ai intégré un "MsgBox TypeName(ctrl)" dans la boucle et le retour est "ProgressBar2" alors que pour tous les autres ctrl j'ai listbox, combobox, label etc...


Je travail avec un office x86 2010. (fourni par mon client donc pas de modif ou d'ajout possible)
Le nom de la progressbar qui coince le truc est : ProgressBar 1.


Ci-dessous les ref du ctrl:


J'ai intégré cette progressbar2 à ton fichier exemple de redimensionnement (bravo l'artiste !!) et cela provoque le même defaut.
Ci-joint le fichier.

Compte tenu que j'ai filtré cette saleté de progressbar2, ce n'est pas un point critique pour moi, n'y passes pas tes nuits quand même

Merci pour ton support.

Yves

[patricktoulon]

c'est bizarre chez moi ta progressbar est bien de typename "progressbar"

bon dans tout les cas pour faire simple
plutôt que de tester ce qui ne peuvent pas testons ce qui peuvent tout simplement
j'ai donc modifier ce point et tu ne devrais plus avoir de soucis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'*******************************************************************************************************************
'nouvelle version                                                                                                  *
' ici on va memoriser l'operateur corespondant a l'userform/ par le font size de chaques control _                 *
'  sauf ce qui n'ont pas cette propriété                                                                           *
    For Each ctrl In uf.Controls                                                                                  '*
        Debug.Print TypeName(ctrl)
        Select Case TypeName(ctrl)
        Case "TextBox", "Label", "CheckBox", "OptionButton", "CommandButton", "Frame", "MultiPage", "ListBox", "ComboBox", "TabStrip", "ToggleButton"
            ctrl.Tag = uf.InsideWidth / ctrl.Font.Size                                                            '*
        End Select
    Next                                                                                                          '*
    '***************************************************************************************************************

je vais le corriger dans la contribution
merci pour ca

[Yves_FLHR]

Merci.

Je teste et reviens vers toi si Pb.

@+ et bonne journée.

Yves

[patricktoulon]

ok
mais sache que c'est une version simplifiée et qu'elle est moins precise que mes autres versions qui elles memorises toutes les propriété des controls dans leur tag

[jano31]

Je viens de découvrir le code de Patrick sur le redimensionnement automatique des controls dans un userform ce que cherchais depuis un certain temps. Cela fonctionne parfaitement pour mon application.Un Grand Merci pour cette contribution.
Jean

[rampage92]

Bonjour,

Merci pour le code il marche très bien pour moi à une exception près :

J'ai l'impression que la taille de mon Frame reste identique, les captions à l'interieur sont desaxés par rapport aux colonnes de ma listbox je mets une photo en copie :





J'espere que c'est assez clair.

[helenm7]

Bonjour à tous,

Je ne suis pas certaine d'avoir le droit de lancer une question ici plutôt que de faire un post, mais ma question est fortement liée au code de Patrick, et je me dis que peut-être il sera à même d'y répondre.
D'abord merci pour ce code fabuleux qui m'a permis de faire une belle interface.

Mon souci est le suivant :
J'ai une interface énorme (mais qui s'adapte à l'écran grâce au code donc tout va bien) où l'utilisateur saisit des données d'entrée. Au début, un ComboBox permet de choisir entre deux éléments, et selon ces éléments, certains TextBox disparaissent, donc j'adapte la position des cadres et des autres TextBox pour avoir une interface propre. Mais comme je "force" la position des TextBox et des Labels, le code de redimensionnement ne prend pas en compte ce changement de position et je me retrouve avec une interface trop grande et des trous entre mes TextBox. Je ne sais pas si je suis suffisamment claire, en tout cas j'aimerais que la position des TextBox s'adapte et que ça soit joli qqsoit la taille de l'écran.

Merci par avance et dites moi si je dois plutôt créer un nouveau fil.

[patricktoulon]

re
bonjour
oui ouvre un post a toi sur le forum cette contrib est assez polluée comme ca et contient bien trop de versions
et pour toi c'est encore un cas particulier puisque tu veux non seulement redim les controls mais prendre en compte les éventuelles modifs de placement en fonction de tel ou tel cas que tu opère avec déjà avec ton propre code
ca promet un bel exercice ca tient!!!! bien que j'en ai déjà une idée très simple dans ma tète et même plusieurs solutions ( ca sera en fonction de quelle version tu a pris de mes nombreuses adaptation pour les uns et les autres)
c'est le genre de casse tête qui m'amuse
rendez vous sur le forum

[helenm7]

Super, merci !

voici le fil en question

https://www.developpez.net/forums/d1...-taille-ecran/

[helenm7]

https://www.developpez.net/forums/d1.../#post10923890

Le bon lien lol merci encore

[LB]

Bonjour,

je sais que ces échanges commencent à dater mais ils viennent néanmoins de répondre au problème que je viens de rencontrer.
Merci.

Toutefois, les contrôles créés dynamiquement (Labels et Textbox) après le lancement de mon application ne sont pas redimensionnés quand bien même je rappelle 'maForm_Resize Me' après leur création.

Certes, je ne suis pas très aguerri en VBA mais y-a-t-il une possibilité d'y parvenir ?

D'avance merci.