Private Sub CLsA_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
Dim InfoSuppl As String
If NbrLgn = 0 Then
InfoSuppl = IIf(Complet, "mais ça n'existe pas", "rien n'a été sélectionné")
Else
InfoSuppl = IIf(Complet, "et tous les choix nécessaires ont été fait", "mais il rest des choix à effectuer")
End If
MsgBox NbrLgn & " ligne(s) trouvée(s) " & InfoSuppl, vbInformation, "CLsA_Change"
End Sub
Private Sub CLsA_Résultat(Lignes() As Long)
End Sub