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 :
Merci beaucoup de votre aide
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 . . . . .
Partager