Discussion :

[Neutthsch]

Bonjour à tous,

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

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

Dans chaque UserForm je déclare :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...).

[Jean-Philippe André]

Salut,

ta ligne de déclaration n'est pas correcte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devrait être plus précisément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[joe.levrai]

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 ?

[Neutthsch]

devrait être plus précisément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GastonLagaffe25]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Neutthsch]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 , ça fait bien longtemps que je fais cette erreur.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[joe.levrai]

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.