Touche défilement enregistrer dans une macro

[Mytå]

Salut le Forum,

Bon encore moi avec une question spéciale

Comment insérer dans un macro l'effet donner par le racourcie clavier

suivant :

<touche défilement> ensuite touche <fin>
[donne cellule droite bas de la feuille]

<touche défilement> ensuite touche <origine>
[donne cellule gauche haut de la feuille]

Je veux pas avoir dans la macro ecrit range("B20").select comme

me donne l'enregistreur de macro

Merci à l'avance

º¿º Mytå

 

[@+Thierry]

Bonsoir Myta

Je pense que sur ce fil tu trouveras une base d'info pour rédiger ce genre de code :

Lien N°8908
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=8916&t=8908>


ou bien sur celui là N°10686
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=10690&t=10686>

çà fait plaisir de voir du monde ce soir... C'était un dimanche calme !

si tu veux plus d'info dis le, je dois avoir fait une démo la dessus récemment
(je sais plus où !! lol)

@+Thierry

 

[Mytå]

Re Bonsoir le Forum, salut @+Thierry,

En fait ce que je veux faire c'est d'avoir la premiere cellule en haut a gauche de la feuille et la derniere cellule en bas a droite de cette meme
feuille, qu'elle soit vide ou remplie.

Si la feuiile active voit les cellules E12😛43

la fonction <defilement> actionné

en tapant <origine> j'ai la cellule E12 selectionné

en tapant <fin> j'ai la cellule P43 selectionné

et cela dans une macro ou je pourrais recupere pour la cellule active

les valeurs rows et cells. Cela OK ActiveCell.row et ActiveCell.column

Merci encore à tous et Joyeuses Fêtes à vous tous habitué du Forum

º¿º Mytå

 

[Ti]

essaie ces procédures qui te permettent de faire cela automatiquement. La différence entre FinPage1 et FinPage c'est que FinPage1 te renvoie toujours la dernière cellule de la première page (écran) affichée alors que FinPage te renvoie la fin de la page (écran) en cours

Sub FinPage1()
SendKeys "^{END}"
End Sub

Sub FinPage()
SendKeys "{SCROLLLOCK}{END}", True
End Sub

Sub HautPage()
SendKeys "{SCROLLLOCK}{HOME}", True
End Sub

Sub FinTableau()
SendKeys "^({DOWN}{RIGHT})"
End Sub

Sub HautTableau()
SendKeys "^({LEFT}{UP})"
End Sub

 

[Ti]

pour trouver le milieu de l'écran :

<http://www.excel-downloads.com/html/French/forum/messages/1_11540_11354.htm>