Discussion :

[Mic13710]

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 :

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

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.

[patricktoulon]

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 :

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

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 :

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

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

[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.

[patricktoulon]

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

[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.

[Mic13710]

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 :

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

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.