|    Page 1 of 10    |

Document

' ***************************************

' Remplir une ComboBox ou Listbox depuis

' une feuille de calcul

' ***************************************

Private Sub UserForm_Initialize()

     With Sheets( "Feuil1" ).Range( "A1" )

          Me.ComboBox1.RowSource = "Feuil1!A1:A" & Sheets( "Feuil1" ).Cells( 1 , 1 ).End(xlDown).Row

     End With

End Sub




|    Page 1 of 10    |