petit souci avec Worksheet_SelectionChange

[egman]

Bonjour à tous,

une fois de plus je viens faire appel à votre savoir.

Dans une feuille(Sommaire) j'ai fait un sommaire avec des liens hypertextes.

Sur une autre feuille(Feuil1) j'ai plusieurs tableaux les uns à la suite des autres espacés de 10 lignes par exemple.

Sur ma feuille(Sommaire) je vais pointer grace aux liens les premieres cellules de mes tableaux en (Feuil1) Jusque là çà và.

Sur la Feuil1 où j'ai tous mes tableaux j'ai mis un bout de code afin que chaque début de tableau se trouve en haut de page sans pour cela voir les autres.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveWindow.ScrollRow = Target.Row
End Sub

Mon petit souci est que lorsque je suis dans un de mes tableaux mon code agit toujours. En fait il faudrait que je puisse une fois dans ma Feuil1 , annuler Ma Sub Worksheet... afin d'effectuer mes modifications sans remonter en haut de page a chaque clic de cellule et qu'à mon retour à ma page Sommaire la Feuil1 retrouve sa fonction Worksheet....

Est ce possible ?

D'avance merci

 

[ROGER2327]

Re : petit souci avec Worksheet_SelectionChange

Bonjour egman

Il est toujours difficile de répondre à des problèmes de ce genre sans support.
A défaut, essayez une structure de ce genre :

[COLOR="DarkSlateGray"]Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   If Not Intersect(Target, Range(X)) Is Nothing Then
      ActiveWindow.ScrollRow = Target.Row
   End If
End Sub[/COLOR]

où X décrit la plage de cellules qui doivent provoquer l'exécution de la ligne suivante.​

ROGER2327
#1947

 

[MJ13]

Re : petit souci avec Worksheet_SelectionChange

Bonjour Egmann, Roger

Sinon il y a pour désactiver les événements le:

Application.EnableEvents = false

Et le remettre à true quand on veut activer les évènements.

Un petit bouton sur la barre d'outils avec Marche/arrêt et le tour est joué.

 

[Risleure]

Re : petit souci avec Worksheet_SelectionChange

Bonjour egman, Roger, le Forum,

Sans fichier c'est difficile de répondre mais je tenterai bien le drapeau qu'on lève (ou abaisse) une fois la l'action réalisée avec une variable booléenne
Voir en PJ

A+

Ouupps pas vu MJ13, faudra que je tente car c'est peut être plus simple...

 

[egman]

Re : petit souci avec Worksheet_SelectionChange

Bonjour à tous,

Merci pour toutes vos réponses, je vais tester les différentes solutions et vous tient au courant.

Bonne journée à tous.