Re: ROULETTE SOURIS DEFILEMENT LIGNE A LIGNE (ScrollRow)
Bonsoir JP, le Forum
Vu qu'on a "gagné" une heure aujourd'hui, je viens faire un tour pour vous dire bonjour !
Bon je ne vois pas vraiment comment modifier le scroll de la souris par une simple macro, mais je peux te proposer un paliatif "Système D"...
NB code à placer dans le Private Module de la Feuille en question (Pas dans un simple module standard)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim SRow As Long
Cancel = True
SRow = ActiveWindow.ScrollRow
ActiveWindow.ScrollRow = SRow + 1
End Sub
Ce code, déclenché à chaque click droit sur la souris fera défiler d'une ligne la feuille dans laquelle il aura été placé...
En option, on peut préférer établir une zone précise pour ce "Right-Click" afin de garder le menu contextuel de ce ckick droit pour le reste de la feuille.
Ici un exemple un peu plus abouti qui lancera le défilement d'une ligne uniquement en cas de click droit quand le curseur sera positionné dans la colonne "A"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim SRow As Long
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
With ActiveWindow
SRow = .ScrollRow
.ScrollRow = SRow + 1
End With
End If
End Sub
Ceci ne nécessitera aucune intervention de ton NetWorkAdmin(OpenMinded = False)
Bonne soirée
@+Thierry