Positionner une forme (shape) par rapport à l'écran

**Benevole V1** · 29/10/2018, 11h28

Bonjour,

Est-il possible de positionner avec VBA une forme (shape) appartenant à une feuille Excel par rapport à l'écran, plutôt que par rapport à sa feuille, quelque soit la position et le coefficient d'agrandissement (zoom) de celle-ci ?

Merci à celui qui voudra bien me refiler la solution ...

**patricktoulon** · 29/10/2018, 13h35

bonjour
j'aurais tendance a te dire NON!!!
deja par ce que tu ne peux placer ta shape que dans le sheets, le ruban et displaybars ainsi que les bordure fentre n'en font pas parti
maintenant si tu entends par la je veux mettre ma shape au milieu du width et height de la feuille correspondant au milieu du width et height de l'ecran c'est pas la meme chose
mais en aucun cas la shape ne peut sortir du gridline

**Benevole V1** · 29/10/2018, 15h05

Merci Patricktoulon pour ta réponse rapide mais qui, désolé, ne me donne pas la solution !
Bien sûr que je sais que ma forme ne peut pas sortir de sa feuille, mais ce n'est pas un problème puisque dans mon cas, cette dernière occupe tout l'écran, et souvent bien plus.
Ce que je cherche en fait c'est le moyen de déplacer la forme sur la feuille (par une procédure VBA) de manière à ce qu'elle occupe une position voulue (par ex le centre) de l'écran.

Si tu veux savoir pourquoi je veux faire cela, j'explique:
Dans une feuille Excel j'ai toute une série de formes. On doit pouvoir activer l'une d'elles sans risquer de la bousiller ou de l'effacer.
Je place donc au-dessus de ces formes une forme-écran transparente qui les protèges en empêchant d'y accéder directement.
C'est comme si on recouvrait des documents sur un bureau avec une feuille de verre transparente...
Cet écran est attaché à une macro qui rend visible un forme circulaire qui est une sorte de "pointeur" : un clic sur l'écran affiche le pointeur, ce dernier est placé au-dessus de l'écran.

Et c'est là que je souhaite que ce pointeur s'affiche à une position fixe de l'écran (ou encore mieux sur le pointeur de ma souris !).
Car ma feuille Excel peut être bien plus large que l'écran, surtout si on a "zoomé" dessus, renvoyant le pointeur dans une zone non visible.

L'idée est de positionner à l'aide de la souris le pointeur au centre (ou autour, s'il est plus grand) de la forme que l'on veut activer.
Un nouveau clic sur l'écran peut alors relancer la macro qui recherche, pour l'activer, la forme dont le centre est le plus proche du centre du pointeur ...
Je précise que les formes présentes sur la feuille sont classées dans des groupes et que ma macro ne retient que celles qui font partie d'un groupe particulier.

Ma solution a l'air biscornue, mais hormis la position du pointeur, elle marche très bien.
Maintenant, si tu as une solution plus simple pour activer une forme à partir de la souris sans risquer de la déplacer, la déformer ou l'effacer, elle sera bienvenue !
Mais il faut tenir compte du fait que plusieurs formes faisant partie de groupes différents peuvent se superposer avoir leur centre proche ou confondus !

Bien à toi
Georges L, Belgique

**patricktoulon** · 29/10/2018, 16h03

re
je comprends ce que tu fait avec ta shape transparente en position par dessus toute les autres
ce que je pige pas c'est ca

Bien sûr que je sais que ma forme ne peut pas sortir de sa feuille, mais ce n'est pas un problème puisque dans mon cas, cette dernière occupe tout l'écran, et souvent bien plus.

c'est tout bonnement impossible
si tu sais faire ca ,partage ta methode, ca va en intérésser plus d'un

a moins que tu ai enlevé la caption de excel ,le ruban et que tu soit en mode plein ecran ,au quel cas oui avec la grille occupant tout l'ecran sans bordure c'est possible

je crois sincerement par rapport a ce que tu a ecrit dans ton post précèdent que ta question est mal formulée on doit pas parler de la meme chose

Maintenant, si tu as une solution plus simple pour activer une forme à partir de la souris sans risquer de la déplacer, la déformer ou l'effacer, elle sera bienvenue !

normalement quand on donne un ".onaction" a une shape elle ne se deplace plus au click sauf si tu reste appuyé sur le bouton droite de la souris

**Benevole V1** · 29/10/2018, 23h28

Bonsoir Patrick,

Je crois que j'ai trouvé la solution à mon problème.
Voici le code tout simple :

Code :

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

1
2
3
4
5
6
7
Dim X As Long, Y As Long, Z As Single
With ActiveWindow
   X = .UsableWidth / 2 + Columns(.ScrollColumn).Left - Columns(2).Left
   Y = .UsableHeight / 2 + Rows(.ScrollRow).Top - Rows(4).Top
   Z = 100 / .Zoom
End With
With ActiveSheet.Shapes("Cdr"): .Left = X * Z: .Top = Y * Z: End With

La forme "Cdr" est parfaitement placée sur ma feuille Excel de manière à apparaître au centre de l'écran.
Et cela, quelle que soit la position "scroll" de la feuille et son coefficient "zoom" au moment de l'insertion.
Le code prévoit même ici que la première colonne et les trois premières lignes sont figées !

Le coefficient Z peut aussi recalibrer automatiquement mon pointeur "Cdr" pour qu'il conserve toujours la même taille.
C'est bien utile pour cibler des petites formes lorsque l'on augmente le zoom ...

Tu crois vraiment que ma trouvaille en intéressera "plus d'un" ?

Encore merci pour tes réponses et à +

Georges L, le belge

**patricktoulon** · 30/10/2018, 01h13

re
ah!... ben voila !!!!
bon ben c'est bien ce que je disais alors tu parle pas du centre de l'ecran mais du visiblerange
et je dis visiblerange c'est pas pour rien
en te servant du visiblerange tu n'a meme pas besoins de calculer les scrolls

un exemple ceci te met ta shape au centre du VISIBLERANGE

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim VR As Range
    Set VR = ActiveWindow.VisibleRange
          With ActiveSheet.Shapes("cdr")
        .Left = VR.Left + (VR.Width / 2) - (.Width / 2)
        .Top = VR.Top + ((VR.Height - 15) / 2) - (.Height / 2) 'les "15" c'est pour la  ligne d'entete colonne(les lettres) qui fait parti de l'activewindow
    End With
End Sub

la shapes est bien au centre du sheets ou de l'activewindow si tu veux et pour etre precis au centre du visiblerange
et je n'ai meme pas besoins d'inclure le calcul du zoom la dedans

et pour finir
non ca n'en interessera pas plus d'un car ton code est incomplet donc donne un resultat faux chez moi car ma shape n'a pas les memes dimentions
a aucun moment tu prends en compte les dimentions de la shape
tandis que ma version le fait automatiquement quelque soit ses dimentions

pour centrer horizontalement le left c'est largeur globale/2 - largeur de shape/2 et meme principe pour le top

fait moi plaisir teste le mien plusieur fois en changeant la taille de la shape sans rien changer au code

**Benevole V1** · 30/10/2018, 18h13

Bonjour Patrick

Géniale ta solution !
Mais pourquoi ne pas me l'avoir donnée plus tôt ?
Il me semble pourtant que ma question était simple et bien posée.
Je ne connaissais pas la propriété "VisibleRange", sinon j'aurais trouvé la solution tout seul.
J'ai encore beaucoup à apprendre, mais je ne passe pas, comme toi, mes nuits devant mon PC !

Alors, encore merci (1000x) et à bientôt

**patricktoulon** · 30/10/2018, 21h18

Envoyé par Benevole V1

Bonjour Patrick

Géniale ta solution !
Mais pourquoi ne pas me l'avoir donnée plus tôt ?
Il me semble pourtant que ma question était simple et bien posée.
Je ne connaissais pas la propriété "VisibleRange", sinon j'aurais trouvé la solution tout seul.
J'ai encore beaucoup à apprendre, mais je ne passe pas, comme toi, mes nuits devant mon PC !

Alors, encore merci (1000x) et à bientôt

re mon job me permet de bricoler sur le pc tout au long de la journée par intermitance mais j'y passe pas mes nuits
sauf projet important et encore
je ne te l'ai pas donné tout de suite car ca ne correspond pas a ta demande tel que tu l'a formulé
c'est ce que j'ai essayé de t'expliquer
ne pas confondre ecran et window(activewindow) rien a voir

je rapelle a toute fin utile le titre de ta demande Positionner une forme (shape) par rapport à l'écran

hors ce n'est pas ca que tu veux

ce que tu veux c'est centrer une shape aux milieu de la grille visible d'excel quelle que soit la position et dimention de la fenetre excel
pour chopper les coordonnées de la partie visible de la grille visiblerange est tout indiqué

et en te servant des propriétés (left,top,width,height) de celle ci tu n'a nul besoins d'autre chose
pas besoins de zoom,de scrool verticale ou horizontale) et/ou autre calcul

juste visiblerange

**Benevole V1** · 22/07/2019, 13h52

Bonjour,

patricktoulon m'a permis de résoudre, en octobre 2018, le problème de centrer une forme (shape) d'une feuille Excel aux milieu de la grille visible quelle que soit la position et dimention de la fenetre excel.

Aujourd'hui, je dois résoudre le problème inverse, c'est à dire positionner la fenêtre affichant une feuille Excel (quel que soit la taille et le Zoom de cette fenêtre) de façon à ce que l'une de ses formes (pour être précis, les coordonnées X,Y de la position Left/Top de celle-ci) soit au centre de la fenêtre ou, si la forme est proche du haut ou du côté gauche de la feuille, le plus au centre possible.

J'essaye en vain depuis ce matin.
Je ne suis pas aidé par l'aide fournie par Microsoft car celle-ci indique bien dans la description de la méthode "ScrollIntoView" qu'il faut introduire des données en points alors que l'exemple applique la méthode en pixels !

Merci à celui qui pourra m'aider ou à Patrick s'il est plus rapide et qu'il veut bien me tirer d'embaras encore une fois.

**patricktoulon** · 22/07/2019, 14h02

re

si j'ai bien compris ta demande

Code :

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

1
2
3
4
5
with Windows(nom du classeur)
.windowstate=xlnormal
.top= - shapes(le nom de la shape).top
.left= - shapes(le nom de la shape).left
end with

**Benevole V1** · 22/07/2019, 15h26

Bonjour Patrick,

Merci de ta réponse très rapide !
Mais, je suis désolé, j'ai essayé ta solution, mais ça ne marche pas ...
La ligne 2 décroche la fenêtre de l'écran (ce que je ne souhaite pas et qui est inutile, je pense, pour arriver à ce que ne veux)
Les lignes 3 & 4 bloquent la procédure (syntaxe incorrecte ?)
Mais je crois surtout que tu n'as pas compris que j'essaye seulement de faire défiler la fenêtre de façon à ce que la forme que j'ai sélectionnée (qui peut être hors de la fenêtre) apparaisse au centre de l'écran...
Je pense vraiment que la méthode "ScrollIntoView" est la bonne piste, mais je n'arrive pas à ce que je veux !

Merci de m'aider encore, si tu veux bien ...

**patricktoulon** · 22/07/2019, 15h48

ah... d'acord
tu confond encore le window et le visible range toi

Code :

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

1
2
 ActiveWindow.ScrollColumn = ActiveSheet.Shapes(1).TopLeftCell.Column
    ActiveWindow.ScrollRow = ActiveSheet.Shapes(1).TopLeftCell.Row

épicétou!!!

**Benevole V1** · 22/07/2019, 17h27

Merci, ça c'est une vraie belle solution !
Je connaissais bien VisibleRange (grâce à toi !) et je l'emploie régulièrement.
Mais je n'avais pas pensé à ScrollRow/Column pour déplacer la fenêtre.
Néanmoins ta réponse ne répond pas à ma demande, puisqu'elle ne place pas la forme au centre de l'écran ...
Je suppose que tu acceptes la solution ci-dessous qui, quand c'est possible (X/Y > 0), place bien la forme (Pp) de ma feuille (Wr) au centre l'écran :

Code :

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

1
2
3
4
5
6
7
8
9
With ActiveWindow
    Set VR : .VisibleRange
    With Wr.Shapes("Pp")
        X = .TopLeftCell.Column - VR.Columns.Count / 2
        Y = .TopLeftCell.Row - VR.Rows.Count / 2
    End With
    If X > 0 then .ScrollColumn = X
    If Y > 0 then .ScrollRow = Y
End With