reduir

[Olyxier]

Bonsoir le forum

quel code peu remplacer ces lignes

ActiveWindow.ScrollColumn = 172
ActiveWindow.ScrollColumn = 173
ActiveWindow.ScrollColumn = 174
ActiveWindow.ScrollColumn = 175
ActiveWindow.ScrollColumn = 176
ActiveWindow.ScrollColumn = 177
ActiveWindow.ScrollColumn = 178
ActiveWindow.ScrollColumn = 179
ActiveWindow.ScrollColumn = 180
ActiveWindow.ScrollColumn = 181
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1


merci et bonne soirée le forum

 

[Luki]

Re : reduir

salut,

je dirais :

ActiveWindow.ScrollColumn = 181
ActiveWindow.ScrollRow = 1


bonne soirée


edit : un extrait de l'aide :

ScrollColumn, propriété
Renvoie ou définit le numéro de la colonne de gauche du volet ou de la fenêtre. Type de données Long en lecture-écriture.

 

[Evelynetfrancois]

Re : reduir

bonsoir Luki
quel est le but de passer par toutes ces colonnes et toutes ces lignes ?
pour finalement selectionner une cell "FY1"

tu as surement une raison .....non ?
sinon
Application.GoTo Reference:=ActiveSheet.Range("FY1"), Scroll:=True
conviendrait peut etre ........
E et F

 

[Olyxier]

Re : reduir

merci beaucoup