Bonjour,

je souhaite sélectionner par la méthode "Intersect" des cellules contenant chacune une image.
Mais l'image est placée "sur" la cellule et ne permet pas à la méthode intersect de fonctionner. (c'est en tout cas ce que je crois comprendre)
Comment puis-je résoudre ce problème ?
Actuellement, voilà ce que je fais et qui marche si les cellules contiennent du texte mais pas si c'est une image :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'
    Dim OK As Boolean
'
    If OK = True Then Exit Sub
'
==========================================
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        OK = True
        ll = 2                              ' mémorisation de la ligne
        kk = 2                            ' mémorisation de la colonne
        OK = False
        GoTo MEP1                     
    End If
'   ======================================================================
    If Not Intersect(Target, Range("D2")) Is Nothing Then
        OK = True
        ll = 2                             ' mémorisation de la ligne 
        kk = 4                           ' mémorisation de la colonne
        OK = False
        GoTo MEP1
    End If
'  etc . . . . .
Merci beaucoup de votre aide