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 : Sélectionner tout - Visualiser dans une fenêtre à part
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