Listbox et rowsource property

[Fred]

Bonjour le Forum,

Je debute avec les userforms...et je dois avouer que j'aurais besoin d'un petit coup de main.
Je vous expose mon probleme:
J'essaye de parametrer un userform dans lequel j'ai cree une lisbox. Cette listbox fait reference a une plage d'un tcd, que j'ai defini dans ma macro. La plage est correctement definie, mais quand la macro aborde la phase d'initialisation de mon usf, une erreur 380 se produit: 'could not set the rowsource property'.

Voila, j'y comprends rien, si quelqu'un a une idee.... je suis completement paume la....

Merci d'avance

Fred


Ma macro:
Sub Evt_Dpt_Sel(NoDpt As Variant)

Dim plage As String
Dim MatchDept, Match2 As Variant

Set Deptrange = Worksheets('PVTSKX').Range('a:a')
Sheets('PVTSKX').Select

MatchDept = Application.WorksheetFunction.Match(NoDpt, Deptrange, 0)
Match2 = Application.WorksheetFunction.Match(NoDpt + 1, Deptrange, 0)
plage = Sheets('PVTSKX').Range(Cells(MatchDept, 2), Cells(Match2, 4)).Address
USF_Dept.Show

End Sub


La macro pour initialiser:
Private Sub UserForm_Initialize()
ListBox1.RowSource = 'PVTSKX!' & plage

End sub

 

[porcinet82]

Salut Fred,

Tout a fait au pifomètre, essaye peut etre en mettant plage = Sheets('PVTSKX').Range(Cells(MatchDept, 2), Cells(Match2, 4)).Address(0,0), ce qui devrait te donner une adresse sous le format A1:A5 alors que la ligne écrite ainsi plage = Sheets('PVTSKX').Range(Cells(MatchDept, 2), Cells(Match2, 4)).Address te donne une adresse avec le format suivant A$1$:A$5a

Mais je ne suis pas du tout sur que le probleme vienne de là.

Voili,voilou,

@+

 

[Fred]

Salut Porcinet82,
J'ai modifie la macro selon ta recommendation, mais elle bloque toujours malheureusement.

Merci d'avoir essaye en tout cas.

Si quelqu'un a d'autres suggestions...

Fred