Bonjour a tous,

Quand j'utilise ce code, ma CBox active x disparait et provoque une erreur type Mismatch a la ligne "Next oPic" avec oPic qui est Nothing....


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
 
 
If Target.Address = "$B$36" Then
 
Dim oPic As Picture
    Me.Pictures.Visible = False
 
    With Range("D36")
        For Each oPic In Me.Pictures
 
            If oPic.Name = Range("B36").Text & " Map" Then
                oPic.Visible = True
                oPic.Top = .Top
                oPic.Left = .Left
            End If
 
        Next oPic
    End With
.....

Merci d'avance