'----------------------------------------------------------
' Les tableaux Images et Cadre sont nommés
' Tableau_Images pour le 1er
' Tableau_Cadre pour le 2ème
''----------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lg As Integer
Dim ht As Integer
'Cible dans colonne C du tableau-Images ?
If Not Intersect(Range("Tableau_Images"), Target) Is Nothing And Target.Column = 3 Then
lg = Target
ht = Target.Offset(0, 1)
Chercher_Cadre lg, ht
End If
End Sub
'----------------------------------------------------
' A mettre dans un module
'----------------------------------------------------
Option Explicit
Sub Chercher_Cadre(large As Integer, haut As Integer)
Dim col As Integer
Dim lig As Long
Dim trouvé As Boolean
col = Range("Tableau_Cadre").Column
lig = Range("Tableau_Cadre").Row
trouvé = False
Do While Cells(lig, col) <> ""
If Cells(lig, col) >= large And Cells(lig, col + 1) >= haut Then
MsgBox "Le cadre " & Cells(lig, col) & " x " & Cells(lig, col + 1) & " convient ?", vbInformation
trouvé = True
Exit Do
End If
lig = lig + 1
Loop
If trouvé = False Then
MsgBox "A priori aucun cadre pour cette image !", vbInformation
End If
End Sub