déplacement souris zoom

Avis à ceux qui peuvent me guider.

Je cherche un code qui me permet de repérer la position de mon curseur et de zoomer à l'endroit du curseur exactement.... :?

Merci le club :ccool:

Code:

---

1 2 3

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As integer, ByVal X As Single, ByVal Y As Single) texbox1=x&"de hauteur" & y &"horizatalement" End Sub

---

essaei ca tu aura les coordonnées de la souris dans le textbox1

ca c'etait pour un form
maintenant si tu parle de la feuille de calcul

Code:

---

1 2	application.zoom X'(Xetant le chiffre que tu desire de 0 a 200 ce qui est deja pas mal

---

ce n'est qu'un premier get ne connaissant pas l'idée de fond de ton projet

voila au plaisir

C'est exactement se que je recherchais.

Code:

---

1 2 3

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As integer, ByVal X As Single, ByVal Y As Single) texbox1=x&"de hauteur" & y &"horizatalement" End Sub

---

Merci Patrick