Quelle que soit la cellule, qu'elle soit en haut

[Brigitte]

Bonsoir à tous,


Mon cher époux me pose la questions suivante :

Il a dans une feuille des boutons qui l'emmènent dans une autre feuille, dans certaines cellules qui peuvent donc être A122, A145, C125, K208, etc, autant de boutons que de directions possibles.

Ce qu'il voudrait c'est que une fois cliqué sur un de ces boutons, la cellule en question se retrouve la première cellule en haut à gauche de l'écran.

Voilà, si vous avez des idées, elles seront les bienvenues.

Merci d'avance. Bonne soirée à tous.

 

[Brigitte]

Re,

Hervé vient de me trouver une super macro, facile et tout et tout, je vous la livre :

Sub Cellule()
'
' Cellule Macro
' Macro enregistrée le 21/04/2006
'
Sheets('Feuil2').Select
Range('C32').Select
With ActiveWindow
.ScrollRow = 32
.ScrollColumn = 3
End With
End Sub

ou encore plus facile

Sub Cellule()
'
' Cellule Macro
' Macro enregistrée le 21/04/2006
'
Sheets('Feuil2').Select
Range('c32').Select
With ActiveWindow
.ScrollRow = 32
.ScrollColumn = Columns('C').Column
End With

Une troisième pour la route ?

Sub Cellule()
'
' Cellule Macro
' Macro enregistrée le 21/04/2006 par ruet
'

'Sheets('Feuil2').Select
Range('A125').Select
With ActiveWindow
.ScrollRow = ActiveCell.Row
.ScrollColumn = ActiveCell.Column
End With
End Sub

Plus facile, ca évite de chercher les numéros de colonne (dixit Maître Hervé)


Si ca peut servir à qqun. Merci mille fois Hervé, Pierre va dormir du sommeil du brave.

Message édité par: Brigitte, à: 21/04/2006 22:56

 

[Mytå]

Salut le forum

Une autre approche

Sub Positionner()

'Positionner sur la Feuille 2 la cellule C32'

Sheets('Feuil2').Activate

With ActiveWindow
.ScrollRow = 32
.ScrollColumn = Columns('C').Column
Application.Goto ActiveSheet.Cells(.ScrollRow, .ScrollColumn), True
End With

End Sub

Mytå

 

[Brigitte]

Merci Myta... (désolé pour le truc sur le y)

Ca fait donc 4 solutions, mais bon la dernière d'Hervé me paraît plus simple à utiliser pour en faire beaucoup.


Bonne journée à toi, ici c'est plein soleil.

Bisous