Discussion :

[loofok]

Bonjour,

Je débute avec les macros word et j'aimerai savoir s'il est possible de remplir une liste déroulante à partir de plusieurs "textbox1, textbox2..."
J'ai utilisé une ListeDer "formulaire hérité".

Code :

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

1
2
3
4
5
6
    For I = 1 To 21
            If I > 20 Then Exit For
            With ActiveDocument.FormFields("ListeDer").DropDown.ListEntries
                .Add ActiveDocument.FormFields("textbox" & I)
            End With
    Next I

Je n'ai probablement pas saisi qque chose car dans ma liste déroulante, j'ai n fois 70 ! oups...

Merci par avance pour votre aide

[Invité]

Bonsoir,

70 correspond au type :

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
 
Sub CompterLesControles()
 
Dim I As Integer
Dim DocEnCours As Document
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
 
         If .FormFields.Count = 0 Then Exit Sub
 
            Debug.Print "Nombre de champs : " & .FormFields.Count
 
         For I = 1 To .FormFields.Count
             With .FormFields(I)
                  Debug.Print "Nom : " & .Name & ", type : " & .Type
             End With
         Next I
 
    End With
    Set DocEnCours = Nothing
 
End Sub

Pourquoi cherchez-vous à remplir cette liste par cette méthode ?

[loofok]

Bonjour,

Je voulais savoir comment s'y prendre pour peupler une liste déroulante, à partir des informations saisies dans les "textbox".
Ensuite, l'idée est de pouvoir choisir une adresse de la liste déroulante constituée pour la réutiliser dans le document.

Merci pour votre réponse. Je vais essayer et reviendrai donner le résultat.

[Invité]

Bonjour,

Le plus simple serait d'importer une table depuis Excel.

[loofok]

Bonjour,

Je comprends, mais je ne sais pas encore faire cela et je n'ai que 20 occurrences pour la liste déroulante.
C'est un peu basic comme solution. Cela dit, l'import d'excel m'intéresse aussi, pour "l'exercice", car il n'est exclu d'en avoir l'utilité prochainement.

[Invité]

Sinon, regardez ce billet dans mon blog où je montre comment utiliser la collection Variables pour stocker des données. https://www.developpez.net/forums/bl...document-word/

[loofok]

Bonjour
Ah oui... je vais devoir m'y plonger ! Je reviendrai donner le résultat.
En tout cas, merci pour l'aide.

[loofok]

Bonjour

Je reviens, car j'ai trouvé comment peupler une zone de liste déroulante "formulaire hérité.
C'est basique mais cela répond à mon problème :

Code :

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

1
2
3
4
5
6
7
8
9
    For I = 1 To 21
        If I > 20 Then Exit For
        wMail2 = ActiveDocument.FormFields("Mail" & I).Result
        If wMail2 <> "" Then
            With ActiveDocument.FormFields("ListeD2").DropDown.ListEntries
                .Add wMail2
            End With
        End If
    Next I

Il me reste la 2ème partie à faire : choisir une valeur de la liste et alimenter un champ
En l'occurence, c'est une adresse mail à mettre dans un champ texte ou envoyer un mail avec.

Merci Eric pour ton aide... je vais voir pour les liens avec excel et l'utilisation d'une variable à lire.
nb : je garde ce post ouvert pour la 2ème partie de mon problème.

[loofok]

Bonjour,

2ème partie de mon problème : alimenter un contrôle de contenu que j'identifie par sa balise, à partir d'une valeur saisie

Pour le moment je suis bloquée sur l'ajout :

Code :

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

1
2
3
4
5
6
wMail3 = InputBox("Veuillez saisir une adresse mail...", "Adresse e-mail", "votre e-mail", vbOKCancel)
        If wMail3 <> "" Then
           msgbox "l'adresse mail saisie est " & wMail3
           Set wCC = ActiveDocument.SelectContentControlsByTag("mailmodif")
           wCC.DropDown.ListEntries.Add = wMail3
        End If

[Invité]

Bonsoir,

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
 
Sub Test()
 
Dim wMail3 As String
Dim Wcc As FormField
Dim I As Integer
 
    With ActiveDocument
         wMail3 = InputBox("Veuillez saisir une adresse mail...", "Adresse e-mail", "votre e-mail", vbOKCancel)
        If wMail3 <> "" Then
           Set Wcc = .FormFields("mailmodif")
           MsgBox "l'adresse mail saisie est " & wMail3
           With Wcc
              .DropDown.ListEntries.Add Name:=wMail3
 
              For I = 1 To .DropDown.ListEntries.Count
                  Debug.Print .DropDown.ListEntries(I).Name
              Next I
 
           End With
           Set Wcc = Nothing
        End If
    End With
 
End Sub

[loofok]

Bonjour,

Merci pour votre aide. J'obtiens bien le résultat attendu.

Mon erreur provenait du type de contrôle choisi "contrôle de contenu" au lieu de "liste déroulante modifiable

C'est résolu !

[Invité]

Sinon, sur mon blog :

• word-charger-liste-deroulante-excel
• word-afficher-carnet-dadresse-outlook-userform-word
• word-charger-combobox-range-excel