Bonjour le forum
Besoin d'aide pour mettre la procédure ci-dessous dans un module et y faire appel en cas de besoin.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
        Dim i As Integer
        For i = 1 To 5
            If IsNull(DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)) Then
               Controls("ctld" & i) = ""
           Else
               Controls("ctld" & i) = DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)
            End If
        Next