Nommer les feuilles à partir d'une cellule

[xpremierx]

Bonjour,

Je veux nommer les feuilles d'un classeur en fonction du contenu d'une cellule de la feuille (toujours la même cellule dans chaque feuille : D7).

J'essaie de faire fonctionner la macro que j'ai trouvée un jour sur ce forum, en vain.

Voici la macro :

Sub Nommer_Feuilles()

Dim Feuille As Worksheet

Application.ScreenUpdating = False

For Each Feuille In Worksheets

With Feuille
Feuille.Name = Feuille.Cells(7, D).Value
End With
Next Feuille

Application.ScreenUpdating = True

End Sub

Selon le débogage, il s'agirait d'une erreur dans la ligne :
Feuille.Name = Feuille.Cells(7, D).Value

Merci à celui qui l'indiquera où est l'erreur !

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Merci said
Je m'y mets demain... (soirée chargée !)

et pour JCGL : je vais aussi sur ton lien demain !!

Bonne soirée à tous

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Merci JCGL

Dépose un classeur avec cinq ou six feuilles.
Pense à le compresser en *.zip

D'accord, c'était avant-hier que tu me proposais ça, mais je n'ai pas eu le temps depuis. Excuse-moi.

Ci-joint le zip. Tu peux me donner la macro ?
Et, petite question, comment revenir en arrière après avoir appliqué une macro ?
Merci...

Au fait, je ne vois pas de barre d'outils dans ce forum...

Quant au site Accueil - Club d'entraide des développeurs francophones, il est terriblement complet ! de quoi passer mes longues soirées d'hiver !

 

[JCGL]

Re : Nommer les feuilles à partir d'une cellule

Bonjour à tous,

Oublie mon lien pour les différents langages de programmations...
On verra ça plus tard.
Garde le lien sur Dev.net, un portail de référence sur les programmations...
Bon OK, il sont moins rigolos 😛 que sur XLD mais ils ont fait un choix.
La compétence peut-elle supporter la "déconne". Je le pense (et cela n'engage que moi...)

Pour ton fichier, tu déposes mon Module1 dans ton fichier et HOP...

En attachement ton fichier avec les onglets nommés.
Réalisé par un simple appel de la macro Sub Nommer_Feuilles()

Difficile de faire plus et de t'en dire plus...
Toutes tes feuilles seront nommées avec la valeur de D7

A+

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Pour ton fichier, tu déposes mon Module1 dans ton fichier et HOP...

En attachement ton fichier avec les onglets nommés.
Réalisé par un simple appel de la macro Sub Nommer_Feuilles()

Désolé : je ne comprends pas ce que tu veux dire...
J'ai essayé ta macro Nommer_feuilles() sur mon fichier d'origine,mais ça n'a pas fonctionné !

 

[Cousinhub]

Re : Nommer les feuilles à partir d'une cellule

Bonsoir, le fil

je m'incruste, juste pour :

"Dixit JC" :

La compétence peut-elle supporter la "déconne". Je le pense

+1

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Tout à fait d'accord avec bhbh !
Reste ma question : comment revenir en arrière après avoir exécuté une macro ?

 

[JCGL]

Re : Nommer les feuilles à partir d'une cellule

Bonjour à tous,
Salut BH² 🙂,

Avec mon fichier : change la valeur en D7 et lance la macro, les noms de feuilles sont modifiés... En tout cas chez moi (et compte sur BH² pour me "casser" si cela n'avait pas fonctionné arf arf 😛)

Pour "revenir en arrière" et avec le code donné, tu modifies le nom en D7 et la feuille changera de nom. Difficile d'en dire plus



A++ 🙂
A+ à tous

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Ton fichier fonctionne (évidemment) parfaitement...
Mais pas le mien (original). Je t'ai fait un message perso : peux-tu le regarder ? Merci...

Pour ce qui est du retour arrière, ce n'est pas évident quand on a 150 feuilles dans le classeur !
Il me semble que la meilleure façon est peut-être de veiller à ne pas enregistrer trop vite, ou mieux :! faire une copie préalable à l'exécution de la macro..

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Que s'est-il passé ? Il manque des messages que j'ai mis hier et avant-hier ...

 

[JCGL]

Re : Nommer les feuilles à partir d'une cellule

Bonjour à tous,

J'ai répondu à ton message qui me demandait mon adresse courriel : pas de retour de ta part

A+

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Merci JCGL,

Je n'ai pas reçu ton message ! Peux-tu me le renvoyer ? Tu me rendras service...

Il s'est passé quelque chose de bizarre sur ce forum ! il manque des messages.. comme si le serveur les avait supprimés.

Notamment, je n'ai plus le post dans lequel je te disais que je t'avais envoyé un message perso (celui-ci n'est d'ailleurs pas dans ma liste de messages envoyés), mais aussi celui dans lequel je disais que je me suis aperçu que, avec mon fichier d'origine, en supprimant toutes les formules de renvoi à la première feuille dans les autres feuilles (ce qui me permet de modifier toutes les feuilles en changeant uniquement la première) du type =Specimen!F4, la macro fonctionne...

Y aurait-il incompatibilité avec certaines formules pour l'exécution d'une macro ?

 

[JCGL]

Re : Nommer les feuilles à partir d'une cellule

Re,

Ton fichier fonctionne (évidemment) parfaitement...
Mais pas le mien (original). Je t'ai fait un message perso : peux-tu le regarder ? Merci...

Pour ce qui est du retour arrière, ce n'est pas évident quand on a 150 feuilles dans le classeur !
Il me semble que la meilleure façon est peut-être de veiller à ne pas enregistrer trop vite, ou mieux :! faire une copie préalable à l'exécution de la macro..

Il est encore là...

Notamment, je n'ai plus le post dans lequel je te disais que je t'avais envoyé un message perso (celui-ci n'est d'ailleurs pas dans ma liste de messages envoyés), mais aussi celui dans lequel je disais que je me suis aperçu que, avec mon fichier d'origine, en supprimant toutes les formules de renvoi à la première feuille dans les autres feuilles (ce qui me permet de modifier toutes les feuilles en changeant uniquement la première) du type =Specimen!F4, la macro fonctionne...

Tu es passé par le webmail du Forum, tu n'auras pas signification et de trace du message envoyé.

Je t'ai répondu sur @free.fr

A+

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Re,



Il est encore là...



Tu es passé par le webmail du Forum, tu n'auras pas signification et de trace du message envoyé.

Je t'ai répondu sur @free.fr

A+

OK, j'ai retrouvé le post que tu signale ("Il est encore là..").
Bien compris pour le webmail.

Toujours pas reçu ton mail sur @freefr. Je patiente...

Merci

 

[JCGL]

Re : Nommer les feuilles à partir d'une cellule

Re,

Modifie ton Profil et accepte de recevoir des courriels....😛😛😉😉

A+

 

[xpremierx]

Re : Nommer les feuilles à partir d'une cellule

Re,

Modifie ton Profil et accepte de recevoir des courriels....😛😛😉😉

A+

Oupssss !

Ca y est, je l'ai fait.
J'espère que ça marchera : je ne suis pas habitué à ce type de forum...