[VBA]Création dynamique de code

Bonjour,

Depuis un formulaire, suite aux sélections de l'utilisateur, je crée dynamiquement un autre formulaire qui affiche des résultats. Ce formulaire est une grille qui possède n colonnes (selon les choix de l'utilisateur).
Je voudrais pouvoir créer, dynamiquement aussi, du code qui s'exécuterait lorsque l'utilisateur double-clic dans une cellule (afin d'afficher un autre formulaire représentant le détail).
Comment faire pour créer dynamiquement le code VBA ?

Merci.

Bonjour,

Pour créer dynamiquement du code, il faut instancier un module, en l'occurence celui associé à ton formulaire:
Dim frm as form, mdl as Module

set frm = ...
set mdl = frm.Module

...

mdl.InsertLines ...

Pour insérer une procédure évenementielle, donner à la procédure un nom adapté, par ex :
sub MonControle_OnDblClick()

et dans la propriété OnDblClick du contrôle : [EventProcedure]

Bon courage,

PGZ

Va jeter un coup d'oeil la dessus : http://access.developpez.com/faq/?pa...reeDynCtrlCode

Bonjour

Sinon ici, c'est pour Excel, mais je pense que l'on peut l'adapter à Access.

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Je n'ai jamais essayer, mais jette un coup d'oeil dés fois que.

Starec

Voici la syntaxe du bidule :

Code:

---

1 2 3 4 5 6

Dim mdl As Module Dim lngRetour As Long Set mdl = Forms("LeNomDuForm").Module lngRetour = mdl.CreateEventProc("DblClick", "LeNomDuChamp") lngRetour = lngRetour + 1: mdl.InsertLines lngRetour, "Dim iInt_Id As integer" lngRetour = lngRetour + 1: mdl.InsertLines lngRetour, "iInt_Id =4"

---

LeNomDuChamp ne doit pas comporter de caractères autres qu'alphanumériques.
Il faut remplacer les espaces et - par _, les autres caractères (<, >, ...) par "ctl_"