Combo Box

Bonjour,

Ton probleme est assez rapide a résoudre ..

voila ce qui ne va pas:

Private Sub Userform2_Initialize()
'Dim DL As Integer
DL = Sheets('Petits travaux').Range('i65536').End(xlUp).Row
plagelist = Sheets('Petits travaux').Range('i4:i' & DL).Address
ComboBox1.RowSource = 'Petitstravaux' & plagelist

End Sub


Plus précisement dés la 1ere ligne: il ne faut pas mettre le nom de ton UF qui est userform2 mais simplement Userform_initialize.

Ensuite pour ton ComboBox1.RowSource = 'Petitstravaux' & plagelist

je simplifierais par ComboBox1.RowSource = plagelist

Ce qui donne:

Code:

Private Sub Userform_Initialize()
'Dim DL As Integer
DL = Sheets('Petits travaux').Range('i65536').End(xlUp).Row
plagelist = Sheets('Petits travaux').Range('i4:i' & DL).Address

Sheets('Petits travaux').Activate

ComboBox1.RowSource = plagelist

End Sub

Voila, le probleme devrait etre résolu

Cliquez pour agrandir...