Private Sub UserForm1_Initialize()
Set CL = Création.ComboBoxLiées: CL.Plage WshBD
Set CA = Création.ControlsAssociés: Set CA.Colonnes = CL.Colonnes
' Mettez ici une série d'instructions de la forme :
' C?.Add Control, Colonne
' Avec:
' C?: CA ou CL. CL doit être pris seulement pour une ComboBox dont la liste doit être
' constituée dynamiquement en fonction de ce qui existe dans la base et de ce que
' l'utilisateur aura déjà mis dans d'autres, semblables.
' Control: le nom d'un contrôle. Mettre Me. devant peut vous aider à le retrouver.
' Colonne: Le numéro d'ordre de la colonne est accepté, mais si vous avez fait subir à votre
' plage une mise sous forme de tableau, vous pouvez spécifier le titre de la colonne.
Set CL = CLsCAs.Création.ComboBoxLiées: Set CA = CLsCAs.Création.ControlsAssociés
CL.Plage ExpressionRangeReprésentantLa1èreLigneDeVotreTableau: Set CA.Colonnes = CL.Colonnes
CL.Add Me.CBxChef, T
CL.Add Me.CBxCertif, U
CL.Add Me.CBxMontg, V
CA.Add Me.TBxDate, A
CA.Add Me.TBxNom, B
CA.Add Me.TBxPrénom, C
CA.Add Me.TBxInfLog, E
CA.Add Me.TBxCombi, H
CA.Add Me.TBxNoComb, I
CA.Add Me.TBxObserv, J
CL.CouleurSympa
CL.Actualiser
End Sub