Problème de ScrollBar dans un formulaire

Lone-wolf

XLDnaute Barbatruc

• 22 Décembre 2016

• #2

Bonsoir Calvus

D'où elle sort la propriété KeepScrollbarVisible??? Moi je ne l'ai pas, regarde en la mettant à 0, si il y a un changement.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 22 Décembre 2016

• #3

Bonsoir Lonewolf,

Sur 0 c'est pire !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Décembre 2016

• #4

Re

Essaie 1 à 1 les autres paramètres de la liste pour voir.

EDIT: sinon, dans userform_activate, ajoute cette ligne; peut-être est-ce dû au Multipage.
MultiPage1.Pages(0).KeepScrollBarsVisible = fmScrollBarsNone

 

Dernière édition: 22 Décembre 2016

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Décembre 2016

• #5

bonsoir Calvus,jeune loup tout seul

le mieux un fichier sans donnée confi... de plus je vois que tu manipule un multipage qui est un "conteneur" comme user ou frame codage un peu spécifique pour actualiser

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 22 Décembre 2016

• #6

Bonsoir Laetitia , Re Lonewolf ,

Ok Laeti, je vais poster un fichier.

Sinon, 2 choses.

1/ J'ai remarqué que seules certaines listbox, pas toutes, sont modifiées.
Celles que l'on voit en fait sur l'image postée.
Et elles rétrécissent à chaque fois qu'un code du userform est éxécuté.

2/ @Lonewolf : La ligne de code que tu m"as donné génère une erreur : variable non définie.

A bientôt

EDIT : Voici le fichier

 

Pièces jointes

• Formulaire Commande.xlsm

  102.7 KB · Affichages: 49

Dernière édition: 22 Décembre 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Décembre 2016

• #7

Bonsoir Laetitia

@ Calvus: sorry, j'ai trouvé la ligne de code chez MIMI.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Décembre 2016

• #8

salut

le problème peut être réglé* en prenant une largeur de colonne (par exemple ColumnWidths à 76 ) inférieure à celle de la liste (quand Width à 80).

*chez moi avec ma version, mon écran)

édit : quand des listes ont la même largeur, tu peux les sélectionner en gardant la touche Ctrl enfoncée. lL changement de propriété s'appliquera à la sélection.

 

Dernière édition: 23 Décembre 2016

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Décembre 2016

• #9

Bonsoir Si ,

Merci, mais ça ne fonctionne pas chez moi. Et pourquoi la largeur alors que le problème vient de la longueur...?

Si... à dit:

tu peux les sélectionner en gardant la touche Ctrl enfoncée.

Cliquez pour agrandir...

Merci, même si ça fait partie des rares choses que je sais...

A bientôt.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Décembre 2016

• #10

Re


MicroHard a pensé aussi aux marges (surtout bénéficiaires). aussi les polices (Font) choisies proportionnelles ou pas ont encore un impact (et je "scroll" à tout va, en long et en large).

Autre remarque : la politique de l’alignement à droite peut-être plus intéressante que celui de la gauche (sans esprit partisan que je laisse aux politiciens politicards ).

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Décembre 2016

• #11

Bonjour,

Je ne suis pas sûr de bien saisir ton dernier message.. MicroHard ? Les résultats renvoyés par Google ne sont pas convaincants.

Et l'alignement à droite accentue le problème.

Tu n'as donc pas d'idée ?

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Décembre 2016

• #12

re tous,salut Si
j'ai regarde ton fichier rapidement
brut sans simplifier pour remplir tes listboxs

VB:

 Dim z As Byte
z = .Range("b124").End(3).Row + 1
ListBox11.List = .Range("b80" & ":b" & z).Value
'ect...

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 23 Décembre 2016

• #13

Bonjour Laetitia , le forum,

C'est nettement mieux, merci !
Disparition des ScrollBars, MAIS, les listbox continuent de diminuer à chaque clic sur le bouton Suivant....

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Décembre 2016

• #14

re tous

c' est le multipage qui diminue ou les listboxs ????

si vraiment listbox essai

VB:

Private Sub UserForm_Activate()
Dim i As Byte
For i = 1 To 6: Me("ListBox" & i).Height = 448: Next i
For i = 11 To 16: Me("ListBox" & i).Height = 448: Next i
End Sub

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Décembre 2016

• #15

Re et pour le plaisir de saluer Laeti

Oups, je pensais que tu connaissais Micro HARD, la face cachée de Micro SOFT.
La prochaine fois que je créerai un mot il me faudra vérifier que ce n’est pas encore fait par d’autres.

Pour la barre horizontale (et pour ne pas radoter)

Je ne sais pas quelles sont les marges prévues (sous-entendues donc cachées) pour chaque contrôle contenant du texte mais tu as dû déjà voir des fenêtres de ce genre :




Pour la barre verticale :

Elle est aussi gérée par la propriété IntegralHeight . C’est ici que tu la verras ou pas (True ou False) en fonction du nombre de lignes (réduction proposée par Laetitia).

 

Vote positif 0 Vote négatif