Cr\u00e9er le module de classe<\/strong><\/p>\n\n\n\n Dans VBE faites Insertion\/Module de classe. En bas \u00e0 gauche dans la fen\u00eatre des propri\u00e9t\u00e9s vous devez renseigner le nom de l’instance. cComboBox.<\/p>\n\n\n Instancing<\/strong> permet de d\u00e9finir si la classe n’est visible que dans le fichier courant ou si elle est visible depuis l’ext\u00e9rieur. Laissez 1 – Private<\/strong>.<\/p>\n\n\n\n Sur la ligne qui suit les options<\/strong>, nous allons d\u00e9clarer les variables n\u00e9cessaires. Tout d’abord la plus importante, celle qui contiendra l’objet Combobox<\/strong>.<\/p>\n\n\n\n WithEvents<\/strong> indique que cet objet pourra lever des \u00e9v\u00e8nements.<\/p>\n\n\n\n Access.ComboBox<\/strong> est le type Liste d\u00e9roulante.<\/p>\n\n\n\n Ensuite nous aurons besoin de variables de type String pour stocker diff\u00e9rents \u00e9l\u00e9ments n\u00e9cessaires \u00e0 l’ouverture du formulaire.<\/p>\n\n\n\n En suivant nous \u00e9crivons deux m\u00e9thodes habituelles dans les classes.<\/p>\n\n\n\n La\u00a0Class_Initialize<\/strong> est ex\u00e9cut\u00e9e au d\u00e9marrage de la\u00a0classe. Elle ne contient rien dans cet exemple mais peu permettre d’initialiser des propri\u00e9t\u00e9s ou des variables, ex\u00e9cuter des m\u00e9thodes …<\/p>\n\n\n\n Tandis que Class_Terminate<\/strong> est ex\u00e9cut\u00e9 lorsqu’on lib\u00e8re la classe, qu’on la d\u00e9charge. Celle-ci est importante car c’est l\u00e0 qu’on d\u00e9charge \u00e9galement toutes nos variables.<\/p>\n\n\n\n Pour charger la combo depuis le formulaire il faut utiliser un Setteur. Le voici !<\/p>\n\n\n\n On voit qu’on lui passe un objet combobox<\/strong> et qu’il est charg\u00e9 dans la variable d\u00e9finie pr\u00e9c\u00e9demment. Les 2 lignes suivantes permettent d’activer l’\u00e9coute des \u00e9v\u00e8nements dont nous avons besoin : DblClick<\/strong> et NotInList<\/strong>.<\/p>\n\n\n\n Les autres variables ou propri\u00e9t\u00e9s de la classe doivent \u00e9galement \u00eatre valoris\u00e9es toujours \u00e0 l’aide de Setteurs.<\/p>\n\n\n\n Rien de bien particulier \u00e0 part qu’on utilise un Let r\u00e9serv\u00e9 aux objets au lieu du Set.<\/p>\n\n\n\n Nos variables sont devenus des propri\u00e9t\u00e9s de la classe.<\/p>\n\n\n\n Une m\u00e9thode priv\u00e9e permettra d’attendre la fermeture du formulaire de saisie avant de poursuivre l’ex\u00e9cution du code. Nous d’obtiendrons un d\u00e9roulement synchrone du processus.<\/p>\n\n\n\n Les \u00e9v\u00e8nements<\/strong><\/p>\n\n\n\n Les \u00e9v\u00e8nements vont \u00eatre g\u00e9r\u00e9s \u00e0 l’aide de proc\u00e9dure qui deviendront de fait des m\u00e9thodes de la classe. La diff\u00e9rence c’est qu’\u00e0 aucun moment nous ne devront les appeler pour qu’elles fonctionnent. Ceci gr\u00e2ce au WithEvents<\/strong> de la d\u00e9claration et \u00e0 l’activation des \u00e9couteurs.<\/p>\n\n\n\n On remarque que la signature de la proc\u00e9dure est strictement identique \u00e0 celle qui pourrait \u00eatre g\u00e9n\u00e9r\u00e9e dans un formulaire. Je vous conseille d’ailleurs d’utiliser des signature g\u00e9n\u00e9r\u00e9e et de les copier dans la classe.<\/p>\n\n\n\n Vous pouvez constater que nous utilisons bien les constantes habituelles pour ce type d’\u00e9v\u00e8nement : NewData<\/strong>, acDataErrContinue<\/strong>, acDataErrAdded<\/strong><\/p>\n\n\n\n Cet \u00e9v\u00e8nement est plus simple que le pr\u00e9c\u00e9dent puisqu’il ne fait qu’ouvrir le formulaire en mode consultation\/modification. Voil\u00e0 la Classe cCombo <\/strong>est pr\u00eate \u00e0 \u00eatre utilis\u00e9e. Voyons cela dans les faits.<\/p>\n\n\n\n En premier lieu il faut indiquer au formulaire que nous allons utiliser cette classe. Pour cela nous devons utiliser autant de variables qu’il y a de zone de liste \u00e0 impl\u00e9menter. Ces variables doivent \u00eatre globale, donc d\u00e9clarer imm\u00e9diatement apr\u00e8s les 2 lignes d’Options du module de classe du formulaire.<\/p>\n\n\n\n Dans l’\u00e9v\u00e9nement Sur Ouverture<\/strong> du formulaire on poursuit la d\u00e9claration.<\/p>\n\n\n\n New<\/strong> permet de cr\u00e9er l’instance de la classe et ainsi pouvoir acc\u00e9der aux propri\u00e9t\u00e9s.<\/p>\n\n\n\n Dans cet exemple la liste d\u00e9roulante se nomme lmClient<\/strong>. Vous pouvez adapter ce code d\u00e9claratif \u00e0 votre propre cas. Vous ne devez jamais modifier la classe pour y int\u00e9grer des noms propres \u00e0 l’application. Une classe doit rester g\u00e9n\u00e9rique sous peine de ne plus \u00eatre portable.<\/p>\n\n\n\n Il va de soit qu’\u00e0 chaque nouvelle liste d\u00e9roulante \u00e0 instancier, un code similaire devra \u00eatre ajout\u00e9.<\/p>\n\n\n\n Une fois sauvegard\u00e9, vous pouvez utiliser le formulaire.<\/p>\n\n\n\n Les tests de comportement \u00e0 faire :<\/p>\n\n\n\n Le poids de l’application : <\/strong>On remplace des centaines de lignes par une partie d\u00e9clarative.<\/p>\n\n\n\n L’uniformit\u00e9 du comportement :<\/strong> Comme on utilise le m\u00eame code pour tous les contr\u00f4les nous sommes s\u00fbr que le comportement sera la m\u00eame.<\/p>\n\n\n\n Maintenance et \u00e9volution :<\/strong> Si un bug est constat\u00e9 ou que l’on souhaite faire \u00e9voluer le comportement, une seule intervention est n\u00e9cessaire. Le recopie de code ne sont plus n\u00e9cessaires avec leur lots d’erreurs potentielles.<\/p>\n\n\n\n Rapidit\u00e9 de conception :<\/strong> Une simple d\u00e9claration permet d’exploiter la classe.<\/p>\n\n\n\n Le revers de la m\u00e9daille : <\/strong>En cas d’erreur non trait\u00e9e, il peut se produire un d\u00e9chargement des classes. Il faudra alors ex\u00e9cuter les d\u00e9clarations une nouvelle fois.<\/p>\n\n\n\n La mise au point peut s’av\u00e9rer plus complexe qu’avec un code standard, c’est pour cela qu’il est conseill\u00e9 lorsqu’on d\u00e9bute, de concevoir les traitements dans un formulaire pour ensuite le transformer en classe.<\/p>\n\n\n\n Conclusion<\/strong><\/p>\n\n\n\n J’esp\u00e8re que ce tuto vous aura plu et qu’il vous donnera des id\u00e9es d’impl\u00e9mentations pour vos d\u00e9veloppements.<\/p>\n\n\n\n Bonne utilisation !<\/p>\n\n\n\n <\/p>\n","protected":false},"excerpt":{"rendered":" Le concept de classe en VBA a certes des lacunes mais il ne doit pas \u00eatre n\u00e9glig\u00e9s pour autant. En effet par l’utilisation des classes ont peut gagner un temps pr\u00e9cieux. Voici un petit exemple fonctionnel d’une classe qui g\u00e8re les \u00e9v\u00e8nements DblClick et NotInList … Continuer la lecture ![\"Comment](\"http:\/\/loufab.alwaysdata.net\/blogaccess\/wp-content\/uploads\/2025\/06\/classe1.png\")
<\/figure>\n<\/div>\n\n\nD\u00e9claration<\/strong><\/h2>\n\n\n\n
Private WithEvents LmCombo As Access.ComboBox<\/code><\/pre>\n\n\n\n'nom du formulaire qui est appel\u00e9 lors du notinlist \nPrivate strFormNameLie As String \n\n'nom du champ id de la table recevant la nouvelle valeur \nPrivate strIdFieldName As String \n\n'nom du champ recevant la valeur saisie dans la combo \nPrivate strControlName As String \n\n'nom de la table recevant la nouvelle valeur \nPrivate strTableFormLie As String<\/code><\/pre>\n\n\n\nPrivate Sub Class_Initialize() \n' Initialise \nEnd Sub<\/code><\/pre>\n\n\n\nPrivate Sub Class_Terminate() \n' lib\u00e8re les variables \nOn Error Resume Next \n\nSet LmCombo = Nothing\n \nEnd Sub<\/code><\/pre>\n\n\n\nPublic Property Set objComboBox(objCombo As Access.ComboBox) \n Set LmCombo = objCombo \n LmCombo.OnDblClick = \"[Event Procedure]\" \n LmCombo.OnNotInList = \"[Event Procedure]\" \nEnd Property<\/code><\/pre>\n\n\n\nPublic Property Let frmNameLie(strNomFormulaireLie As String)\n strFormNameLie = strNomFormulaireLie \nEnd Property<\/code><\/pre>\n\n\n\nPublic Property Let idFieldName(strNomIdFieldFormulaireLie As String) \n strIdFieldName = strNomIdFieldFormulaireLie \nEnd Property<\/code><\/pre>\n\n\n\nPublic Property Let controlNameLie(strNomControleFormulaireLie As String) \n strControlName = strNomControleFormulaireLie \nEnd Property<\/code><\/pre>\n\n\n\nPublic Property Let tableNameLie(strNomTableFormulaireLie As String) \n strTableFormLie = strNomTableFormulaireLie \nEnd Property<\/code><\/pre>\n\n\n\nM\u00e9thode priv\u00e9e<\/strong><\/h2>\n\n\n\n
Private Sub pAttendreFermeture(vlFrmRprt As Object) \n'----------------------------------------------------------- \n' Procedure : pAttendreFermeture \n' Author : Fabrice CONSTANS \n' Date : 20\/10\/2011 \n' Description : Attend la fermeture de l'objet pour rendre la main \n' Param\u00e8tres : vlFr est l'objet \u00e0 controler \n'----------------------------------------------------------- \nOn Error GoTo \npgAttenteFermeture_Error \n\nDo \n DoEvents \nLoop While vlFrmRprt.Visible \n\npgAttenteFermeture_Error: \nOn Error GoTo 0 \n\nExit Sub \nEnd Sub<\/code><\/pre>\n\n\n\nLe Notinlist<\/h2>\n\n\n\n
Public Sub LmCombo_NotInList(NewData As String, Response As Integer) \n'-------------------------------------------------------------------- \n' Procedure : LmContact_NotInList \n' Author : Fabrice CONSTANS (MVP) \n' Date : 21\/01\/2016 \n' Purpose : Nouveau contact, on appelle le formulaire de saisie. \n'------------------------------------------------------------------ \nDim strNouveauNumero As String \nOn Error GoTo Errsub \nIf vbYes = MsgBox(\"Cette valeur n'existe pas. \" & _\n \"Souhaitez-vous la cr\u00e9er ?\", vbInformation + vbYesNo, _ \n \"classe ccombo\") Then \n\n 'ouverture du formulaire en mode Ajout \n DoCmd.OpenForm strFormNameLie, acNormal, , , acFormAdd \n\n 'on g\u00e8le le contr\u00f4le reception de la valeur saisie \n Forms(strFormNameLie).Controls(strControlName).Enabled = False \n\n 'on ajoute la valeur saisie dans la liste \n Forms(strFormNameLie).Controls(strControlName).Value = NewData \n\n 'traitement synchrone \n pAttendreFermeture Forms(strFormNameLie) \n\n 'V\u00e9rification que le valeur existe (peut-\u00eatre que l'utilisateur a \n ' chang\u00e9 d'avis et a annul\u00e9 la cr\u00e9ation \n\n If dLookUp(\"nz(\" & strIdFieldName & \",-1)\" _ \n , strTableFormLie, strControlName & \"=\"\"\" & NewData & \"\"\"\") > 0 Then \n\n 'la valeur a \u00e9t\u00e9 saisi \n Response = acDataErrAdded \n Else \n 'la valeur n'a pas \u00e9t\u00e9 saisi (annulation) \n Response = acDataErrContinue \n LmCombo.Parent.Undo \n End If \nElse \n 'il ne souhaite pas la cr\u00e9ation \n Response = acDataErrContinue \n LmCombo.Parent.Undo \nEnd If \n\nExitsub: \nOn Error GoTo 0 \nExit Sub \n\nErrsub: \nmsgbox \"cComboBox.LmCombo_NotInList\", Err, Erl, Err.Description \n\nEnd Sub<\/code><\/pre>\n\n\n\nLe DblClick<\/h2>\n\n\n\n
A la sortie on pense \u00e0 rafraichir le contenu de la combo au cas ou l’utilisateur a modifi\u00e9 une valeur.
Il va de soit que pour cette derni\u00e8re le traitement doit \u00e9galement \u00eatre synchrone.<\/p>\n\n\n\nPublic Sub LmCombo_DblClick(Cancel As Integer) \n'------------------------------------------------------------------ \n' Procedure : btnEditContact_Click \n' Auteur : Fabrice CONSTANS (MVP) \n' Date : 16\/02\/2016 \n' Purpose : edit et raffraichit la liste au retour \n'------------------------------------------------------------------ ' \nDim Id As Long \nOn Error GoTo Errsub \n\nIf IsNull(LmCombo.Column(0)) Then \n MsgBox \"Pour cr\u00e9er un item vous devez entrer sa valeur.\", _ \n vbInformation + vbOKOnly, \"classe ccombo\" \n Exit Sub \nEnd If \n\nId = LmCombo.Column(0) \nDoCmd.OpenForm strFormNameLie, acNormal, , _ \n strIdFieldName & \"=\" & Id, acFormEdit \n\npAttendreFermeture Forms(strFormNameLie) \nLmCombo.Undo \nLmCombo.Requery \nLmCombo.value = Id \n\nExitsub: On Error GoTo 0 \nExit Sub \nErrsub: msgbox (\"cComboBox.LmCombo_DblClick\", Err, Erl, Err.Description) \n\nEnd Sub<\/code><\/pre>\n\n\n\nUtiliser la classe dans un formulaire<\/h2>\n\n\n\n
Dim cComboClient As cComboBox<\/code><\/pre>\n\n\n\nSet cComboClient = New cComboBox \ncComboClient.controlNameLie = \"RaisonSociale\" \ncComboClient.frmNameLie = \"fClient\" \ncComboClient.idFieldName = \"id_Client\" \nSet cComboClient.objComboBox = Me.Controls(\"lmClient\") \ncComboClient.tableNameLie = \"tClient\"<\/code><\/pre>\n\n\n\n\n
Classe en VBA, quels avantages ?<\/h2>\n\n\n\n