taille du lisbox

[jhofman]

bonjour


j'ai développé dans un userform une simple lisboc paramétrée.
il se trouve que parfois le dernier élément de la liste n'est pas présénté !
Merci de voter aide.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Nom As Name
If HasValidationQ(ActiveCell) Then
a = Right(ActiveCell.Validation.Formula1, Len(ActiveCell.Validation.Formula1) - 1)
UserForm1.ListBox1.RowSource = a
For i = 0 To UserForm1.ListBox1.ListCount - 1
    If ActiveCell = UserForm1.ListBox1.List(i, 0) Then
    UserForm1.ListBox1.Selected(i) = True
    End If
    If UserForm1.ListBox1.List(i, 0) <> "" Then imax = i
    
Next i

If imax > 10 Then imax = 10
' hauteur variable
UserForm1.ListBox1.Height = 10 * (imax + 3)
UserForm1.Show

End If
fin:
End Sub

 

[jhofman]

Re : taille du lisbox

bonjour j'ai toujour ce problème de gestion des taille de listbox ...