Problème avec .Activate...

[i0raek]

Problème avec .Activate... [RESOLU]

Bonjour Forum !!!

j'aimerais pouvoir basculer sur une feuille en utilisant son codename et revenir sur la feuille d'orignie également à l'aide du codename, et non du name, ceux-ci pouvant d'être modifiés...)

Voici le code que j'ai saisi :

Dim FeuilleOrg as Variant

FeuilleOrg = ActiveSheet.CodeName
Feuil1.activate

"..."

FeuilleOrg.activate

Mon problème est le suivant, excel cherche une feuille dont le codename est FeuilleOrg. Il ne va pas chercher la valeur de FeuilleOrg... 🙁

Est ce que quelqu'un aurait une idée ??? toute suggestion sera la bienvenue !!!

Mercie d'avance pour votre aide ! 🙂

 

[wilfried_42]

Re : Problème avec .Activate...

bonjour

Les noms de feuille peuvent etre renommées, mais uniquement quand l'utilisateur à la main

tant que la macro tourne, l'utilisateur n'a pas la main

Tu peux donc utiliser le nom de la feuille tant que ta macro tourne

 

[i0raek]

Re : Problème avec .Activate...

Re,

mais je ne veux pas renommer le nom d'une feuille mais stocker son nom dans une variable... pour pouvoir la réutiliser a posteriori...

Lorsque j'utilise le code ci-dessus, il me retourne en message d'erreur :

Erreur d'exécution '424'

Objet requis.

Avez vous une idée ?

 

[ninbihan]

Re : Problème avec .Activate...

Bonjour,


Peut être ainsi:

Dim FeuilleOrg as string

FeuilleOrg = ActiveSheet.codename
Feuil1.activate

"..."

sheets(FeuilleOrg).activate

Bonne journée,

Ninbihan

 

[i0raek]

Re : Problème avec .Activate...

Re,

Le problème c'est que sheets(...) permet d'appeler une feuille avec son name et non son codename... la feuille "FeuilleOrg" n'existant pas, excel renvoie le message d'erreur :

Erreur d'exécution '9' :

L'indice n'appartient pas à la sélection.

En fait cette méthode fonctionnerait si les noms des feuilles n'étant pas amnenés à être modifiés...

 

[wilfried_42]

Re : Problème avec .Activate...

re:

Je n'ai pas parler de renommer la feuille, tu dis utiliser les codename par craite que les utilisateurs les renomment

Relis ce que j'ai ecrit

ca donne ca

Dim FeuilleOrg as Variant

FeuilleOrg = ActiveSheet.[COLOR="Red"]name[/COLOR]
Feuil1.activate

"..."

[COLOR="red"]sheets("FeuilleOrg")[/COLOR].activate

oups ! Excuse, Bonjour ninbihan

 

[ninbihan]

Re : Problème avec .Activate...

Re,

Euh oui, et avec index ?

Sub test()
Dim FeuilleOrg As Integer
FeuilleOrg = ActiveSheet.Index
Feuil1.Activate


Sheets(FeuilleOrg).Activate
End Sub

Edit: Bonjour Wilfried

 

[i0raek]

Re : Problème avec .Activate...

Re,

En effet, je n'avais pas vu les choses ainsi...

Désolé ! 😱

Merci beaucoup pour votre aide !!!

 

[Robert]

Re : Problème avec .Activate...

Bonjour le fil, bonjour le forum,

une autre proposition :

Dim FeuilleOrg As Worksheet
Set FeuilleOrg = ActiveSheet
Feuil1.Activate
FeuilleOrg.Activate

 

[i0raek]

Re : Problème avec .Activate...

Re tout le monde !

Merci à tous pour votre aide !!!

J'ai tout ce qu'il me fallait et bien plus !!! 🙂

Merci encore !