Discussion :

[Vba14]

Bonjour à tous,

J'ai mis en place un code qui me permet de masquer les barres de défilement sur une feuille de calcul Excel, mais que celles-ci restent activent pour les autres feuilles.

En clair, lorsque les utilisateurs sont sur la feuille "Accueil", pas de barres de défilement. Mais restent affichées pour les autres feuilles.

Mais je souhaite compléter ce code avec le fait que l'on ne puisse pas utiliser la roulette de la souris uniquement pour la feuille "Accueil"

Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance

Voici le code qui permet d'afficher les barres et le suivant pour les masquer

Code :

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

1
2
3
4
5
6
7
8
 
Masque les barres
Private Sub Worksheet_Activate()
With ActiveSheet
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
 
Affiche les barres
Private Sub Worksheet_Activate()
With ActiveSheet
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
End With
End Sub

[pijaku]

Bonjour,

Si le but est d'empêcher le Scroll sur la feuille, tu peux le "bloquer" sur une certaine plage à l'aide de la propriété ScrollArea (voir ici : https://docs.microsoft.com/fr-fr/off...eet.scrollarea).
Exemple :

Code :

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

Feuil1.ScrollArea = "A1:BT40"

[Vba14]

Bonjour pijaku,

Merci pour ta réponse. J'ai mis en place ta solution et c'est parfait.
Encore merci
Très amicalement