Déplacement d'un shape à l'aide d'un scroll bar

Version imprimable

1 pièce(s) jointe(s)

Bonjour la communauté,

Je me tourne vers vous car je bute sur un bête problème de déplacement d'une forme (ligne) sur une feuille comportant des lignes cachées.

Je réussi bien à faire passer la forme d'une cellule non cachée à la prochaine cellule non cachée dans le sens montant, mais ça ne marche pas correctement dans l'autre sens car selon comment je tourne mon code, soit ma forme reste bloquée sur sa ligne, soit elle saute 2 lignes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub test5(Lev As Byte) With ActiveSheet Dim Ligne As Integer Dim Multi As Integer Dim Cell As Range If Lev > .Range("e1").Value Then Multi = 1 Else Multi = -1 With .Shapes("SautPage") .Top = .TopLeftCell.Offset(Multi, 0).Top Set Cell = .TopLeftCell End With If Cell.EntireRow.Hidden = True Then Ligne = Cell.Row Do Until Cell.EntireRow.Hidden = False Ligne = Ligne + Multi Set Cell = Cell.Offset(Multi, 0) Loop If Multi > 0 Then Ligne = Ligne + 1 'c'est là le problème : si je conserve Ligne à sa valeur, la forme "SautPage" ne bouge pas. Avec +1, elle saute une ligne Else Ligne = Ligne + 2 'je ne comprends pas bien pourquoi 2, mais enfin ça marche avec cette valeur End If .Shapes("SautPage").Top = Cells(Ligne, 1).Top End If .Range("e1").Value = Lev End With End Sub
Je joints un fichier exemple.

Ma forme (ligne) sert à visualiser un saut de page sur ma feuille. Ce saut de page est réglable par le scrollbar. Une flèche visualise une limite qui sert de référence pour la position initiale de la ligne.
Le bouton RAZ permet de remettre la forme dans sa position initiale.

D'avance merci à ceux qui pourront m'aider.

re
j'ai pas tres bien compris ce que tu souhaite faire mais si c'est pour modifier le top d'une shape en fonction du scrollrow et de son top initial
ceci fonctionne tres bien
lance la sub test a chaque fois que tu change le scrollrow
Code:

1 2 3 4 5 6 7 8 9 10 Sub test() Static topbase Dim plus With ActiveWindow plus = .VisibleRange.Cells(1).Top - Cells(1, 1).Top If Val(topbase) = 0 Then topbase = ActiveSheet.Shapes(1).Top ActiveSheet.Shapes(1).Top = topbase + plus End With End Sub
tout simplement ta shape sera placée au meme top mais!!! du visiblerange
le seul soucis avec ca c'est que si tu a une erreur dans le(s) code(s) du/detout module(s) vba se réinitialyse et tu perds ton topbase
a utilser avec precotion ;)

cela dit rien ne t'empeche dans certaines condition de coder le topbase en dur dans le code
seulement 2 lignes alors seraient necessaires

en suposant qu'a la base ta shape est a 45 te top
Code:

1 2 3 4 sub test() plus =activewindow .VisibleRange.Cells(1).Top - Cells(1, 1).Top ActiveSheet.Shapes(1).Top = 45+ plus end sub
edit:je précise que quand je fait "-cells(1,1).top c'est equivalent a "-0) c'est juste la pour indiquer le principe (nouvelle first_cellule.top moins la premiere.top car on peu jouer avec une autre cellule que la premiere aussi

01/11/2018, 21h58
Mic13710

Bonjour patricktoulon et merci de m'avoir répondu.

A mon tour je n'ai pas bien compris ton code que j'ai essayé de faire fonctionner dans mon fichier, en vain.

Je comprends bien le Activewindow.VisibleRange, pas de soucis, mais je ne vois pas comment plus = .VisibleRange.Cells(1).Top - Cells(1, 1).Top peut donner une valeur pertinente pour déplacer un shape.

Il y a probablement quelque chose à faire avec le visiblerange mais je me heurte à un problème d'association entre le activesheet qui doit être utilisé pour le shape et le activewindow.visiblerange qui doit permettre de sauter les lignes cachées sans passer par une boucle comme je le fais dans mon fichier.

Et pour en revenir à ce fichier initial, le code fonctionne bien pour faire remonter le shape mais saute systématiquement une ligne à la descente lorsqu'il rencontre une zone de lignes cachées. Si je pouvais résoudre ce comportement pour le moins étonnant, ce serait parfait.
01/11/2018, 23h29
patricktoulon

re

re
c'est pourtant simple
visiblerange c'est la plage que tu vois a l'ecran scroll ou pas scroll
autrement dit si ta scroll est tout en haut ta plage visible sera A1,XY .XY pouvant etre different en fonction de la taille et resolution de l'ecran

si tu scrool a 10 par exemple ta plage sera A10:XY

je ne vois pas ce qui a de compliqué a prendre le top du visiblerange.cells(1).top pour calculer une position par raport a la precedente

je crois avoir donné l'explication

c'est simple
si le top d'une shape est par exemple de 27 et que tu scroll jusqu'a la ligne 100 en top et que tu veux faire suivre ta shape c'est 27 +cells(1,100).top ou 27 + visiblerange.cells(1).top

je vois pas comment je pourrais te l'expliquer autrement
03/11/2018, 08h28
Mic13710

Merci pour ces explications.

Cependant, je crois qu'on se comprend mal.
Je ne veux pas que ma ligne bouge avec le scrollrow de la page, mais avec un scrollbar dans ma page (voir mon fichier).

Mon problème n'est pas de savoir quelle est le top de la cellule 1 du visiblerange mais de savoir dans quelle cellule du visiblerange se trouve mon shape car c'est elle qui m’intéresse. Une fois son emplacement déterminé, je dois décaler ce shape d'autant de lignes en haut ou en bas dans le visiblerange que le scrollbar demande (dans mon cas +-1 par les flèches, +-3 maxi dans les zones du scrollbar). Dans mon fichier joint, les lignes sont de même hauteur. Dans mon projet, elles ne le sont pas, d'où l'importance de connaître la cellule de destination pour y faire le top de mon shape.

Comme tout calcul basé sur le nombre de cellules, de lignes ou de colonnes du visiblerange renvoie toutes les cellules, lignes ou colonnes de la plage, y compris celles qui sont cachées, on ne peut pas, ou plutôt je ne peux pas, savoir dans quelle cellule de ce visiblerange se trouve mon shape, ni savoir de combien de cellules du visiblerange je dois le décaler pour qu'il monte ou descende en fonction du scrollbar.

Et donc, je ne crois pas que visiblerange soit utile dans mon cas.

J'en reviens à mon fichier initial qui lui fonctionne correctement pour faire monter mon shape, mais qui saute une ligne à la descente lorsqu'il doit passer des lignes cachées. S'il y a moyen de résoudre ce comportement, ça me conviendrait tout à fait.

1 pièce(s) jointe(s)

Bon, j'ai résolu mon problème.
En fait, quand il y a des lignes ou des colonnes cachées, le .top d'un shape par rapport à une cellule ne se fait pas au .top de la cellule mais à celui de la dernière cellule cachée.
Par exemple, si les lignes 10 à 20 sont cachées et que je fais un top de mon shape dans une cellule de la ligne 20, le top se fera en fait dans le cellule de la ligne 10.
Comme il n'est pas possible de prendre le TopLeftCell du shape comme référence puisqu'il n'est pas à l'endroit souhaité, il faut enregistrer l'adresse de la cellule réelle pour pouvoir travailler uniquement avec celle-ci et faire un top du shape sur cette cellule. Le shape ne sera alors que visuel puisque sont adresse TopLeftCell sera différente.
Par contre, je n'ai pas réussi à faire des déplacements de plusieurs lignes en cliquant sur la zone du scrollbar car les lignes cachées peuvent altérer le comportement. En effet, si je veux sauter 3 lignes du visiblerange et qu'il y a des lignes cachées, le saut ne se fera pas sur 3 lignes mais sur 2 s'il y a 1 ligne cachée, ou sur 1 s'il y en a plus. Pour simplifier la chose, j'ai mis le LargeChange du scrollbar à 1 pour que tous les déplacement se fassent sur 1 ligne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub test5(Lev As Byte) With ActiveSheet Dim Cell As Range Dim Sens As Integer Sens = Lev - Range("E1").Value Set Cell = Range(Range("G1")).Offset(Sens, 0) If Cell.EntireRow.Hidden = True Then Do Until Cell.EntireRow.Hidden = False Set Cell = Cell.Offset(Sens, 0) Loop End If .Shapes("SautPage").Top = Cell.Top .Range("E1").Value = Lev .Range("G1").Value = Cell.Address .Range("G2").Value = .Shapes("SautPage").TopLeftCell.Address End With End Sub
Ci-joint le fichier qui fonctionne. J'enregistre la référence de la cellule de référence dans la cellule G1, et en G2 le cellule renvoyée par le TopLeftCell du shape qui montre bien le comportement décrit ci-dessus.

04/11/2018, 15h29
patricktoulon

re

bonjour
a ta place je reverifierais
apres test quand on monte et redescend au mileu de la scroll la shape est sencée revenir a sa place non?
et ben c'est pas le cas

je m'y suis essayé

dans le module feuille

Code:

1
2
3
4
5
6
Private Sub ScrollBar1_Change()
    Call test5(ScrollBar1.Value)
End Sub
Private Sub ScrollBar1_Scroll()
    Call test5(ScrollBar1.Value)
End Sub

dans le module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub test5(Lev As Byte)
    Dim x As Long, a
    Static oldposition As Long
    If oldposition = 0 Then oldposition = ActiveSheet.Shapes("SautPage").TopLeftCell.Row
    With ActiveSheet
        x = Lev: x = x - 6: If Lev = 6 Then x = 0
        [A1] = x
        op = Sgn(x): lestep = op: i = oldposition
        limite = IIf(op < 0, 1, Rows.Count): fin = oldposition + x
        For a = oldposition To limite Step lestep
            If Cells(a, 1).EntireRow.Hidden = False And Cells(a, 1).Height > 0 Then i = i + op
            If i = fin Then Exit For
        Next
        [B1] = a + op
        ActiveSheet.Shapes("Sautpage").Top = Cells(a + op, 1).Top
    End With
End Sub

04/11/2018, 19h33
Mic13710

Citation:

Envoyé par patricktoulon

bonjour
a ta place je reverifierais
apres test quand on monte et redescend au milieu de la scroll la shape est sencée revenir a sa place non?
et ben c'est pas le cas

Curieux, chez moi ça fonctionne. Je passe bien d'une ligne à l'autre à chaque action sur le scroll, ce qui bien entendu implique que je reviens bien à la même position à chaque fois.

Là je travaille sur Excel 2010. Je viens d'essayer sur 2016 et ça roule aussi. Es-tu sûr d'avoir testé le dernier fichier et non le premier qui lui ne fonctionne pas correctement ?

Je viens d'essayer ton code (certes plus élaboré que le mien bien évidemment), mais ça ne fonctionne pas. En gardant la même organisation que celle de mon fichier et en y recopiant tes codes, j'ai des comportements plutôt bizarres.
Après une RAZ pour positionner la ligne, si j'appuie sur la flèche haute pour monter ma ligne, elle se déplace de 6 lignes vers le bas ! Au deuxième appui elle ne bouge pas, au troisième elle monte de 2 lignes, au quatrième 1 ligne, au cinquième elle ne bouge pas et au sixième elle monte de 2 lignes.
Dans l'autre sens après un RAZ, la ligne descend de 6 lignes, puis d'une seule ligne à chaque fois.

Là pour le coup, je ne reviens pas à la place de départ en montant ou descendant la ligne.

Je n'ai pas encore regardé où ça clochait.
04/11/2018, 20h48
patricktoulon

1 pièce(s) jointe(s)

re

demo sur le fichier que tu a donné avec le code tel que je te l'ai donné
Pièce jointe 424539
04/11/2018, 21h09
Mic13710

1 pièce(s) jointe(s)

OK, je comprends maintenant ce que tu veux dire.
J'ai essayé avec mon code et en agissant sur le curseur du scrollbar tu as raison, ça ne fonctionne pas. Par contre il fonctionne bien avec les flèches ou les zones.
A l'inverse, ton code fonctionne avec le curseur du scrollbar mais ne fonctionne pas avec les flèches et zones.
Il faudrait donc faire un mix des 2 pour avoir quelque chose qui fonctionne dans tous les cas de figures.
Je vais regarder ça de plus près.

Edit :

Il suffisait de rajouter le Private Sub ScrollBar1_Scroll() dans le feuil1 pour que ma macro fonctionne avec le curseur.

Merci beaucoup patricktoulon pour ton aide et pour m'avoir indiqué l'instruction scroll.
Par contre, je ne sais pas pour quelle raison je n'ai pas réussi à faire fonctionner ton code et j'avoue que je n'ai pas cherché. J'ai toujours les déplacements bizarres que j'ai décris ci-dessus.
Je vais finalement garder mon code, même s'il peut être amélioré, puisqu'il fonctionne comme je le souhaite.
Ci-joint le fichier modifié.