Appel de differente userform dans le programme d'un module

Bonjour à tous :)

Désespéré à force de recherche sur le Web pour trouver une solution à mon problème (si solution il y a), je me tourne vers vous.

1er Problème:

Je voudrais appeler à intervenir deux userform différente à des moments précis dans un même module.

Il faudrait pour cela, créer une variable qui serait intégré aux Sub dans mon module par un ByRef.
Cette variable doit contenir soit le nom complet de l'userform, soit juste le numéro (Peu m'importe).

En effet, ces deux userform interviennent dans le but de rechercher une valeur et d'en écrire une autre dans des ComboBox. La premiére permet de rajouter une entreprise en spécifiant sa fonction, son domaine, sa spécialité et son complément. Ces valeurs sont imposées par moi-même, et elle son liées.

Exemple:
Fonction = BET
Domaine peut contenir : Architecte, Généraliste, ... ...

Fonction = Sous-Traitant
Domaine peut contenir : Elec, Plomberie ... ...

Je vous insert un exemple du code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

'Code dans mon UserForm2 Private Sub CFonction_Change() 'INFO SUIVANT CFonction Dim Number As Integer Number = 2 Remplissage_ComboBox.CFonction (Number) End Sub 'Identique pour le userform3 sauf que Number sera égal à 3 'Code dans mon Module Sub CFonction(ByRef Number As Integer) 'Remplir le ComboBox CDomaine en SUIVANT celui rempli précédement : CFonction If UserForm(Number).CFonction.Value = "" Then 'Clear des ComboBox suivant UserForm(Number).CDomaine.Clear UserForm(Number).CSpecialite.Clear UserForm(Number).CComplement.Clear End If If UserForm(Number).CFonction.Value = "BET" Then UserForm(Number).CDomaine.Clear UserForm(Number).CSpecialite.Clear UserForm(Number).CComplement.Clear UserForm(Number).CDomaine.AddItem "Architecte" UserForm(Number).CDomaine.AddItem "BET Contrôle" UserForm(Number).CDomaine.AddItem "Expertise" UserForm(Number).CDomaine.AddItem "Generaliste"

---

2eme Probléme (Moins important puisque fonctionnel):

De plus, si vous avez également quelque idées d'améliorations de mon remplissage de ComboBox je suis preneur. En effet, actuellement je les remplis en fonction du ComboBox précédent:

1er Fonction
2eme Domaine
3eme Spécialité
4eme Complément

Donc Domaine se remplira en fonction de ce qui a été ajouté dans Fonction. Mon second problème et donc la longueur de mon code. Puisque il y a beaucoup de possibilité.
Toute mes possibilités sont écrite dans mon code, ce qui ne permet pas son l'ajout facilement de nouvelle données.

Merci d'avance pour votre aide. Si il vous faut également une image de mon userform, je peux vous l'envoyer. ;)

Bonjour Warthill, bonjour le forum,

Une proposition pour rentrer deux userforms dans un tableau de variable. Je suis pas sûr que cela t'aide beaucoup...
Le contexte : deux userforms nommées : UserForm1 et Userform2 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public US(1 To 2) As Object   Public Sub Macro1() Dim I As Byte   Set US(1) = UserForm1 Set US(2) = UserForm2 For I = 1 To 2 US(I).Show Next I End Sub

---

Le problème ici est surtout l'adaptabilité du type de variable à rentrer dans le Sub du module et en effet, j'ai essayé avec un tableau, ça ne fonctionne pas non plus.

Je pense qu'il faut juste que je trouve l'écriture correcte pour cela :

Code:

---

If UserForm(Number).CFonction.Value = "" Then

---

Et le type de variable à assigner dans mon Sub :

Code:

---

1 2 3

Sub CFonction(ByRef Number As Integer) Remplissage_ComboBox.CFonction (Number)

---

Merci quand même! Peut être que ta solution est adaptable, mais à ce moment la, je ne vois pas comment.