Discussion :

[Mr l'Ashanti]

Bonjour forum
je souhaiterais afficher le scrollbar de chaque frame en fonction du nombre de labels qu'ils contiennent.
voici le code provenant du module de classe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function ChangeCouleur(ByRef Usf As Object)
Dim CtrlLabel As Object
    For Each CtrlLabel In Usf.ObjFrame.Controls
        If TypeOf CtrlLabel Is MSForms.Label Then
            With CtrlLabel
                .ForeColor = vbWhite
                .SpecialEffect = fmSpecialEffectFlat
                .Font.Bold = False
                .Font.Size = 10
               ObjFrame.ScrollBars = fmScrollBarsVertical
               ObjFrame.ScrollHeight = .Top + .Height
            End With
        End If
    Next
End Function

Code :

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

 ObjFrame.ScrollBars = fmScrollBarsVertical

s'exécute mais la ligne suivante

Code :

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

ObjFrame.ScrollHeight = .Top + .Height

ne donne aucune réponse.
je voudrais avoir plus de détails concernant le problème.
merci à vous

[Invité]

Bonjour,

Une propriété avec un point devant fait appel à l'objet conteneur, ici CtrlLabel, est-ce bien ce que vous voulez 🤔

A+

[Mr l'Ashanti]

J'ai une faible notion en module de classe néanmoins je répondrai oui à votre question...

[Invité]

Re,

Serait-il possible d'avoir le fichier anonymisé, car comme ça ce n'est pas évident à mes yeux

A+

[Mr l'Ashanti]

Re,

Serait-il possible d'avoir le fichier anonymisé, car comme ça ce n'est pas évident à mes yeux

A+

BONJOUR et excuse du retard...
je joins un fichier pour illustrer ma préoccupation

[Invité]

Bonjour,

Pour moi c'est normal, vos frame sont aussi haut que ce qu'ils contiennent

Réduisez les pour n'afficher qu'un seul Label et vous verrez, ou je n'ai pas compris le problème

A+