Discussion :

[guigui69]

Bonjour à tous,

Est-il possible de réaliser une liste déroulante sous Word 2003, qui va servir à générer un texte.

Pour faire simple je voudrais une liste déroulante avec le nom de plusieurs sociétés. Et si je choisis telle ou telle société cela insère dans word à un endroit précis le nom société +adresse+ cp etc...

Est ce possible ?

Merci d'avance pour vos explications.


guigui69

[Heureux-oli]

Salut,

Un peu de lecture ?

http://heureuxoli.developpez.com/off...cument-tiroir/
http://heureuxoli.developpez.com/off...d/formulaires/

[guigui69]

Merci pour votre tuto.

Par contre

je ne sais pas ou je doit mettre ce code:

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
 
 
Private Sub UserForm_Initialize()
'Déclaration des variables
Dim oDoc As Document
Dim tblListe() As String 'tableau pour le remplissage de la liste
Dim tblTemp() As String 'Tableau temporaire pour la fonction split
Dim intP As Integer 'Entier pour l'index des paragraphes
 
	'Affectation des données aux objets
	Set oDoc = Application.Documents.Open("c:\temp\data.docm")
 
 
	'redimensionnement du tableau en fonction du nombre de paragraphes
	'contenus dans le document
	ReDim tblListe(oDoc.Paragraphs.Count, 1)
	'Boucle sur le paragraphes du document
	For intP = 1 To oDoc.Paragraphs.Count
		'remplissage du tableau temporaire
		tblTemp() = Split(oDoc.Paragraphs(intP).Range.Text, " - ")
		'transfert des données du tableau temporaire vers la table de remplissage
		tblListe(intP, 0) = tblTemp(0)
		tblListe(intP, 1) = tblTemp(1)
 
	Next intP
	'transfert des données vers la liste du UserForm
	Me.lstChoix.List = tblListe
	'Fermeture et libération des objets
	oDoc.Close
	Set oDoc = Nothing
 
 
End Sub

guigui69

[Heureux-oli]

Salut,

Si je lis ton premier message.

De quelle liste parles-tu ?

Une liste ActiveX ?
Un champ de formulaire ?
Un omboBox dans un UserForm ?

Je t'ai donné un peu de lecture pour tu puisses orienter ton choix et ton message.

Le code que tu nous donnes va sur un UserForm.

[guigui69]

Bonjour,

J'aurai des donnée:

societe1| SARL BOB- 25 rue du coin-PARIS -75000
societe1| SA LOLO- 10 rue du charle-DIJON -21000
etc...


et je voudrais réaliser une liste déroulante qui lorsque je choisis société1
cela ajoute dans mon document word :

NOM
Adresse
CP Ville


guigui69

[Heureux-oli]

Salut,

Tu ne réponds pas à la question !