Discussion :

[push63]

Bonjour à tous

J'atteins une partie de mes limites sur word

Un contenu sous forme de liste déroulante est crée (jaune) Le nom complet et la valeur son identique

Un 2nd contenu sous forme de liste déroulant (vert) . Le nom complet de la ville et la valeur serait l'adresse par exemple

Est il possible de lié le résultat du premier contenu (jaune) et de définir le 2nd en vert

Je m'explique si je sélectionne NANTES dans l'encadré jaune => Ca me donne l'adresse de nantes dans l'encadré vert.

Un peux comme excel et sa fonction rechercheV

Merci pour votre aide

[m@rina]

Bonjour,

Pour moi ta deuxième liste déroulante ne sert à rien. En fait ce que tu veux, c'est un texte particulier en fonction du choix dans la liste déroulante jaune... Donc, le résultat de ce choix ne doit pas être mis sous forme de liste.

De toutes façons, il faut une macro.

m@rina

[push63]

J'essaie de faire la macro mais je n'y arrive pas

Pour info j'ai mis en titre de la premiére liste : Agence
Et de la zone texte T 21

Comment puis je utiliser la formule dans un tableau : je serais en case B2

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
 
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
 
Dim texte As String
Dim choix As String
choix = CC.Range.Text
 
If CC.Title = "Agence" Then
 
Select Case choix
Case "Nantes"
 texte = "TEST NANTES LIEUX"
Case "Lyon"
 texte = "TEST LIEU LYON"
 
End Select
 
With ActiveDocument.Shapes("T21").TextFrame
    .TextRange.Text = texte
    .AutoSize = True
End With
End If
End Sub

[m@rina]

Tu dis que tu n'y arrives pas, mais on ne sait pas pourquoi... Message d'erreur ??

Pour un tableau, en cellule B2, tu remplaces le remplissage de la zone de texte par :

Code :

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

ActiveDocument.Tables(1).Rows(2).Cells(2).Range.Text = texte

Supposant qu'il s'agit du premier tableau du document.

J'insiste sur le fait que, contrairement à Excel, il y a peu d'événements avec Word, et avec ces contrôles de contenu, il s'agit d'un événement à la sortie (il n'existe pas d'événement sur le changement). Donc, une fois le choix fait, il faut vraiment cliquer ailleurs.

[push63]

Quand je lance la macro ça me fait

Microsoft Word =0

Je ne pige vraiment pas le truc...

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
'macro écrite par m@rina
 
Dim texte As String
Dim choix As String
choix = CC.Range.Text
 
If CC.Title = "Agence" Then
 
Select Case choix
Case "Nantes"
 texte = "Adresse Nantes"
Case "Lyon"
 texte = "Adresse Lyon"
End Select
 
With ActiveDocument.Shapes("Adresse").TextFrame
    .TextRange.Text = texte
    .AutoSize = True
End With
End If
End Sub
 
Private Sub Document_ContentControlOnExitee(ByVal CC As ContentControl, Cancel As Boolean)
If CC.Title = "Saisons" Then
 
Dim texte As String
Dim choix As String
 
choix = CC.Range.Text
 
Select Case choix
Case "Nantes"
 texte = "Adresse Nantes"
Case "Lyon"
 texte = "Adresse Lyon"
End Select
 
'ActiveDocument.InlineShapes("Adresse").TextFrame.TextRange.Text = texte
ActiveDocument.InlineShapes(1).Select
Selection.TypeText Text:=texte
End If
End Sub
Sub testd()
MsgBox ActiveDocument.Shapes.Count
For Each machinchose In ActiveDocument.Shapes
MsgBox machinchose.Name
Next
End Sub

[m@rina]

Déjà, tu n'as pas à "lancer" la macro, c'est une macro événementielle...

La première macro ne peut pas fonctionner, tu n'as pas de "Shape" nommé "adresse".*

La seconde macro ne peut pas fonctionner, il n'y a pas d'Inlineshape, et une InlineShape n'a pas de propriété Textframe

Pour le tableau :

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
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
If CC.Title = "Agence" Then
 
Dim texte As String
Dim choix As String
 
choix = CC.Range.Text
 
Select Case choix
Case "Nantes"
 texte = "Adresse Nantes"
Case "Lyon"
 texte = "Adresse Lyon"
End Select
 
ActiveDocument.Tables(1).Rows(5).Cells(2).Range.Text = texte
End If
End Sub

m@rina

[push63]

Bonsoir Marina.

Je n'arrive pas à comprendre le langage. On parle de Inshape et de shape ça ne me parle pas du tout

J'ai crée une liste déroulante avec nom et balise Adresse.

Après je ne vois pas comment il faut faire. JE te remercie , je suis franchement désolé de t'avoir fait bosser pour rien

[m@rina]

Bonsoir,

Je ne sais plus quoi te répondre !
Tu me donnes un fichier, je te donne la macro qui va avec...

Que faire de plus ?

Là, on ne parle plus de Shape ou Inlineshape...

m@rina

[push63]

Bonsoir Marina,

Tout es ok. Je devais sacrément être à la rue avant hier

JE te remercie pour le code et les liens. J'ai pu apprendre pas mal de choses.

Bonne soirée

[m@rina]

Ahhhh ! me voilà rassurée !!!
ça finissait par ressembler à une conversation en mandarin sans sous-titrage !!

m@rina

[push63]

En plus j'ai pu réadapter pas mal de chose, ça m'aide énormément

Ahhhh ! me voilà rassurée !!!
ça finissait par ressembler à une conversation en mandarin sans sous-titrage !!

m@rina