VBA recherche filtrer de formulaire sur zone de liste deroulante [Résolu]

[Arro2a]

Je vous explique mon probleme :

Après avoir fait plusieurs recherches sur des sites, je suis à la recherche d'une commande VBA pour faire une recherche filtré d'autres formulaires.
Ayant déjà réalisé la commande VBA pour faire la recherche de tous les formulaires et me les placer dans une zone de liste déroulante.
Maintenant je voudrais filtrer ma recherche de formulaire par tous les formulaires qui commencent par le nom "OS".

Merci d'avance si quelqu'un peux m'aiguiller

voici mon code VBA qui se declanche par un click

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
31
32
33
34
35
Sub Form_Open(Cancel As Integer)
 
' Déclaration des varialbes
 
Dim MaBase As Database, Formulaire As Document
 
Dim strListeFormulaires As String
' Initialisation de la variable récupérant la Base en cours
 
Set MaBase = CurrentDb
' Boucle pour récupérer tous les noms des formulaires
 
For Each Formulaire In MaBase.Containers("Forms").Documents
 
    ' Concaténation du nom du formulaire et d'un séparateur ";"
 
strListeFormulaires = strListeFormulaires & Formulaire.Name & ";"
Next
  ' Extraction du dernier ";" de la chaine
 
strListeFormulaires = Left(strListeFormulaires, Len(strListeFormulaires) - 1)
' Initialisation de la liste déroulante
 
Modifiable0.RowSourceType = "Liste Valeurs"
 
Modifiable0.RowSource = strListeFormulaires
 
End Sub
 
Private Sub Modifiable0_Click()
 
    ' cboForms est le nom de la liste déroulante posée sur le formulaire
 
DoCmd.OpenForm Modifiable0
End Sub

[User]

Salut,

Voici ta boucle modifiée pour afficher dans la liste des formulaires dont le nom commence par "OS" :

Code :

1
2
3
4
5
6
7
For Each Formulaire In MaBase.Containers("Forms").Documents
 
    ' Concaténation du nom du formulaire et d'un séparateur ";"
    if Formulaire.Name like "OS*" then
      strListeFormulaires = strListeFormulaires & Formulaire.Name & ";"
   end if
Next

la condition:

Code :

if Formulaire.Name like "OS*" then

est vrai si le nom du form commence par "OS"

A+

[Arro2a]

Merci beaucoup

Bonne soirée a +