nombre de lignes visibles limité dans mon combobox

_Thierry à dit:

Re bonsoir

Normalement le Userform de préselection, n'a aucune incidence sur le code que j'ai proposé, l'important c'est le code qui se trouve dans l'initialise du UserForm qui contient la ComboBox1 que tu veux initialiser....

STP postes ce code d'initialise en copié/collé entre les balises CODE VB comme suit :

Regarde la pièce jointe 1072713

Et on pourra lire et éventuellement mieux comprendre où ça bugue au lieu de travailler sur d'une capture écran...

Bonne soirée
@+Thierry

Cliquez pour agrandir...

_Thierry à dit:

Ah je ne l'avais pas vue celle-là :

Set WS = WB.Worksheets("Menu.xlsm")

Essaies comme ceci , c'est une WorkSheet WS, pas un WorkBook XLSM !, c'est "Menu" tout court !

VB:

Option Explicit

Private Sub UserForm_Initialize()
Dim WB As Workbook
Dim WS As Worksheet
Dim L As Integer
Dim MaPlageAddress As String, MonClasseeurName As String, MaFeuilleName As String

Set WB = ThisWorkbook
Set WS = WB.Worksheets("Menu")

L = WS.Range("T25").End(xlUp).Row

MonClasseeurName = WB.Name
MaFeuilleName = WS.Name
MaPlageAddress = WS.Range("S6:T" & L).Address

With Me.ComboBox1
.ColumnCount = 2
.ListRows = 20
.RowSource = "'[" & MonClasseeurName & "]" & MaFeuilleName & "'!" & MaPlageAddress
End With

End Sub

Bonne soirée
@+Thierry

Cliquez pour agrandir...