OVH Cloud OVH Cloud

Volet/haut

6 réponses
Avatar
Érico
Dans une feuille, j'ai un volet.

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("A16").Select
End Sub

Et quand, j'exécute cette macro, je dois défilé vers le haut très loin.


Comment mettre à la fin d'une macro d'aller au début de la feuille sans
sélectionné une cellule et désélectionné et en plus, d'Aller tout mettre au
début malgré le volet.

Merci

6 réponses

Avatar
isabelle
bonjour Érico,

remplace
Range("A16").Select
par
Application.Goto Range("A16")

isabelle

Dans une feuille, j'ai un volet.

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("A16").Select
End Sub

Et quand, j'exécute cette macro, je dois défilé vers le haut très loin.


Comment mettre à la fin d'une macro d'aller au début de la feuille sans
sélectionné une cellule et désélectionné et en plus, d'Aller tout mettre au
début malgré le volet.

Merci




Avatar
Erico
ça ne fonctionne pas non plus....


"isabelle" a écrit dans le message de news:

bonjour Érico,

remplace
Range("A16").Select
par
Application.Goto Range("A16")

isabelle

Dans une feuille, j'ai un volet.

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("A16").Select
End Sub

Et quand, j'exécute cette macro, je dois défilé vers le haut très loin.


Comment mettre à la fin d'une macro d'aller au début de la feuille sans
sélectionné une cellule et désélectionné et en plus, d'Aller tout mettre
au début malgré le volet.

Merci




Avatar
isabelle
en fesant toujours cette même réponse sans plus d'explication, tu n'encouge pas les bénévoles de ce forum à te venir en aide.

isabelle

ça ne fonctionne pas non plus....


"isabelle" a écrit dans le message de news:


bonjour Érico,

remplace
Range("A16").Select
par
Application.Goto Range("A16")

isabelle


Dans une feuille, j'ai un volet.

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("A16").Select
End Sub

Et quand, j'exécute cette macro, je dois défilé vers le haut très loin.


Comment mettre à la fin d'une macro d'aller au début de la feuille sans
sélectionné une cellule et désélectionné et en plus, d'Aller tout mettre
au début malgré le volet.

Merci









Avatar
J
Bonjour
j'ai répondu de nouveau plus haut à ton post sous un autre objet
J@@

ça ne fonctionne pas non plus....

"isabelle" >>
remplace
Range("A16").Select
par
Application.Goto Range("A16")

isabelle

Dans une feuille, j'ai un volet.

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("A16").Select
End Sub

Et quand, j'exécute cette macro, je dois défilé vers le haut très loin.

Comment mettre à la fin d'une macro d'aller au début de la feuille sans
sélectionné une cellule et désélectionné et en plus, d'Aller tout mettre
au début malgré le volet.

Merci






Avatar
Érico
Vous n'avez pas la réponse?


"J@@" a écrit dans le message de news:
%23$
Bonjour
j'ai répondu de nouveau plus haut à ton post sous un autre objet
J@@

ça ne fonctionne pas non plus.... "isabelle" >>
remplace
Range("A16").Select
par
Application.Goto Range("A16")

isabelle

Dans une feuille, j'ai un volet.

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("A16").Select
End Sub

Et quand, j'exécute cette macro, je dois défilé vers le haut très loin.

Comment mettre à la fin d'une macro d'aller au début de la feuille sans
sélectionné une cellule et désélectionné et en plus, d'Aller tout
mettre au début malgré le volet.

Merci








Avatar
J
Bonjour
Vous n'avez pas la réponse?
"J@@"
j'ai répondu de nouveau plus haut à ton post sous un autre objet



Grande est la zénitude des contributeurs, mais j'ai l'impression que tu
ne lis jamais les réponses, que tu repostes 60 mille fois les mêmes
questions sous des objets différents.
Revoici ma modeste participation à ton travail
J@@

************ copie de ma réponse à ton post "Remettre à la bonne
cellule" du 12/06

laisse juste cela à la fin de ta macro
ActiveSheet.Protect Password:="hahaha" '______________ l'active
Range("B17").Select
End Sub

Si par hasard tu as la ligne
Application.ScreenUpdating = False 'dans ta macro, ajoute
Application.ScreenUpdating = True 'juste avant la sélection de ta range

@+
J@@

j'enlève au début et à la fin?

"J@@" <
supprime ta ligne
Application.ScreenUpdating = False
ou met une apostrophe devant

j'Ai une feuille avec un volet et comment je fais pour avoir une
macro qui ferait en sorte que je serai toujours au début.



Pourtant, dans ma macro, je lui demande d'Aller ;a la cellule,
première cellule en dessous du volet.




Voici la fin de ma macro:

ActiveSheet.Protect Password:="hahaha" '______________ l'active
Application.ScreenUpdating = False
Range("B17").Select
End Sub



**************