Redimensionner la de taille checkbox/userform

Salut salut.

J'ai un petit problème d'affichage avec un user form ou il y a des checkbox.

J'ai trouvé comment agrandir mon user form mais pas la petite "fenêtre" ou j'ai mes checks box.

voila mon code:

Dim témoin

Private Sub UserForm_Initialize()

UserForm1.Height = 500

UserForm1.Width = 300

Me.ListBox1.Clear

For i = 2 To ActiveWorkbook.Sheets.Count

Me.ListBox1.AddItem Sheets(i).Name

Me.ListBox1.Selected(i - 2) = Sheets(i).Visible

Next i

témoin = True

End Sub

Private Sub ListBox1_change()

If témoin Then

For i = 0 To Me.ListBox1.ListCount - 1

F = ListBox1.List(i)

Sheets(F).Visible = Me.ListBox1.Selected(i)

Next i

End If

End Sub

voila le résultat.

Merci

Un truc très intéressant (qui n'est pas de moi) pour naviguer entre onglets

Salut,

J'avais déjà regardé ce fichier la, mais je n'arrivais a rien faire avec.

J'ai cependant trouvé ma solution:

With ListBox1

.IntegralHeight = False

.Height = 210

.Width = 430

End With

Merci.