Bascule avec Worksheet_SelectionChange

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:

---

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:

---

ActiveSheet.Shapes("Image").Visible = Not ActiveSheet.Shapes("Image").Visible

---

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

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

Code:

---

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:

---

1 2 3 4

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

---

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 ?

Citation:

---

Const WindowsValue As Long = 16

---

Cordialement,
jp

Bonjour,

Citation:

---

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.

Citation:

---

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.

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 !!)

Citation:

---

Envoyé par jpma75

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.

Bonsoir,

Citation:

---

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

---

Ça me rassure :D

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

Cordialement,
JP