zoom excel

[t0nton]

Bonjour,

Je travail actuellement sur un support visuel à l'aide d'Excel. J'ai donc crée des forme qui, au finale, représente un bateau. Dans ces formes j'y ai rajouté des informations.

Le problème est que pour une vu d'ensemble du bateau, il est difficile de lire ces informations.
J'aimerai donc faire une macro me permettant de zoomer sur une forme de façon à se que celle-ci s'affiche avec une taille max sur l'écran affin de lire les information qui s'y trouve.
Pour cela :
- soit un clic sur une forme qui zoom directement,
- soit un encadrement de la forme à l'aide de la souris,
ou autre...

Si quelqu'un aurai une idée, voir un petit bout de code se serai vraiment géniale.

Merci.

 

[t0nton]

Re : zoom excel

RE,

Enfaite tout va bien, je viens de trouver l'erreur.

Merci pour le code 😉

t0nton

 

[Hulk]

Re : zoom excel

Hello tout le monde,

Pour répondre à Link :

Pour reproduire ce code sur ton "Rectangle 7", il faut aussi modifier la taille de la police de la forme en la mettant à 6 (le code dit : si la police est de 6 alors...).

Bonne journée !

 

[link93]

Re : zoom excel

AHHH c'etait donc ça merci ^^

 

[t0nton]

Re : zoom excel

Bonjour à tous.

J'ai changé d'avis au sujet de mon zoom, en faite j'ai réussi a récupérer les coordonnées de ma souris a tout moment et j'aimerai bien pouvoir zoomer sur n'importe quelles coordonnées.

Orriez vous une petite idée ???

Voici le code de calcule des coordonnées et d'affichage dans un tableau:

' Position de X et Y par rapport a l'écran
Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Sub XY() ' Ctrl+b => affiche les coordonnées du point sous le curseur en colonnes H et I
Dim cel As Range, pos As POINTAPI
Set cel = Sheets("Journal").Range("H2")
GetCursorPos pos
cel = pos.X
cel.Offset(, 1) = pos.Y

End Sub

Cdlt t0nton.