UserForm avec région scrollable contenant des contrôles

Version imprimable

10/02/2019, 20h37
Orbeaman

1 pièce(s) jointe(s)

UserForm avec région scrollable contenant des contrôles

Bonjour,

Est-il possible intégrer une région scrollable dans un UserForm contenant des contrôles, tout en gardant une partie haute et base fixes ?

Pièce jointe 448859

J'imagine que ça passe par des Frames ou peut-être faire appel à un sous-UserForm ?

Merci par avance !
10/02/2019, 21h14
patricktoulon

1 pièce(s) jointe(s)

re

bonsoir
oui tu met d tes control scrollable dans un frame
tu met le scrollbar vertical et tu regle le scrollheight avec le top +height du dernier control en bas de la frame

Pièce jointe 448873
10/02/2019, 21h35
Orbeaman

Merci Patrick pour ces explications. Voilà de quoi me (pré)occuper pour le restant de la soirée ;)
10/02/2019, 22h44
Orbeaman
Ca fonctionne très bien, mais il s'avère que la barre verticale est situe totalement en-bas de la plage lors de l'affichage de l'UserForm. Je vois que la propriété .ScrollTop change quand j'agis sur la barre verticale. .ScrollTop = 0 corespond pourtant à la barre tout en haut et l'initialisation de l'UserForm n'y fait rien (où Frame1 est le nom par défaut de la Frame) :
Code:

1 2 3 4 5 6 ' Private Sub UserForm_Initialize() Frame1.ScrollTop = 0 'pas d'effet End Sub
As-tu une explication ?
10/02/2019, 23h00
patricktoulon

re

en mode edition dans vbe est elle bien a 0?
10/02/2019, 23h32
unparia

Bonjour
modifier les propriétés (surtout graphiques) d'un contrôle dans l'évènement initialize n'est pas une bonne idée.
Faire cela dans l'évènement Activate

re
a mettre dans le activate de l'userform
Adapte le nom de ta frame

Code:

1
2
3
4
5
6
Private Sub UserForm_Activate()
With Me.Frame1
For Each ctrl In .Controls: y = ctrl.Height + ctrl.Top + 10: Next
 .ScrollHeight = y: .ScrollTop = 0
End With
End Sub

11/02/2019, 18h53
Orbeaman

J'ai un doute, mais il me semble qu'il suffit de déplacer la barre de défilement tout en haut lors de la création (je vérifierai demain). De ce fait, lors de l'affichage de l'UserForm, le ScrollBar devra(it) prendre la même position.
12/02/2019, 13h21
Orbeaman

Est-ce possible d'incrémenter "automatiquement" les CodeName des différents TextBox contenu dans le Frame ? Dans mon cas, j'ai plusieurs "colonnes" d'une vingtaine de TextBox et je tout nommé à la main ne fait pas très pro...

J'ai l'impression qu'avec ThisWorkBook.VBProject.VBComponents (avec Miscrosof Visual Basic for Applications Extensibility 5.3), je ne peux qu'accèder facilement au CodeName de l'UserForm, mais pas aux contrôles compris dans l'UserForm (et en particulier le Frame). Il y a bien une propriété Collection, mais celle-ci renvoie à ThisWorkBook.VBProjectVBProject.VBComponents, mais non aux éléments "enfants". Je vais quand même continuer à creuser dans cette direction ;)

PS : La librairie ci-dessous est probablement obligatoire pour accèder au CodeName en écriture.

Merci encore !

si tu a plusieur textbox aligné il faut memoriser le plus grand
je ne vois pas ou tu veux en venir avec les object vbcomponent
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub UserForm_Activate() dim y#,yy# With Me.Frame1 For Each ctrl In .Controls y = ctrl.Height + ctrl.Top + 10 if y>yy then yy=y Next .ScrollHeight = yy: .ScrollTop = 0 End With End Sub
c'est tout