ScollArea - problème

Version imprimable

Bonjour,

Je bute sur un truc (apparemment) tout bête...

Avec ce code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub worksheet_activate() Me.ScrollArea = "$A$1:$A$120" ' Range("$A$1:$W$1").Select ' With ActiveWindow ' .Zoom = True ' .Zoom = ActiveWindow.Zoom - 1 '1.5 ' End With End Sub
Je ne peux pas aller au-delà de ligne 109 !

A noter que quelques lignes sont masquées et que les premières lignes (du haut) sont figées.

J'ai désactivé le zoom au cas où, mais le problème semble être ailleurs.

merci d'avance pour votre aide.
Cdt

10/12/2017, 15h32
unparia

Bonjour
La rubrique Worksheet.ScrollArea, propriété de ton aide interne VBA est on ne peut plus claire à ce sujet. L'as-tu au moins lue (je ne le crois pas) :pleure:
10/12/2017, 15h43
jpma75

Je l'ai lue et je suis allé sur plusieurs pages du web pour trouver une réponse mais je sèche !
Si je supprime le volet supérieur, l'affichage va aller au delà de ma plage de ScrollArea ; c'est la première fois que je suis confronté à ce problème.

Cdt
10/12/2017, 15h52
unparia

Citation:

Je l'ai lue et je suis allé sur plusieurs pages du web pour trouver une réponse mais je sèche

C'est une plaisanterie ? Tu as lu, dis-tu ? Vraiment ?
Il n'y a aucune autre solution que celle de ne pas utiliser cette propriété, dont la vocation (c'est pourtant dit clairement) est précisément de ne pouvoir se "balader" ailleurs ...
Bref ...

Extrait de ce que tu dis "avoir lu" :

Citation:

Cette propriété renvoie ou définit la plage dans laquelle le défilement est permis sous la forme d'une référence de plage de type A1. Il est impossible de sélectionner les cellules situées hors de la zone de défilement. Type de données String en lecture-écriture.
10/12/2017, 15h56
jpma75

???

Si j'indique :

Code:

"$A$1:$A$120"

cela signifie que je peux "au moins" accéder à la ligne 120

Et dans le cas présent, je ne peux pas aller au delà de la ligne 109.

Il ne s'agit donc pas d'aller se "balader" ailleurs mais bien dans le zone définie.
10/12/2017, 16h02
unparia

Rhôôô .....
tu ne peux non plus te "balader" dans les cellules maquées ! C'est tellement évident !
10/12/2017, 16h07
jpma75

Sur 120 lignes, il n'y en a qu'une dizaine de masquées et elles sont situées en milieu de tableau...

(je sors de cette discussion)

cdt
10/12/2017, 16h25
unparia

Et si, au lieu de "sortir de cette discussion", tu te montrais plus précis ?
Car je devine certaines choses qui t'échappent et dont tu ne parles pas !
Si tu travailles (malproprement) à coups de "select" -->> montre donc ton code
Et si tu travailles de manière orthodoxe (directement sur les objets Excel) -->> montre également ton code
Et tu verras que le problème n'est dû ni à scrollarea, ni aux lignes masquées, mais à ta seule incompréhension de ce qu'est une plage discontinue !

Démo sans aucun commentaire ni parole nécessaires :

Code:

1
2
3
4
5
ScrollArea = "" ' on part à neuf pour être certain de ne pas "polluer"
Range("A3:A5").EntireRow.Hidden = True ' on a bien caché les lignes 3 à 5, non ?
ScrollArea = "a1:f10" ' on s'interdit de sélectionner en dehors de la plage A1:F10, d'accord ?
Set p = Range("A1:F10")
MsgBox p.Address  '--->> toute la plage y est, non ?

10/12/2017, 16h58
unparia

Juste une dernière chose (et elle n'aurait rien à voir avec scollarea) : j'espère que tu n'as pas verrouillé des cellules (avec option selection décochée) et que tu reproches ensuite à Excel de ne pas te permettre d'y accéder ... (sait-on jamais ...)

Bonsoir,

Sauf erreur de ma part, c'est "non" !

Avec ce code, je visualise la feuille jusqu'à la ligne 111 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AfficheQuotas()
 
    Application.ScreenUpdating = False
    With ActiveSheet
        Rows("1:8").EntireRow.Hidden = True    'affiche En-Tête
        Rows("9:16").EntireRow.Hidden = False  'affiche Quotas 1
        Rows("78:85").EntireRow.Hidden = False 'affiche Quotas 2
        ActiveWindow.ScrollRow = 1
        Application.EnableEvents = False  'attention
        Rows("25:25").Select
        ActiveWindow.FreezePanes = True
        [f29].Select
        Application.EnableEvents = True
    End With
'    Application.ScreenUpdating = True
End Sub

Avec celui-ci (qui effectue l'opération inverse), je ne peux pas visualiser la feuille au-delà de la ligne 109 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MasqueQuotas()
'Stop
    Application.ScreenUpdating = False
    With ActiveSheet
 
        ActiveWindow.FreezePanes = False
        Rows("9:16").EntireRow.Hidden = True   'masque Quotas 1
        Rows("79:85").EntireRow.Hidden = True  'masque Quotas 2
        Rows("1:8").EntireRow.Hidden = False   'affiche En-Tête
        ActiveWindow.ScrollRow = 1 'nécessaire ??
        Application.EnableEvents = False  'attention
        Rows("25:25").Select
        ActiveWindow.FreezePanes = True
        ActiveWindow.ScrollRow = 25
        [f29].Select
        Application.EnableEvents = True
    End With
End Sub

Cdt