Bonsoir le fil, le forum
Une suggestion
(Si on insère l'image dans un contrôle Image)
On peut utiliser ce type de code
Private Sub Image1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Select Case Round(X, 0)
Case 25 To 40
MsgBox "Tonton Marcel"
Case 42 To 59
MsgBox "Cunégonde"
Case Else
'
End Select
End Sub