Discussion :

[jpma75]

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

[Philippe Tulliez]

Bonjour,
Utilisez un contrôle ActiveX ToggleButton dont la propriété Value a deux valeurs possibles True ou False

Code :

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

1
2
3
4
5
6
7
Private Sub ToggleButton_Click()
  If ToggleButton.Value Then
     ' Code si True
   Else
     ' Code si False
  End If
End Sub

Il y a évidemment plus court, si l'on joue avec la valeur booléenne

Affichera 17 ou 1 en fonction de la propriété Value de ToggleButton

Code :

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

1
2
3
4
Private Sub ToggleButton_Click()
  Const WindowsValue As Long = 16
  MsgBox WindowsValue * Abs(ToggleButton.Value) + 1
End Sub

[jpma75]

Bonjour et merci !

Je voulais éviter de passer par un (Toggle)Button mais je retiens cette proposition.

Avec 16, Pourquoi pas Integer plutôt que Long ?

Const WindowsValue As Long = 16

Cordialement,
jp

[Philippe Tulliez]

Bonjour,

Je voulais éviter de passer par un (Toggle)Button mais je retiens cette proposition.

Il suffit de placer le bouton en tête de la feuille et bloquer les lignes concernées en figeant les volets.

Avec 16, Pourquoi pas Integer plutôt que Long ?

En règle générale j'essaye d'anticiper les problèmes et donc comme 17 représente la 17ème ligne et qu'il y a plus de 32767 lignes dans une feuille excel, je suis certain que de ce côté là, je serai tranquille.

[jpma75]

Merci !

(PS : A propos du nombre, je me demande parfois à quoi peuvent servir 1.048.576 lignes dans une feuille (sans parler des colonnes) ... Pour une saisie brute, ça doit passer mais quid avec des formules ?! Il doit falloir beaucoup de ressources !!)

[laurent_ott]

A propos du nombre, je me demande parfois à quoi peuvent servir 1.048.576 lignes dans une feuille...

Bonjour.
Sans entrer dans le débat ''Utilisez Access pour gérer vos bases de données'' , vous trouverez peut-être un début de réponse dans le tome 6 de ma signature, qui tient compte aussi du problème des ressources nécessaires.
Cordialement.

[jpma75]

Bonsoir,

(...) Alors imaginez sur les 1 048 576 lignes d'une feuille de calcul : c'est mission impossible (...).

Ça me rassure

Merci beaucoup pour ces liens sur lesquels je reviendrai dès que possible.

Cordialement,
JP