Bonjour,

Comme suite à une sélection multiple dans une liste dérourante, je souhaite afficher en mode aperçu les états ainsi sélectionnés.

Je voudrais que le code s'arrête dés l'affichage d'un état et jusqu'à la fermeture manuelle de celui-ci, puis reprenne son déroulement pour afficher l'aperçu de l'état suivant.

Voici une partie de mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With Forms("Engagements").DépartsT
            For n = 0 To .ListCount
                If .Selected(n) = True Then
                    Filtre = "Compétition=" & "'" & .Column(0, n) & "'"
                    If Forms("Engagements").AperçuE.Caption = "Aperçu" Then
                        On Error Resume Next
                        If Reports("CoureursEngagés").Visible = True Then _
                           DoCmd.Close acReport, "CoureursEngagés"
                        DoCmd.OpenReport "CoureursEngagés", acViewPreview
                        On Error GoTo 0
                    Else
                        DoCmd.OpenReport "CoureursEngagés"
                    End If
                End If
            Next n