OVH Cloud OVH Cloud

origine

7 réponses
Avatar
André
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro mes
feuilles fassent apparaitre la colonne A car actuellement je les retrouve
n'importe ou..

merci d'avance
à qui me dépannera...

André

7 réponses

Avatar
Clément Marcotte
Bonjour,

Juste avant l'exit sub, mettre:

activesheet.range("a1").select

"André" a écrit dans le message de
news:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes

feuilles fassent apparaitre la colonne A car actuellement je les
retrouve

n'importe ou..

merci d'avance
à qui me dépannera...

André


Avatar
Clément Marcotte
Bonjour,

Tu peux aussi vérifier dans tes macros, s'il n'y aurait pas sélections
inutiles. Bien des opérations peuvent être effectuées sans sélection
préalable.


"André" a écrit dans le message de
news:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes

feuilles fassent apparaitre la colonne A car actuellement je les
retrouve

n'importe ou..

merci d'avance
à qui me dépannera...

André


Avatar
André
Bonjour Clement

Merci de ta solution mais elle ne donne pas toujours satisfaction... avec
excel 97.. j'espérais mieux..dommage

cordialement
andré

"Clément Marcotte" wrote:

Bonjour,

Juste avant l'exit sub, mettre:

activesheet.range("a1").select

"André" a écrit dans le message de
news:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes

feuilles fassent apparaitre la colonne A car actuellement je les
retrouve

n'importe ou..

merci d'avance
à qui me dépannera...

André






Avatar
papou
Bonjour
En complément de la réponse de Clément, il est effectivement assez judicieux
d'éviter la sélection de cellules lors de l'exécution de macros.
Ceci étant, la solution pourrait consister justement en une sélection
Sub Position_En_A1()
For Each f In ThisWorkbook.Worksheets
f.Select
f.Range("A1").Select
Next f
End Sub
Mais perso elle ne m'apparaît pas comme étant très "élégante"
;-)
Cordialement
Pascal

"André" <andré@aol.com> a écrit dans le message de news:

Bonjour Clement

Merci de ta solution mais elle ne donne pas toujours satisfaction... avec
excel 97.. j'espérais mieux..dommage

cordialement
andré

"Clément Marcotte" wrote:

Bonjour,

Juste avant l'exit sub, mettre:

activesheet.range("a1").select

"André" a écrit dans le message de
news:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes

feuilles fassent apparaitre la colonne A car actuellement je les
retrouve

n'importe ou..

merci d'avance
à qui me dépannera...

André








Avatar
jps
faut dire au crédit de clément que la question n'était pas de la plus grande
limpidité....
jps

"André" a écrit dans le message de
news:
Bonjour Clement

Merci de ta solution mais elle ne donne pas toujours satisfaction... avec
excel 97.. j'espérais mieux..dommage

cordialement
andré

"Clément Marcotte" wrote:

Bonjour,

Juste avant l'exit sub, mettre:

activesheet.range("a1").select

"André" a écrit dans le message de
news:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes

feuilles fassent apparaitre la colonne A car actuellement je les
retrouve

n'importe ou..

merci d'avance
à qui me dépannera...

André








Avatar
GD
Bonsour® André,
Adaptation de la proc de Papou :
Sub Position_En_A1()
For Each f In ThisWorkbook.Worksheets
f.Activate
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Next f
End Sub

Nb :
attention cette proc ne bouge pas la(es) selection(s) active(s)
toutes actions effectuées aprés cette éxécution s'appliqueront à la feuille
active
dans ce cas la dernière de la collection Worksheets

il est judicieux dans ces conditions d'afficher en final une feuille précise
ex: ThisWorkbook.Worksheets(1).select

@+






ote:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes feuilles fassent apparaitre la colonne A car actuellement je les
retrouve n'importe ou..

merci d'avance
à qui me dépannera...

André


Avatar
André
merci à tous pour vbotre aide... je vais verifier lmes selections de cellules
et faire un select A1
a plus merci encore

"GD" wrote:

Bonsour® André,
Adaptation de la proc de Papou :
Sub Position_En_A1()
For Each f In ThisWorkbook.Worksheets
f.Activate
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Next f
End Sub

Nb :
attention cette proc ne bouge pas la(es) selection(s) active(s)
toutes actions effectuées aprés cette éxécution s'appliqueront à la feuille
active
dans ce cas la dernière de la collection Worksheets

il est judicieux dans ces conditions d'afficher en final une feuille précise
ex: ThisWorkbook.Worksheets(1).select

@+






ote:
Bonjour à tous
Une petite question : comment faire pour qu'après execution de macro
mes feuilles fassent apparaitre la colonne A car actuellement je les
retrouve n'importe ou..

merci d'avance
à qui me dépannera...

André