Sur quelques diapos j'ai aussi quelques combobox avec le même contenu.
Normalement, le code que j'ai fait ça marche, mais je voulais savoir s'il existe une métode plus courte pour ne pas devoir copier à chaque fois le contenu de combobox.

merci d'avance, et voilà mon 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
34
35
36
37
38
 
 
Sub weeklyrapport()
 
Dim oShape As Shape
Set oShape = ActivePresentation.Slides(23).Shapes("ComboBox1")
 
With oShape.OLEFormat.Object
.Clear
 
.AddItem ("To manage back office team in Mar")
.AddItem ("To monitor FAL performance in Poland")
.AddItem ("To get through QG 3")
 
Set oShape = ActivePresentation.Slides(23).Shapes("ComboBox2")
 
With oShape.OLEFormat.Object
.Clear
 
.AddItem ("To manage back office team in Mar")
.AddItem ("To monitor FAL performance in Poland")
.AddItem ("To get through QG 3")
 
Set oShape = ActivePresentation.Slides(23).Shapes("ComboBox3")
 
With oShape.OLEFormat.Object
.Clear
 
.AddItem ("To manage back office team in Mar")
.AddItem ("To monitor FAL performance in Poland")
.AddItem ("To get through QG 3")
 
 
End with
End with
End with
 
End Sub