Discussion :

[yougmeaz]

Bonjour à toutes et tous,

J'ai créé des liste créant d'autres listes avec des dropdown listentries et tout fonctionne très bien.

MAIS, évidemment il y a un mais ! Lorsque je passe le formulaire en mode protégé et que je navigue avec ma touche TAB, une erreur survient lorsque je passe le 2nd formfields qui est "service" (je vous ai mi un bout du code juste en dessous). Le truc (et je pense que le probleme vient de là) c'est que "service" est déjà une liste créée en fonction d'un évennement précédent (une autre liste qui est "département"), en gros quand je choisi un département il me donne une liste de service et quand je choisis un service il me donne les postes qu'il renfèrme.

J'obtiens donc : Erreur d'execution 5825 - L'objet a été supprimé

Puis quand je passe en mode debug, il me surligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

service = ActiveDocument.FormFields("service").Result

que vous avez ci dessous

J'ai essayé de trouver une solution sans succès, alors avez-vous une idée ?

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
Sub dptposte()
Dim service As String
 
service = ActiveDocument.FormFields("service").Result
 
ActiveDocument.FormFields("IDposte").DropDown.ListEntries.Clear
 
Select Case service
 
Case "Choisissez un service."
    With ActiveDocument.FormFields("IDposte").DropDown.ListEntries
        .Add "Choisissez un poste"
    End With
 
Case ""
    With ActiveDocument.FormFields("IDposte").DropDown.ListEntries
        .Add "Choisissez un poste"
    End With
 
Case "DVM - 12500"
    With ActiveDocument.FormFields("IDposte").DropDown.ListEntries
        .Add "TECH. COMMERCIAL"
        .Add "ASSIST. DVM"
        .Add "DIRECTEUR DVM"
        .Add "RESP. COMMERCIAL"
        .Add "RESP. DVPT NVX PROJETS"
        .Add "RESP. COMMERCIAL EUROP"
        .Add "CHARGE DVPT NVX PROJETS"
        .Add "TECH. COMMERCIAL"
    End With

[yougmeaz]

Re,

En écrivant le message précédent, j'ai eu une iluminitation en soupçonant le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.FormFields("service").DropDown.ListEntries.Clear

d'être à la source du problème.

J'ai donc rajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.FormFields("service").Result = "Choisissez un service"

Et je n'ai donc plus le problème puisque le formfields n'est plus vide !

Si d'autres solutions existent je suis preneur