Bonjour le forum
Sur une Boite de dialogue qui permet de selectionner touts les Etats,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
For Each rpt In Application.CurrentProject.AllReports
    if strChaine = String(Len(rpt.Name <> "K*") strChaine Then
 
    Next rpt
Me.Liste1.RowSource = strChaine
J' ai une erreur se synthaxe sur la ligne lui demandant de ne pas afficher les Etats commencant par K, mais sij' occulte l' erreur, mon formulaire s' ouvre et le resultat est ok.
Merci d' avance pour toute aide pour m' aide à modifié le code
Aladin