Discussion :

[adriennoob]

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

[patricktoulon]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[adriennoob]

C'est exactement se que je recherchais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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