Gerald note que lorsque vous déplacez la souris sur une image d’une feuille de calcul, le pointeur de la souris est une croix. Il veut savoir comment il peut déterminer, à l’aide de VBA, les coordonnées de la croix lorsque la souris est cliquée.

Excel ne vous permet pas (même avec VBA) d’obtenir les coordonnées du pointeur de la souris sur un graphique inséré sous forme d’image normale dans la feuille de calcul. Si vous insérez l’image à l’aide d’un objet Image dans la boîte à outils Contrôle, vous disposez d’un peu plus de latitude. En effet, vous pouvez utiliser le gestionnaire d’événements MouseDown pour déterminer les coordonnées, comme indiqué ici:

Private Sub Image1_MouseDown(ByVal Button As Integer, _   ByVal Shift As Integer, ByVal X As Single, _   ByVal Y As Single)

MsgBox X & ", " & Y End Sub

Ce code suppose que l’image est nommée Image1. Un code similaire pourrait être utilisé pour afficher les coordonnées du curseur en temps réel sur la barre d’état:

Private Sub Image1_MouseMove(ByVal Button As Integer, _   ByVal Shift As Integer, ByVal X As Single, _   ByVal Y As Single)

Application.StatusBar = Round(X, 0) & "," & Round(Y, 0)

End Sub

L’un ou l’autre de ces gestionnaires d’événements (ou les deux) sont évidemment associés à Image1, ils doivent donc être ajoutés à la fenêtre de code pour cet objet.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3421) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.