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