Discussion :

[bravounet]

Bonjour à toutes et tous,

On ma chargé d'effectué différents tableaux pour ma boite, et je me vois mal effectuer les mêmes manoeuvres chaque année plus de 50 fois. J'essaie donc d'automatiser tout ce qui peut l'être afin d'alléger la tâche, mais...

J'ai un problème qui a déjà été exposé par plusieurs utilisateurs sur différents sites, mais les réponses que j'y ai trouvées ne fonctionne pas chez moi... J'en conclus que je suis une belle clenche, et j'ai donc besoin de vos connaissances.

J'ai une cellule "A5" sur ma feuille "Recap" qui contient une liste déroulante.
J'ai nommé cette cellule "A5" en "Année"
J'ai importé un tableau dans ce même fichier qui effectue une mise en forme via une macro que j'ai créée, et j'aimerais que cette macro change le nom de la feuille par la valeur choisie dans "Année"

Actuellement, j'ai ceci:

Code :

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

ActiveSheet.Name = Sheets("Recap").Range("A5").Value

ou encore

Code :

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

ActiveSheet.Name = Sheets("Recap").Range("annee").Value

Mais bien évidemment, ça bug... Et j'ignore pourquoi (enfin si, probablement une grosse erreur de syntaxe,...)

J'ignore si j'ai été relativement clair dans l'énoncé... Si ce n'était pas le cas, faites-le moi savoir, et je joindrai éventuellement un exemple concret par fichier excel...

Merci d'avance pour votre aide...

[BenjGe]

voir ici

[bravounet]

Merci pour ta réponse Benjîle.

J'avais vu tes réponses au lien que tu as mentionné, en faisant mes recherches, et je ne pensais pas que cela s'appliquerait à mon cas étant donné que je souhaite utiliser des noms définis pour trouver le nom que la feuille devra prendre ("Annee" au lieu de "A5"), et quand bien même j'utiliserais la référence "A5", ... Je n'y arrive pas!

J'ai cependant essayé d'utiliser la fonction INDIRECT, mais sans y arriver. Au moment d'exécuter la macro, j'ai un message d'erreur "Compile Error : Sub or Function not defined"
Ce que je n'avais pas hier quand j'ai testé un peu n'importe comment cette fonction "INDIRECT" ... N'ayons pas peur des mots, je ne sais pas du tout comment utiliser cette fonction dans vba, ...

[BenjGe]

comme ta question était en partie excel j'ai bêtement répond par une fonction de calcul excel

ta macro doit travailler à partir d'une variable objet worksheet

Code :

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

1
2
3
4
5
dim sh as Worksheet
set sh=worksheets(range("Annee").value)
'maintenant sh est la worksheet sur laquelle tu veux travailler
sh.copy 'ici je copie la feuille dans un nouveau classeur par exemple
...

[bravounet]

Je n'ai pas vu ta réponse, nous l'avons posté à peu près en même temps!
Merci pour le temps passé pour moi.

Ta solution est effectivement plus professionnelle, ... Penses-tu que la mienne risque de me limiter, un moment où l'autre? Dans quels cas (en gros hein..)

comme ta question était en partie excel j'ai bêtement répond par une fonction de calcul excel

ta macro doit travailler à partir d'une variable objet worksheet

Code :

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

1
2
3
4
5
dim sh as Worksheet
set sh=worksheets(range("Annee").value)
'maintenant sh est la worksheet sur laquelle tu veux travailler
sh.copy 'ici je copie la feuille dans un nouveau classeur par exemple
...

[BenjGe]

non continue avec ton code,
pas besoin de t'embêter plus que ça si ça marche.

[bravounet]

Et bien, ... Je suis un boulet!

En fait, la première ligne de code que j'ai mentionnée est tout à fait fonctionnelle:

Code :

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

ActiveSheet.Name = Sheets("Recap").Range("annee").Value

Si si ...

C'est juste que si une autre feuille existe déjà avec ce même nom, alors la macro Bug (plutôt que d'informer que la feuille existe déjà, ou de la renommer automatiquement en "(2)" par exemple...)

Donc, pas de INDIRECT nécessaire dans mon cas. Peut-être que ça pourrait optimiser le code, ceci dit?

[BenjGe]

ok!!!!!!
laisse tomber mes conseils, j'ai répondu à côté 2 fois de suite