Sujet Précédent Sujet Suivant

Liste déroulante sur Word à partir d'une base de données Excel

Fermé
natruim - 3 déc. 2020 à 15:07
m@rina Messages postés 20849 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 septembre 2024 - 3 déc. 2020 à 15:12
Bonjour,
Je souhaiterais créer une liste déroulante sur Word à partir d'une liste sur excel.
J'ai créé ça mais je suis complètement novice car je ne sais pas la mettre sur la liste déroulante sur Word:


Private Sub ComboBox1_DropButtonClick()
With ComboBox1
.AddItem "09h00"
.AddItem "09h05"
.AddItem "09h10"
.AddItem "09h15"
.AddItem "09h20"
.AddItem "09h25"
.AddItem "09h30"
.AddItem "09h35"
.AddItem "09h40"
.AddItem "09h45"
.AddItem "09h50"
.AddItem "09h55"
.AddItem "10h00"
.AddItem "10h05"
.AddItem "10h10"
.AddItem "10h15"
.AddItem "10h20"
.AddItem "10h25"
.AddItem "10h30"
.AddItem "10h35"
.AddItem "10h40"
.AddItem "10h45"
.AddItem "10h50"
.AddItem "10h55"
.AddItem "11h00"
.AddItem "11h05"
.AddItem "11h10"
.AddItem "11h15"
.AddItem "11h20"
.AddItem "11h25"
.AddItem "11h30"
.AddItem "11h35"
.AddItem "11h40"
.AddItem "11h45"
.AddItem "11h50"
.AddItem "11h55"
.AddItem "12h00"
.AddItem "12h05"
.AddItem "12h10"
.AddItem "12h15"
.AddItem "12h20"
.AddItem "12h25"
.AddItem "12h30"
.AddItem "12h35"
.AddItem "12h40"
.AddItem "12h45"
.AddItem "12h50"
.AddItem "12h55"
.AddItem "13h00"
.AddItem "13h05"
.AddItem "13h10"
.AddItem "13h15"
.AddItem "13h20"
.AddItem "13h25"
.AddItem "13h30"
.AddItem "13h35"
.AddItem "13h40"
.AddItem "13h45"
.AddItem "13h50"
.AddItem "13h55"
.AddItem "14h00"
.AddItem "14h05"
.AddItem "14h10"
.AddItem "14h15"
.AddItem "14h20"
.AddItem "14h25"
.AddItem "14h30"
.AddItem "14h35"
.AddItem "14h40"
.AddItem "14h45"
.AddItem "14h50"
.AddItem "14h55"
.AddItem "15h00"
.AddItem "15h05"
.AddItem "15h10"
.AddItem "15h15"
.AddItem "15h20"
.AddItem "15h25"
.AddItem "15h30"
.AddItem "15h35"
.AddItem "15h40"
.AddItem "15h45"
.AddItem "15h50"
.AddItem "15h55"
.AddItem "16h00"
.AddItem "16h05"
.AddItem "16h10"
.AddItem "16h15"
.AddItem "16h20"
.AddItem "16h25"
.AddItem "16h30"
.AddItem "16h35"
.AddItem "16h40"
.AddItem "16h45"
.AddItem "16h50"
.AddItem "16h55"
.AddItem "17h00"
.AddItem "17h05"
.AddItem "17h10"
.AddItem "17h15"
.AddItem "17h20"
.AddItem "17h25"
.AddItem "17h30"
.AddItem "17h35"
.AddItem "17h40"
.AddItem "17h45"
.AddItem "17h50"
.AddItem "17h55"
.AddItem "18h00"
.AddItem "18h05"
.AddItem "18h10"
.AddItem "18h15"
.AddItem "18h20"
.AddItem "18h25"
.AddItem "18h30"
.AddItem "18h35"
.AddItem "18h40"
.AddItem "18h45"
.AddItem "18h50"
.AddItem "18h55"
.AddItem "19h00"

End With
End Sub
Sub ListBox1()
'
' ListBox1 Macro
'
'

End Sub



Configuration: Windows / Firefox 83.0
A voir également:

1 réponse

Réponse 1 / 1
m@rina Messages postés 20849 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 septembre 2024 11 325
3 déc. 2020 à 15:12
Bonjour,

C'est sûr que tu es mal partie avec cette macro ! :)

Regarde ici :
https://faqword.com/index.php/word/formulaires-controles/1183-comment-alimenter-un-controle-de-contenu-liste-deroulante-avec-une-plage-de-donnees-excel

et ici :
https://faqword.com/index.php/word/publipostage/547-macro-userform-publipostage

m@rina
0