F
Fred
Guest
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
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