remplacer le nom d'un formulaire par une variable dans un Public Sub
Bonjour à tous,
J'ai plusieurs formulaires qui doivent utiliser les même calculs d'une procédure public. J'ai trouvé un sujet traitant de cela de Pepito, mais ça ne fonctionne pas.
Je voudrais que frmUse est la valeur de la variable Public comme nom de formulaire
ex: ComposantePourQuelForm = "frmABC"
Select case forms!frmUse.PmatDashboard équivaudrait à Select case forms!frmABC.PmatDashboard
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Dim frmUse As Form
Set frmUse = Application.Forms(ComposantePourQuelForm)
Select Case Forms!frmUse.PmatDashboard
Case 283 ' pied linéaire
' Forms!frmUse.PmatQteEstime = Forms!frmDashboardMur!MeoLongueurMur
....
End select |
Merci à l'avance
