Bonjour forum,

Simple question pour vous, les objets shapes, es que ce sont des elements qui sont obligatoirement declarées

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 ComboBox2_Change()
 
    On Error Resume Next
 
    Application.ScreenUpdating = False
 
    If ComboBox2 <> "" Then
 
        Image = rep2 & ComboBox2.Value & ".jpg"
        ActiveSheet.Shapes("Photo2").Fill.UserPicture Image 'Cadre 2
                    Else
    ActiveSheet.Shapes("Photo2").Fill.Solid
    ActiveSheet.Shapes("Photo2").Fill.ForeColor.SchemeColor = 9
    End If
 
    [H21].Select
 
End Sub
Ici la shape c la photo 2 qui a été declaré