Comment empêcher le "Scrolling" ?

Bonjour à tous,

Comment empêcher le "Scrolling" par exemple de la roulette de la souris lors de l'exécution d'un programme ?

Merci par avance.

Bonjour,

Comme ceci ?

Sub aa()
Feuil1.ScrollArea = "A1:L16"
End Sub

Pensez à modifier la range et la feuille

Bonjour,

ou pour éviter le rafraichissement d'écran lors d'une macro :
Application.ScreenUpdating=False
eric

bonjour,

Une autre option :

Sub Galopin()
    Application.RollZoom = true
End Sub

Sinon, un peu de colle dans la molette de la souris ?

A+

Merci à vous,

Je me suis inspiré de toutes vos propositions et j'ai finalement trouvé un truc qui fonctionne parfaitement :

ActiveSheet.ScrollArea = "A1:A1"

Application.RollZoom = False

Et en fin de programme il ne faut pas oublier de remettre des valeurs qui ne bloquent pas la feuille de calcul !

Encore merci.