Discussion :

[ptitga]

Bonsoir,

Tout est dans le titre. J'ai créé plusieurs formulaires identiques "Toto1" "Toto2" "Toto3" .... comment puis-je en VBA faire une boucle
sur un indice qui permettrait , par exemple, de rendre invisible ces formulaires ?
Je n'arrive pas à trouver la syntaxe qui réaliserait cela.
Merci pour votre aide précieuse.

[hyperion13]

Salut
A tester

Code :

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

1
2
3
4
5
6
7
8
9
Sub ListForms()
Dim frm As Object
    For Each frm In CurrentProject.AllForms
        Debug.Print frm.Name
        If frm.Name Like "formToto*" Then
        SetHiddenAttribute acForm, frm.Name, True
        End If
    Next
End Sub