Discussion :

[Invité]

Bonjour,

J'ai masqué toutes les lignes et colonnes, à l'exception d'une plage (A1:K25).

Cette plage est petite et visible à l'écran, sur laquelle j'y ai juste mis des boutons de navigation entre mes différentes feuilles de calcul (onglets non visibles).

J'ai retiré les barres de défilement verticale et horizontale. Je voudrais donc figer le défilement de cette feuille avec la molette de la souris.

En vous remerciant beaucoup.

Cordialement,

[Marc-L]

Bonjour,

voir la propriété ScrollArea …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

Bonsoir Marc-L,

Je te remercie pour ton retour. J'avais mis dans la propriété "ScrollAera" de la feuille concernée (Menu) ----> A1:K25,
ainsi avec les touches de direction on ne peut naviguer que dans cette plage.
Par contre avec la molette de la souris, on peut faire défiler la feuille vers le bas et la plage de cellules non masquées ne se voit plus.
C'est pour cela que je cherche un moyen pour figer le défilement vertical de cette feuille avec la souris.

Merci pour ton aide.

Cordialement,

[Marc-L]

Je ne reproduis pas ton souci, dès que la propriété est définie, le scrolling vertical de la souris est bien désactivé …

Par contre à la réouverture du classeur, vérifier si le paramétrage de la propriété a été conservé.

Essayer sinon en protégeant la feuille …

[Invité]

Bonsoir,

Je suis parvenu à inhiber le défilement avec la molette de la souris en contournant la problème. J'ai figé les volets à la ligne 25, puis j'ai masqué cette ligne.
La plage est tout le temps visible, le défilement ne s'effectue plus mais j'ai quelque chose de bizarre, quand je sélectionne une cellule est fait défiler avec les touches de direction la bande à droite de la fenêtre d'excel, celle qui comporte le numéro de ligne change de largeur et il semble que les colonnes sont décaler par rapport à l'entête de titre des colonnes.

Code :

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

1
2
3
4
5
6
7
8
Sub volet()
Application.EnableEvents = False
    Range("A25").Select
    ActiveWindow.FreezePanes = True
    Rows("25:25").Select
    Selection.EntireRow.Hidden = True
    Application.EnableEvents = True
End Sub

Auriez-vous une explication merci? en pj capture écran avant exécution macro et après.

Cordialement,

[Invité]

Je ne reproduis pas ton souci, dès que la propriété est définie, le scrolling vertical de la souris est bien désactivé …

Par contre à la réouverture du classeur, vérifier si le paramétrage de la propriété a été conservé.

Essayer sinon en protégeant la feuille …

Désolé, je n'avais pas vu ce post, j'oublie de rafraichir l'affichage.

En effet, ce que j'avais saisi dans la propriété "scrollaera" de la feuille disparait à la réouverture du fichier et ce malgré la protection de la feuille.

Je viens de remettre dans la propiété scrollaera: $A$1:$K$25, pour les touches de direction c'est bon (déplacement limité dans la plage),
par contre le scrolling avec la souris n'est pas désactivé.

Merci beaucoup.

Cordialement,

[Marc-L]

C'est comme dans les versions précédentes, il faut systématiquement paramétrer la propriété à l'ouverture du classeur …

J'évoquais la protection de la feuille pour le scrolling vertical de la souris, sinon je n'ai rien d'autre en magasin !

[Invité]

Re,

J'ai mis ceci dans l'évènement activate de la feuille et ça fonctionne bien seulement avec les touches de direction.

Code :

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

1
2
3
Private Sub Worksheet_Activate()
ScrollArea = "A1:K25"
End Sub

Je te remercie beaucoup, mais aurais-tu une explication à mon post #5.

Bonne soirée.

Cordialement,

[Marc-L]

J'ai testé sur une version 2007 hier soir et je n'ai pu reproduire aucun souci …

[coy76]

Bonjour
je ne sias pas si ça peux vous aider, mais en XL2010 je n'ai de problème.

J'ai mis ça comme code (au niveau de "Thisworkbook")

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
Private Sub Workbook_Open()
'Permet d'afficher en pleine écran
Application.WindowState = xlMaximized
 
'Desactive l'affichage les barres de numérotation ligne et colonne
Application.ActiveWindow.DisplayHeadings = False
 
Application.CommandBars(1).Enabled = False
 
'Affiche en suppriment le ruban
Application.DisplayFullScreen = False
 
'affichage de la barre de formule
Application.DisplayFormulaBar = False
 
'affiche la barre d'état
Application.DisplayStatusBar = False
 
'affiche les "ascensseur"
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
 
 
Sheets("Colormatching").ScrollArea = "A1:N35"
 
End Sub

Et cette fonction ScrollArea fonction même si la feuille n'est pas protégée et celà bloque aussi le défilement à la souris.

[Invité]

Bonjour,

Je vous remercie beaucoup pour votre retour mais ça ne résout pas mon problème. Je veux inhiber la molette de la souris (empêcher de faire défiler la feuille avec la molette de la souris).

Si je ne trouve pas de solution, ce n'est pas grave car ce n'est pas une fin en soi.

Encore merci.

Cordialement,

[Marc-L]

Il y a déjà eu une discussion équivalente récemment et je crois bien la solution a été de charger
un programme pour palier à la défaillance du driver gestionnaire de la souris …

[Invité]

Bonsoir marc-L,

Je te remercie pour le tuyau. Je lance une recherche de mise à jour du driver de ma souris.
Si ça fonctionne bien chez toi, ça signifie que le problème réside sur mon PC.

Bonne soirée.

Cordialement,