Discussion :

[Smurf94]

Bonjour, comme vous pouvez le constater, la programmation sous VBA Word devient ma grande passion. Et voici qu'un nouveau problème se pose à moi.
J'ai 2 champs dans un .doc
Le 1er est une liste déroulante de 4 éléments. Le second correspond à une seconde liste déroulante de 4 éléments aussi, chacun correspondant à un item de la première liste. Je souhaite automatiser le tout pour que qd je fasse mon choix dans le premier champ, l'item lui correspond dans le 2nd champ se remplisse en auto.
J'ai tenté bêtement un IF Then dans "This Document" mais je dois faire une erreur:

Code :

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

1
2
3
4
5
6
Sub CopierLieu1()
If
ActiveDocument.FormFields("ListeDéroulante3").Result = Brive
Then
ActiveDocument.FormFields("Texte556").Result = 30 Rue du Gral LECLERC
End Sub

---> Erreur synthaxe
Peut on intégrer des Ifs Then dans une macro de ce type? faut il recourir à une userform?

[Heureux-oli]

Dans ta vérification, tu compares le résultat à une variable qui n'est pas déclarée.

Word VBA compare Brive à une Variable qui aurait dû être

Code :

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

1
2
3
Dim Brive As String
 
Brive = "Une texte"

Essaie :

Code :

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

1
2
 
ActiveDocument.FormFields("ListeDéroulante3").Result = "Brive"

[Smurf94]

Rebonjour,
En appliquant le code suivant

Code :

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

1
2
3
4
5
6
7
Sub CopierLieu1()
 
If
ActiveDocument.FormFields("ListeDéroulante3").Result = "Brive"
Then
ActiveDocument.FormFields("Texte3").Result = "Rue du Gral leclerc"
End Sub

en macro de sortie de la liste déroulante3, il ne se passe rien , et word affiche "erreur de synthaxe" en surlignant le If quand je veux cliquer sur le texte 3.

[Heureux-oli]

Tout doit être sur la même ligne dans ce cas précis.

Code :

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

If TestLogique Then Action

ou alors

Code :

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

1
2
3
4
5
If TestLogique Then
    Action 1
Else
    Action 2
End If

ou encore

Code :

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

1
2
3
4
5
6
7
If TestLogique Then
    Action 1
Else if TestLogique Then
    Action 2
Else
    ....
End If

On peut aussi utiliser un Case Select

Code :

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

1
2
3
4
5
6
7
8
Select Case ActiveDocument.FormFields("ListeDéroulante3").Result
Case "Brive"
    Action 1
Case "Paris"
    Action 2
Case Else
    Pour les éventuels oublis
End Select

[Smurf94]

Merci pour cette réponse complète. Malheuresment j'obtiens le message d'érreur " La commande a échoué" (pas terrible pour retrouver l'erreur).
Voici le code erroné:

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
 
Sub CopierLieu()
 
 
Select Case ActiveDocument.FormFields("ListeDéroulante3").Result
Case "Brive"
    ActiveDocument.FormFields("Texte3").Result = "Rue du Gral leclerc"
 
Case "Cholet"
    ActiveDocument.FormFields("Texte3").Result = "Rue Alfred"
Case "Laval"
    ActiveDocument.FormFields("Texte3").Result = "Rue gérard"
    Case "Colombes"
    ActiveDocument.FormFields("Texte3").Result = "Rue jacques"
End Select
End Sub

Quelle pourrait être l'erreur? Merci

[Heureux-oli]

Je ne sais pas, si tu pouvais nous donner une copie de ton document !
Je ne parviens pas à reproduire l'erreur.