Bonjour,

J'ai une liste de contact qui regroupe diverses catégories.
Dans un formulaire de commande, j'ai crée via la T_Commande une liste déroulante des contacts (nom, adresse et catégorie), mais je n'ai besoin d'avoir dans cette liste que deux catégories de contacts la n°4 et 5.
J'ai trouvé dans le faq le code suivant à mettre dans l'évènement MAJ de la liste déroulante du formulaire :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
On Error GoTo GestErr
 
    Static lngItems()  As Long
    Dim lngLoop     As Long
    Dim varItems    As Variant
 
    Client.Selected(0) = False
    Client.Selected(1) = False
    If Client.ItemsSelected.Count > 10 Then
        Cancel = True
        'désactiver tous les champs
        For lngLoop = 2 To Client.ListCount - 1
            Client.Selected(lngLoop) = False
        Next
        'réactiver uniquement la sélection précédente
        For lngLoop = 0 To UBound(lngItems)
            Client.Selected(lngItems(lngLoop)) = True
        Next
    Else
        'redéfinir la sélection en cours
        ReDim lngItems(Client.ItemsSelected.Count - 1)
        For lngLoop = 0 To Client.ItemsSelected.Count - 1
            lngItems(lngLoop) = Client.ItemsSelected(lngLoop)
        Next
        Cancel = False
    End If
FinProg:
    Exit Sub
GestErr:
    If Err.Number = 91 Then
        For lngLoop = 0 To Client.ListCount
            Client.Selected(lngLoop) = False
        Next
    End If
    Resume FinProg
J'ai modifié le champ "lstChamps" par mon champ "Client".
Mais ça ne fonctionne pas, j'ai toujours ma liste complète de contact, y'a t-il qqchose que je n'ai pas bien fait?

Merci d'avance,
Maringot