Bonjour,

Est-il possible de créer une "bascule" dans le cas suivant ?
Si je clique sur A9, >> ActiveWindow.ScrollRow = 17, sinon >> ActiveWindow.ScrollRow = 1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Select Case Target.Address(0, 0)
 
        Case Is = "A9"  'Down
            ActiveWindow.ScrollRow = 17
Je pensais utiliser l'opérateur NOT comme dans le cas suivant mais pas sûr que cela soit possible.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.Shapes("Image").Visible = Not ActiveSheet.Shapes("Image").Visible
En vous remerciant par avance pour vos lumières,
Cordialement,
jp