chargement d'une listbox

[petchy]

bonjour
j'ai se code pour chargé ma listbox, le probleme c'est qu'il faut que je soit sur la feuille "base" pour chargé la listbox.Mais au démarrage de mon programme je suis sur une autre feuille.
c'est possible de charger la listbox quand je suis sur ma feuille de démarrage "fiche"

Private Sub UserForm_Activate() 'charge la listbox au démarrage

Dim NoLigne As Integer
NbLigne = WorksheetFunction.CountA(Columns("A:A"))
List1.ColumnCount = 2
List1.ColumnWidths = "120 pt;110 pt"
List1.ColumnHeads = True
List1.RowSource = Sheets("base").Range(Cells(2, 3), Cells(NbLigne, 1)).Address
End Sub

merci
@ plus
petchy

 

[wilfried_42]

Re : chargement d'une listbox

bonjour petchy

mets ta macro dans workbokk_open
application.screendisplay = false
sheets("Base").selectDim NoLigne As Integer
NbLigne = WorksheetFunction.CountA(Columns("A:A"))
List1.ColumnCount = 2
List1.ColumnWidths = "120 pt;110 pt"
List1.ColumnHeads = True
List1.RowSource = Sheets("base").Range(Cells(2, 3), Cells(NbLigne, 1)).Address
sheets("fiche").select
application.screendisplay = trueend sub

 

[petchy]

Re : chargement d'une listbox

Re
merci,c'est sympa
petchy