'---------------- AFFECTATION DES VALEURS DE LISTE "Classeur: donnees - feuille: Resultats" aux ListBox'-------------------------------------------------------------------
Private Sub UserForm_initialize()
nomfichier = UserForm1.chemin2 & "\Donnees.xlsm" '-- classeur externe ---
Set Ws = Workbooks.Open(nomfichier).Sheets("Resultats") '--- feuille resultats du classeur ---
'-----Libéllé Dépenses dans listbox1-----
ListBox1.RowSource = "B2:B29" '-- Pas OK ---
'------- Montant dépenses ---------------------------------------
ListBox2.RowSource = "C2:C29" '-- pas OK ---
'-----Libéllé Recette dans listbox2-----
ListBox3.RowSource = "B32:B49" '-- Pas OK ---
'------- Montant recettes ---------------------------------------
ListBox4.RowSource = "C32:C49" '-- pas OK ---
'------- Donnée financières ---------------------------------------
ListBox5.RowSource = "C50:c50" '-- Pas OK ---
TextBox10 = "B50:B50" '-- pas OK ---