Taille dynamique d'une listbox

Version imprimable

Bonjour,

Je reviens vers vous car il m'arrive quelque chose d'un peu tordu.
Mon code est celui-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub UserForm_Initialize()
Dim i As Integer, n As Integer
n = 0
Select Case RecapChoix
Case "Position"
    Me.CheckBox1.Caption = "Toutes les positions d'activité"
    'Remplir la 1ère ligne avec les différentes positions d'activité
    With Sheets(RecapJour).Range("RECAP")
    For i = 2 To .Columns.Count
        If .Cells(1, i).text <> "" Then
            Me.ListBox1.AddItem .Cells(1, i).text
            n = n + 1
        End If
    Next
End With
Case "Personnel"
    Me.CheckBox1.Caption = "Tous les personnels"
    'Récupère la variable NbPers
    NbPers = Feuil2.Range("TGR").End(xlDown).Row
    'Remplir la 1ère colonne avec les différents trigrammes
    With Sheets(RecapJour).Range("RECAP")
    For i = 2 To NbPers
        If .Cells(i, 1).text <> "" Then
            Me.ListBox1.AddItem .Cells(i, 1).text
            n = n + 1
        End If
    Next
    End With
End Select
'Mon problème se trouve ici :
MsgBox n 
UserForm1.ListBox1.Height = UserForm1.ListBox1.Height * n
UserForm1.Height = UserForm1.Height + UserForm1.ListBox1.Height
End Sub

Mon problème est celui-ci : la hauteur de la listbox1 reste tout le temps à 15, sauf lorsque je rajoute "MsgBox n" juste avant UserForm1.ListBox1.Height.
Je ne comprends pas pourquoi et je n'ai aucune envie de garder le msgbox dans ma macro.

Pouvez-vous m'éclairez svp ?

24/09/2013, 17h41
EngueEngue

ton screenupdating est bien à true ?
24/09/2013, 18h48
laguernette

Comme je ne savais pas s'il était à true ou non, je l'ai mis au début de l'instruction et le résultat est identique.
24/09/2013, 19h13
patricktoulon

re

Bonjour
essaie long plutôt que integer

bien que je comprend pas ton but

question:

le but final est il d'avoir le height de l'userform correspondant au height de départ +le height de la liste box

auquel cas rien que ma question devrait te mettre sur la voie

Au plaisir
24/09/2013, 19h18
laguernette

J'ai remplacé integer par long mais le résultat reste le même.

Mon but, est d'agrandir ma listbox à mesure qu'elle se remplie. Une fois remplie, l'userform se redimensionne également.
Pour l'userform, pas de soucis, il s'agrandit mais la listbox, elle, reste toute petite et là, je ne comprend pas pourquoi, surtout que l'agrandissement de l'userform tient compte de l'agrandissement de la listbox.

Essaie en insérant un DoEvents
Code:

1 2 3 UserForm1.ListBox1.Height = UserForm1.ListBox1.Height * n DoEvents UserForm1.Height = UserForm1.Height + UserForm1.ListBox1.Height
Par contre, je ne suis pas certain de ton "n"
Je ne pense pas que c'est ce qu'il faut multiplier.

Selon la police que j'utilise par défaut, j'irais comme ceci
Code:

1 2 3 4 Me.ListBox1.Height = Me.ListBox1.ListCount * 10.5 DoEvents Me.Height = Me.ListBox1.Height + 5 ' plus 5 pour afficher la bordure Me.Repaint

24/09/2013, 19h52
laguernette

DoEvents fonctionne très bien. Je connaissais pas.

Merci beaucoup.