création d'une macro

Private Sub CL_SujBdDPersoSVP(ByVal CBM As ComboBoxMmbr)
CBM.SujetBdD = SujetMotsClés(CL.PlgTablo.Columns(2))
End Sub

'                                         —— ÉVÈNEMENTS PRINCIPAUX PRÉVUS, DANS L'ORDRE OÙ ILS SURVIENNENT ——
Event Change(ByVal Complet As Boolean, ByVal NbrLgn As Long) ' Survient quand une des ComboBox change.
'                  Complet indique que l'ensemble des ComboBox liés forment la combinaison existante,
'                          ou qu'au moins 1 porte une valeur inexistante. Ce second sens ne s'applique que si NbrLgn = 0 :
'                                            NbrLgn donne le nombre de lignes correspondantes (C'est surtout pour tester s'il y en a ou non).
Event Résultat(Lignes() As Long) ' Survient seulement si Change a rendu NbrLgn > 0, et rend la table des lignes correspondantes. Lignes(1 to NbrLgn)

'                                                 —— ÉVÈNEMENTS SPÉCIAUX POUR UTILISATION AVANCÉE ——
Event SujBdDPersoSVP(ByVal CBM As ComboBoxMmbr) ' Survient au Actualiser si la colonne n'a pas été précisée au Add, de sorte que le
'           SujetBdD global de ce membre ne peut être constitué. Veuillez le constituer par un algorithme de votre cru.
'           Ce Variant doit recevoir un contenu structuré comme ceux rendus par les fonctions du module MSujetCBx.

Function SujetMotsClés(ByVal Src, Optional ByVal Séparat As String = " ")
Rem. —— Restitue un sujet de mots clés.
'   Src: Range ou tableau 2D d'une seule colonne à inventorier.
'   Séparat: Groupe de caractères à identifier comme séparateur. Facultatif: un espace assumé.
' Remarque: Certains caractères spéciaux sont remplacés par un espace avant décomposition en mots,
'     s'il ne font pas partie de Séparat.

'                                                 —— ÉVÈNEMENTS SPÉCIAUX POUR UTILISATION AVANCÉE ——
Event SujBdDPersoSVP(ByVal CBM As ComboBoxMmbr) ' Survient au Actualiser si la colonne n'a pas été précisée au Add, de sorte que la propriété
'           SujetBdD de son objet ComboBoxMmbr CBM ne peut être renseignée. Veuillez la renseigner par un algorithme de votre cru (au pire).
'           Elle doit contenir un Array à deux éléments comme ceux rendus par les fonctions du module MSujetCBx, lequel comporte d'ailleurs
'           une fonction SujetMotsClés qui renvoie déjà un sujet personnalisé tout fait. CBM.SujetBdD = SujetMotsClés(CBL.PlgTablo.Columns(x))