Liste déroulante dans formulaire [Résolu]

[ericdev67]

Bonjour,

A la lecture de l'excellent tuto de "HEUREUX-OLI" sur les formulaires, je cherche à mieux organiser mes documents : un peu comme sur le site "Développez.com" :

12 thèmes (Accueil, Conception, Java, etc.....)
x sous thèmes : par exemple pour "Office" : microsoft office, access, excel, word,etc...
x sous-sous thèmes : Office/Word/Tous, Office/Word/VBA, Office/Word/Contribuez

Et lorsque je sélectionne le sous-sous thème, un lien hypertexte m'envoie directement sur le document.

Donc, à la lecture du tuto, j'ai vu qu'il était possible de créer des listes déroulantes avec un sous-thème "imposé" (paragraphe 4, VBA, pays/ville).

Donc questions :
Est-on "obligé" de passer par VBA ? et si oui, peut-on créer un sous-sous thème ? et si oui, comment faire pour le déclenchement du lien hypertexte ?

(Avec Excel, je sais le faire, mais je souhaite passer sous word puisque je veux avoir une présentation "correcte"...)

Merci,

[Heureux-oli]

Salut,

Je pense que tu n'as pas d'autre choix que le VBA.
On peut faire autant de sous-entrées que l'on souhaite, mais le nombre maximum d'entrées de la liste est de 25.

Pour utiliser un hyperlink, on peut le faire en code ou ajouter le lien dans le document ou modifier la cible d'un lien.

[ericdev67]

Merci HEUREUX-OLI,

J'ai fait 2-3 essais pour les sous-sous thème : j'ai essayé à partir de ton code :

Code :

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
36
Sub ListesEnchainees()
Dim stPays As String
Dim stville As String
 
'récupération du pays
stPays = ActiveDocument.FormFields(1).Result
'nettoyage de la seconde liste
ActiveDocument.FormFields(2).DropDown.ListEntries.Clear
'ajout en fonction du pays
Select Case stPays
Case "Belgique"
With ActiveDocument.FormFields(2).DropDown.ListEntries
.Add "Bruxelles"
.Add "Charleroi"
.Add "Liège"
.Add "Mons"
.Add "Namur"
End With
stville = ActiveDocument.FormFields(2).Result
'nettoyage de la seconde liste
ActiveDocument.FormFields(3).DropDown.ListEntries.Clear
'ajout en fonction du pays
Select Case stville
Case "Bruxelles"
With ActiveDocument.FormFields(3).DropDown.ListEntries
.Add "Br"
.Add "Ch"
.Add "Li"
.Add "Mo"
.Add "Na"
End With
 
End Select
End Select
'End Select
End Sub

Donc, Pays : Belgique
Ville : bruxelles
quartier : Br, Ch, Li,etc.... (c'est pour tester...)

Le code ne fonctionne pas : le quartier ne s'affiche pas....

Pourquoi ?

Merci,
A+

[Heureux-oli]

Salut,

Chaque étape doit être séparée.

Si tu fais tout dans la foulée, le code tourne mais ne va pas produire l’effet escompté.

[ericdev67]

Merci HEUREUX-OLI,

Je pense que je n'ai pas compris quand tu me dis : "Chaque étape doit être séparée." :

J'ai donc essayé de déplacer les "End select", ça n'a pas marché,

Je me suis intéressé à l'organisation du code, par exemple en prenant le "pavé"

Code :

1
2
3
4
5
6
7
8
Case "Belgique"
With ActiveDocument.FormFields(2).DropDown.ListEntries
.Add "Bruxelles"
.Add "Charleroi"
.Add "Liège"
.Add "Mons"
.Add "Namur"
End With

j'ai essayé de faire des combinaisons de placement du code : Pays/ville/quartier (mon code initial), puis Pays/ville/quartier, ou Ville/Pays/quartier, etc...ça n'a pas fonctionné non plus.....

Merci d'éclairer ma petite lanterne....

A+

[Heureux-oli]

Salut,

On choisit le pays.
Sur base du choix du pays, on choisit les villes.
Sur base du choix de la ville, on choisit le quartier.

Toutes ces procédures doivent être séparées pour être lancées chacune à leur tour.

[ericdev67]

Merci HEUREUX-OLI,

Comme je te l'ai dit dans un autre post, j'essaye via Javascript qui me permettra de trouver une solution à mon problème, word étant un peu trop "limitatif" dans ce que je recherche....

Merci,

A+ pour de prochaines aventures....