OVH Cloud OVH Cloud

Positionnement de cellule

3 réponses
Avatar
ROLLOT Pascal-Jean
Bonjour,

(en Excel 7.0) Existe-t-il une solution pour lorsque l'on se trouve sur une
cellule quelconque (ex H36) que cette cellule se retrouve positionnée en
haut à gauche automatiquement (comme si elle était en A1)?

Existe-t-il une fonction qui fait cela?

Merci de votre aide.

3 réponses

Avatar
Gaetan Mourmant
Non testé avec Excel 7

Avec une procédure événementielle qui détecte le changement de sélection.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("h36")) Is Nothing Then Exit Sub
Range("A1").Select
End Sub

A mettre dans le code associé à la feuille désiré (double clique sur la
feuille dans VBE)

Bon courage
--
Gaetan Mourmant
www.polykromy.com
Consultation - Formation
Excel - Data mining

"ROLLOT Pascal-Jean" a écrit dans le
message de news:
Bonjour,

(en Excel 7.0) Existe-t-il une solution pour lorsque l'on se trouve sur
une

cellule quelconque (ex H36) que cette cellule se retrouve positionnée en
haut à gauche automatiquement (comme si elle était en A1)?

Existe-t-il une fonction qui fait cela?

Merci de votre aide.




Avatar
Jean-Paul Viel
Bonjour,



Dans le module de la feuille que vous voulez déplacer placer ce code :



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveWindow.ScrollColumn = Target.Column

ActiveWindow.ScrollRow = Target.Row

End Sub




--
JP

http://www.solutionsvba.com


"ROLLOT Pascal-Jean" wrote in message
news:
Bonjour,

(en Excel 7.0) Existe-t-il une solution pour lorsque l'on se trouve sur
une

cellule quelconque (ex H36) que cette cellule se retrouve positionnée en
haut à gauche automatiquement (comme si elle était en A1)?

Existe-t-il une fonction qui fait cela?

Merci de votre aide.




Avatar
ROLLOT Pascal-Jean
Merci c'est exactement ce qu'il me fallait. Bonne journée.
Jean-Paul Viel a écrit dans le message :
T0p3b.3005$
Bonjour,



Dans le module de la feuille que vous voulez déplacer placer ce code :



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveWindow.ScrollColumn = Target.Column

ActiveWindow.ScrollRow = Target.Row

End Sub




--
JP

http://www.solutionsvba.com


"ROLLOT Pascal-Jean" wrote in message
news:
Bonjour,

(en Excel 7.0) Existe-t-il une solution pour lorsque l'on se trouve sur
une

cellule quelconque (ex H36) que cette cellule se retrouve positionnée en
haut à gauche automatiquement (comme si elle était en A1)?

Existe-t-il une fonction qui fait cela?

Merci de votre aide.