Créer un objet disponible pour tous les modules et userform

Bonjour à tous,

Je suis coincé depuis un moment avec un problème frustrant car je sens que la solution est simple :mouarf:.

J'ai X UserForms qui contiennent Y Procédures.

Dans chaque UserForm je déclare :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public InitWork, InitData, InitList, InitDev, InitPiece, InitAccueil As Object   Private Sub UserForm_Initialize()   Set InitWork = ActiveWorkbook Set InitAccueil = InitWork.Sheets("Accueil") Set InitData = InitWork.Sheets("BdD") Set InitList = InitWork.Sheets("List") Set InitDev = InitWork.Sheets("Inter-Dev") Set InitPiece = InitWork.Sheets("Pièces")

---

Ca marche nickel dans tout l'userform, par contre je n'arrive pas à appeler ces objets depuis un autre UserForm ou un autre module (et donc je les créé à chaque fois...).

Salut,

ta ligne de déclaration n'est pas correcte

Code:

---

Public InitWork, InitData, InitList, InitDev, InitPiece, InitAccueil As Object

---

devrait être plus précisément

Code:

---

Public InitWork As Object, InitData As Object, InitList As Object, InitDev As Object, InitPiece As Object, InitAccueil As Object

---

Je ne comprends pas la seconde partie de ton problème par contre.

Tu utilises une structure de données similaire ?
Pourquoi ne pas passer par les modules de classes ?

Bonjour,

pourquoi ne pas déclarer ces variables publiques dans un module standard ?
et ajouter une seule procédure d'instanciation des objets dans le module standard, qu'il te suffit d'appeler (si besoin) dans tes userform quand il y a changement de classeur actif ?

Citation:

---

Envoyé par jpcheck

devrait être plus précisément

Code:

---

Public InitWork As Object, InitData As Object, InitList As Object, InitDev As Object, InitPiece As Object, InitAccueil As Object

---

---

Voilà déjà un premier point :) cela dit je suis assez surpris, car j'ai toujours déclaré mes variables comme ça et ça marche.

Citation:

---

Je ne comprends pas la seconde partie de ton problème par contre.

Tu utilises une structure de données similaire ?
Pourquoi ne pas passer par les modules de classes ?

---

Bon alors j'ai une 10éne d'Userforms et 1 module qui s'initialise avec des données comprises dans différentes pages de différents tableaux (et qui enregistre aussi dans différents tableaux).

J'aimerais déclarer une bonne fois pour toutes mes objets Sheets... afin de pouvoir naviguer entre les feuilles en utilisant le nom d'objet. Exemple :

Code:

---

InitAccueil.Cells(x,x)=PlanningMetro.Cells(x,x)

---

Jusqu'ici tout marche parfaitement, avec la déclaration de mes objets dans mon userform Ex:UF1, ils sont exploitables par toutes les procédures de UF1.
Le problème c'est que je n'arrive pas à les exploiter dans un autre userform (Ex: UF2) et que je suis donc obliger de les redéclarer dans UF2 et UF3...

J'imagine qu'il faut les déclarer une fois pour toute dans un module (de classe?) mais je ne trouve pas la syntaxe correcte pour que mes objets soient exploitable ensuite partout.

J'espère que c'est clair ;)

Bonjour,

Pourquoi ne crées tu pas une procédure d'initialisation qui te fait un Set (sur des variables globales "projet") des classeurs et feuilles que tu utilises (avec une éventuelle gestion d'erreur si une feuille n'existe pas) ?

Mise à jour: je crois que j'ai fais la même réponse que joe.levrai ...

Remarque sur la déclaration de variable:
si tu ne définis

Code:

---

Public InitWork, InitData, InitList, InitDev, InitPiece, InitAccueil As Object

---

Tu as déclaré 5 variables de type "variant" et une seule de type "Object" (la dernière).
Cela va effectivement fonctionner mais tu n'as pas le typage que tu penses avoir écrit...

Citation:

---

Envoyé par GastonLagaffe25

Remarque sur la déclaration de variable:
si tu ne définis

Code:

---

Public InitWork, InitData, InitList, InitDev, InitPiece, InitAccueil As Object

---

Tu as déclaré 5 variables de type "variant" et une seule de type "Object" (la dernière).
Cela va effectivement fonctionner mais tu n'as pas le typage que tu penses avoir écrit...

---

Alors déjà merci pour l'info, je tombe un peu des nues 8O, ça fait bien longtemps que je fais cette erreur.

Citation:

---

Pourquoi ne crées tu pas une procédure d'initialisation qui te fait un Set (sur des variables globales "projet") des classeurs et feuilles que tu utilises (avec une éventuelle gestion d'erreur si une feuille n'existe pas) ?

---

Bon je suis désolé je suis perdu:?:?.
Si je crée un sub dans un module indépendant je serais obligé d'appeler la variable avec le nom du module, Ex :

Code:

---

Module1.InitAccueil.Cells(x,x)=...

---

Et j'aimerais éviter ça (entre autre parce qu'une énorme partie de mon code est déjà écrit :)).

En gros j'aimerais créer un objet global qui appartient à tout le monde. On est très proche de la définition du module de classe je sais mais je n'arrive pas à formuler ça.

Nul besoin de faire référence au nom du module.

fait comme ça :

1) créer un module standard
2) tout en haut du module, tu déclares tes variables publiques
3) en dessous de la déclaration, tu crée une procédure dans laquelle tu instancies tout tes objets (par exemple, appelle la Initialisation)
4) suivant l'usage de ton projet (que je ne connais pas) : dans la procédure Workbook_Open tu appelles la procédure Initialisation .. ou alors tu lance cette Initialisation au moment qui te semble le plus opportun.

si tes objets ne doivent pas changer .. alors après avoir lancé la procédure Initialisation, tout tes objets sont accessibles directement par leur nom de variable, jusqu'à la fermeture de ton classeur qui contient le code

si tu dois modifier l'instanciation (changement de ActiveWorbook), il te suffit de relancer la procédure Initialisation


j'ai pas mal de projet qui fonctionnent comme ça, et c'est terriblement pratique.

Marchait pas, marchait pas... et j'ai fini par comprendre pourquoi.

J'avais laissé la ligne de déclaration à l'entrée de mon userform et du coup ça fonctionnait pas ^^

Tout est rentrée dans l'ordre ta méthode fonctionne impec, c'est ce que je cherchais merci bcp