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