Gestion du nom de la feuille

Bonjour,

Je recherche un code qui :

- Renomme la feuille active selon la valeur de la cellule "C2" de la feuille "Prog"

- Affiche la feuille dont le nom est la valeur de la cellule C3 de la feuille prog

Merci pour vos lumières et bonne journée

Bonjour India901 ,

Essayez :

   ActiveSheet.Name = Sheets("Prog").Range("c2")
   Sheets(Sheets("Prog").Range("c3").Value).Select

Merci pour votre réponse

La 1ère partie fonctionne (renommer la feuille)

Par contre la 2eme partie de ne fonctionne pas

" La méthode Select de la classe worksheet a échoué"

Salut,

Quelque chose du genre ?

Public Sub rename()
Dim x$

With ActiveSheet
x = Sheets("Prog").Cells(2, 3)
    .Name = x
    Sheets(x).Activate
End With
End Sub

Par contre, si tu renommes la feuille en cours, il n'y a pas d'intérêt à afficher la feuille qui vient d'être renommée.

A plus tard !

Re India901,

Par contre la 2eme partie de ne fonctionne pas

" La méthode Select de la classe worksheet a échoué"

Et dans le fichier joint ?

Bonjour,

Merci à vous deux

ça n'a a pas marcher du 1er coup mais en retouchant légèrement le code j'ai obtenu ce que je voulais

Sans doute une confusion de notre part entre afficher et activer

Merci pour votre aide

Bonne journée

A toutes fins utiles voici le code fonctionnel :
Sheets(Sheets("Prog").Range("c3").Value).Visible = True

Prog C3 contient le nom de la feuille devant être affichée

(Affichée = visible par opposition à masquée)