Discussion :

[Nico451]

Bonjour,

J'ai un UserForm que je configurer en fonction d'un dossier que j'appelle.

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    If TextBox21.Value = "Dossier1" Then
        Call Configuration_Dossier1
    ElseIf TextBox21.Value = "Dossier2" Then
        Call Configuration_Dossier2
    End If
End Sub

Le truc, c'est que l'UserForm s'ouvre bien mais la configuration que je veux ne se met pas en place. je devrait avoir des Frame qui n'apparaisse pas, des TextBox grisé, etc...
Mais là rien. Avant je n'avais qu'une configuration, comme maintenant j'ai plusieurs projets je voudrait pouvoir configurer mon UserForm en fonction de mes projets, de plus je voudrait que les particularités par projet soit traité dans des modules, mais je ne vois pas comment faire.

Je me suis renseigné sur les modules de Classe mais je n'ai pas trouvé une explication que je comprenne avec un exemple concret, si quelqu'un a une explication ou un site, je pense que ça pourrais peut être m'aider dans mon codage.

Merci

[Pierre Fauconnier]

Salut.

A l'initialisation de ton formulaire, Textbox21 ne contient rien. Dès lors, le code que tu as fourni ne pourra jamais fonctionner. Un simple point d'arrêt sur le début de la procédure t'aurait permis de vérifier cela...

Initialize n'est pas le bon moment pour configurer ton userform, car cet événement est levé juste après le chargement du formulaire, avant la toute première manipulation.

Perso, je coderais de la façon suivante, dans un module standard

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Chargement(Dossier As String)
 
  Run "Configuration_" & Dossier
  UserForm1.Show
End Sub
 
Sub Configuration_Dossier1()
 ...
 ...
End Sub
 
Sub Configuration_Dossier2()
 ...
 ...
End Sub

Mieux encore, j'essaierais de paramétrer les configurations dans un tableau Excel, ce qui me permettrait d'éviter d'écrire autant de procédures qu'il y a de configurations à réaliser...





Au passage, prends le temps de nommer correctement tes contrôles (Textbox21, c'est bof bof). De plus, Call n'est pas obligatoire. Tu peux appeler directement les procédures.

[Nico451]

Salut,

Merci Pierre. Justement je copie une plage de cellule Excel mais il faut bien que je les mettes en place dans mes Label. De plus il y a pas mal de choses qui sont caché, ou verrouillé tant qu'une action n'as pas été faite. Et c'est pour ça qu'il faut que je regarde se qui doit être mis dans la procédure particulaire du projet et ce qui est commun à tous.

il faut que j'imprime mes différente configuration pour voir comment faire.

Je ne veux pas mettre des nom explicite car d'un projet à un autre ça peut changer. au moins je suis assez libre et surtout je ne me mélange pas les crayon.

J'ai fait une copie d'écran et j'ai notée dessus les noms des label pour chaque configuration pour moi c'est plus simple.

Le point d'arrêt je n'y avait pas pensé.