Placer cellule en haut a gauche

[mix770]

Bonjour,
j'ai un tableau avec avec plusieurs onglets (mois), je souhaiterai un lien, bouton click), qui envoie sur l'onglet (cma) en plaçant une cellule en haut à gauche (ex: A15).
cela permet de mettre plusieurs tableau sur le même onglet
je coince avec le VBA.... j'iai un tableau pour exemple
merci à vous
cordialement

 

[mix770]

Re : Placer cellule en haut a gauche

bonjour,
personne pour venir a mon secours
je coince vraiment
merci a vous

 

[Gelinotte]

Re : Placer cellule en haut a gauche

Bonjour,

Il faut remercier LaPierre dont j'ai pris le code ... ici ... .

Sub Rectangle1_Cliquer()
   Sheets("cma").Select
   'pour placer la cellule A15 en haut à gauche Ligne 15, colonne 1
    Onglet = ActiveSheet.Name
    MakeTopLeft ThisWorkbook.Sheets(Onglet).Cells(15, 1)
End Sub

Sub MakeTopLeft(R As Range)
  R.Parent.Activate
  ActiveWindow.ScrollRow = R.Row
  ActiveWindow.ScrollColumn = R.Column
End Sub

G

 

[Staple1600]

Re : Placer cellule en haut a gauche

Bonjour à tous

Une petite variante un peu plus courte

Sub MakeTopLeft(R As Range)
Application.Goto R, True
End Sub

Ou directement

Sub Rectangle1_Cliquer()
Application.Goto Sheets("cma").[A15], True
End Sub

PS: Pour ma part, je remercie Monsieur Goto

 

[mix770]

Re : Placer cellule en haut a gauche

Bonjour à tous,
j'adore ce forum, toujours un sauveur prêt à aider.
Alors merci à tous
j'ai donc créer un bouton ou une forme ça marche aussi, affecté une macro et c'est génial, ça marche
ci dessous grâce à vous ma macro:
, si ça peut aider un autre membre:
Sub bouton cma()
Colonne = ActiveWindow.ScrollColumn
Ligne = ActiveWindow.ScrollRow
Sheets("envoicel").Activate
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 24
End Sub

et merci encore
cordialement