çç ç |    Page 6 of 10    | è èè

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

' Utiliser une une plage nommée pour

' remplir une ComboBox ou Listbox.

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

' La liste est définie dans le Userform par son nom entré à l'aide

' de la commande Insertion/Nom/Définir avec la formule suivante :

' NomClient=DECALER(Codes!$A$1;;;NBVAL(Codes!$A:$A);)

' ou Codes correspond au nom de l'onglet du classeur et

' Nomclient étant le nom de la plage de données.

Private Sub UserForm_Initialize()

     ' Activation du classeur WorkBook.xls

     Workbooks( "WorkBook.xls" ).Activate

     ComboBox1.RowSource = "Codes!NomClient"

End Sub




çç ç |    Page 6 of 10    | è èè