Discussion :

[P96O1004]

Bonjour,

J'ai eu du mal à expliquer mon problème sur le titre. C'est aussi la raison pour laquelle je n'arrive pas à utiliser mon ami google .
En effet, je veux faire un macro pour déplacer vers la feuille juste avant.
Par exemple : je suis dans la feuille 5, je clique sur la feuille 9, je exécute le macro et je reviens à feuille 5 .

Comment le dit sur vba ?

Merci d'avance

[drakkar_agfa]

Bonjour,

Est-ce quelque chose comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil5").Activate

Sinon, tu devras expliquer un peu plus!

[casefayere]

Bonjour,

peut-être en déclarant ta feuille dans une variable "public" avant de changer

dans un module
public nomfeuil as string

dans ta procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomfeuil = activesheets.name

en fin de procédure sur feuille 9

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets(nomfeuil).activate 'ou select

ca devrait marcher

[P96O1004]

Merci pour les réponses si rapides

Mais je veux que ce macro marche pour toutes les feuilles. Ca veut dire, si je suis à feuille 1, je vais à feuille 2, ensuite, je vais à feuille 3, je lance le macro, je reviens à feuille 2, je lance encore macro je reviens à feuille 1.

C'est pour naviguer entre 2 feuille dans un fichier de 60 feuilles.

Si un jour excel comprend ce qu'on pense, ça sera

[drakkar_agfa]

Il est possible d'utiliser cette technique (comme précédent dans exploreur) mais tu devras coder autant de variables (ou un tableau) contenant le nombre de feuilles que tu veux garder.

Et faire quelque chose du genre

Ancien 1 = Ancien 2
Ancien 2 = Ancien 3
Ancien 3 = Ancien 4
Ancien 4 = Actuel

...

Je viens de penser à quelque chose...

En utilisant une feuille vide qu'on pourrait nommer historique...
En utilisant aucune variable!

La colonne A de la feuille historique contient une valeur (nuérique) qui indique le nombre de feuilles visitées.
La colonne B ... Quand l'utilisateur change de feuille on incrément le compteur (A1), le nom de l'ancienne feuille s'inscrit à la suite (donc la ligne inscrit en A1)

Quand on exécute la macro, on retourne à la dernière feuille inscrite dans la colonne B (en utilisant le numéro du compteur), en effacant la dernière feuille et diminuant le compteur de 1.

[laetitia]

bonjour le fil le forum essai un truc comme cela dans ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Inser()
On Error Resume Next 'pour la 1feuil
'ton code
ActiveSheet.Previous.Select
End Sub

[drakkar_agfa]

Ce code sélectionne la feuille précédente (en position) et non la feuille sélectionnée précédemment...

[tototiti2008]

Bonjour Antoine,

Bienvenue sur le forum
Tu viens de répondre à une question de ... 2009
Pense à regarder la date, ça permet de voir si la question est d'actualité

[ANTOINE1961]

Bonjour,

J'ai eu du mal à expliquer mon problème sur le titre. C'est aussi la raison pour laquelle je n'arrive pas à utiliser mon ami google .
En effet, je veux faire un macro pour déplacer vers la feuille juste avant.
Par exemple : je suis dans la feuille 5, je clique sur la feuille 9, je exécute le macro et je reviens à feuille 5 .

Comment le dit sur vba ?

Merci d'avance

Dans le code ci-dessous c'est pour copier une feuille (ou un ensemble de cellules, n'importe quelle partie au fait. et revenir la coller à la page d'où tu es parti, c'est bien cela ? Dans ce code je pars d'une feuille quelconque et je vais aller copier et coller la feuille 1 dans la page où je me trouvais précédemment. QUELLE QUE SOIT la page où tu te trouves tu laisses le code TEL QUEL, la moindre ligne, tu changes juste la page (ici page 1 dans mon code) par celle que tu veux copier, ou copier en partie.

Voici le code :

Sub Macro_code_demandé()

Set LastSheet = ActiveSheet
Feuil1.Select
Range("A1:N2").Select
Selection.Copy
LastSheet.Activate
Range("A1").Select
ActiveSheet.Paste

End Sub

IL TE SUFFIT DE REMPLACER Feuil1 par la feuille que tu veux copier en tout ou partie. Tu utilises "cells.select" si tu veux la copier en entier ou range(x:y) si tu ne veux qu'une partie. SURTOUT NE CHANGE RIEN D'AUTRE !!!!!

Bien à toi.

Antoine.