control origine en VBA

[Titi]

Bonjour au forum.

un petit truc comment faire dans une macro control+origine pour revenir en haut de la feuille.


Merci


Titi

 

[deudecos]

Bonjour Titi,

Je crois que le plus simple est de faire la manipe une fois avec l'enregistreur de macro et de lui attribuer un bouton...

Bon apres midi

Olivier

 

[JeanMarie]

Bonjour

C'est cela que tu cherches ?

SendKeys '{^HOME}'

@+Jean-Marie

PS Ce code ne fonctionnera pas sur MAC, il faudra utiliser
Range('A1').select

 

[Titi]

re

Salut a vous deux


J'ai bien essayé range ('a1').select mais ça ne fonctionne pas

SendKeys '{^HOME}' ne fonctionne pas non plus


Merci


Titi

 

[JeanMarie]

RE...

Donne nous plus d'infos.

@+Jean-Marie

 

[Titi]

Re


j'ai un macro une fois quel a fini je voudrais que la fenêtre ce retrouve en A1.


j'ai utilisé Application.ScreenUpdating = False

il est vrai que cette macro ouvre un autre fichier.

voici la macro
Sub tranfert_des_donnees()

Dim res As String

res = MsgBox('As tu pensé a rechercher les infos stock', vbYesNo)

If res = vbNo Then
Exit Sub
ElseIf res = vbYes Then



Application.ScreenUpdating = False

ActiveWindow.SmallScroll ToRight:=31
Columns('AL:AQ').Select
Selection.Copy
Workbooks.Open Filename:='\\\\Valerie_r\\partage\\STOCK FRUITS.xls'
Application.CutCopyMode = False
ActiveSheet.Unprotect password:='CV'
Columns('J:J').Select
Windows('PLANIFICATION ERIC.XLS.xls').Activate
Selection.Copy
Windows('STOCK FRUITS.xls').Activate
Columns('J:O').Select
ActiveSheet.Paste
Range('H1').Select
Application.CutCopyMode = False
ActiveSheet.Protect password:='CV'
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = False
Windows('PLANIFICATION ERIC.XLS.xls').Activate
Range('A1:E1').Select

Application.ScreenUpdating = True
End If

End Sub

Merci

 

[_Thierry]

Bonjour Jean-Marie, Deudecos, Titi, le Forum

Il y a une Propriété toute Simple ...

ScrollRow, propriété


Sub HomeSweetHome()
ActiveWindow.ScrollRow = 1
End Sub


Bon Samedi
@+Thierry

 

[Titi]

Re

Bonjour Thierry

je n'y arrive pas j'ai mis ton code dans un bouton je ne remonte pas en haut de la feuille

Merci

Titi

 

[deudecos]

Bonjour Titi,Thierry, Jean Marie, le forum,

Mon avis de debutant...
Il ne serait pas plus simple de rajouter a la fin de la macro :

sheets('feuille voulue').range('a1').select

Mais bon, je n'ai pas votre experience encore alors je doute...

Bonne fin d'apres midi

Olivier

 

[_Thierry]

Re Bonsoir

Je pense que tu dois avoir un truc qui t'échappe...

Regarde la Démo miniature ci-jointe, le code et dans le Private Module de la Feuil1 (Click DRoit sur l'Onglet 'Visualiser le Code')

Pour Deudecot, le Select ne fera pas systématiquement le Scroll adéquate...

Bonne Fin de Journée
@+Thierry [file name=ScrollRow.zip size=8282]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ScrollRow.zip[/file]