nommer un onglet avec le nom d'une cellule
#1
Débutant XLPages

Inscription: 15/02/2008

Messages: 4

Posté le : 15-02-2008 16h36
Bonjour à tous,
Dans un classeur de 25 feuilles je veux nommer chaque onglet avec la donnée inscrite en A1 de chaque feuille.
Quelle solution?

Merci

Un grand Merci pour la version 3 de MFC car j'utilsais l'ancienne version et j'avais un probléme sur les cellules avec formules.
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#2
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 15-02-2008 18h24
Bonjour

J'espère que je vais pas trop dire de bêtises dans mes commentaires. Je suis plus à l'aise avec les formules.

Regarde ce code
Option Explicit

Sub NomFeuille
()
Dim I As Long 'Déclaration d'une variable pour la boucle sur le nombre de feuille

'Gestion d'erreurdans le cas ou la valeur n'est pas un Name valable
On Error Resume Next

'
Lance une boucle sur le nombre de feuille de calcul du classeur
'Worksheets est unh objet contenant toutes les feuilles
'
Worksheets.Count retourne le nombre de feuilles de calculOn exclu les autres feuilles
For 1 To Worksheets.Count
   
'I contenant une valeur allant de 1 à ...
   '
Worksheets(I).Name (lecture ou Ecrituredu nom de la feuille
   
'Worksheets(I).Range("A1")(lecture ou Ecriture) dans la cellule A1
   Worksheets(I).Name = Worksheets(I).Range("A1")
'
Passe à la feuille suivante
Next

'Arrêt de la gestion d'erreur
On Error 
GoTo 0
'Fin de la macro
End Sub


Une fois n'est pas de coutume, mais ce jour n'est pas un jour particulier ...

@+Jean-Marie
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#3
Débutant XLPages

Inscription: 15/02/2008

Messages: 4

Posté le : 15-02-2008 21h27
Bonjour,
Merci Jean Marie pour la rapidité e la réponse et la solution, les feuilles sont nommées comme je le souhaite, simplement si maintenant je veux nommer qu'une partie de mes feuilles que faut il rajouter au code.
Merci a+
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#4
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 15-02-2008 21h55
Re...

Jipi, il me faut plus explications, pour t'aider à résoudre ton problème.

Veux-tu le faire en fonction d'une condition ?
En fonction de la sélection multiple des feuilles ?
Ou autre ?

@+Jean-Marie
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#5
Débutant XLPages

Inscription: 15/02/2008

Messages: 4

Posté le : 16-02-2008 08h44
Bonjour,
Je mal suis mal expliqué je veux nommer automatiquement seulement 13 feuilles sur les 15 de mon classeur les 2 autres sont nommées manuellement.
Donc quelle ligne faut il rajouter au code pour nommer seulement les feuilles que je veux.
A+
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#6
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 16-02-2008 12h11
Re...

Tu as plusieurs solutions.
[list]
[*]Tu laisses la cellule A1 à vide des deux feuilles que tu ne veux pas toucher, et il y a rien à toucher au code, la gestion d'erreur va faire son rôle.[/list]

[list]
[*]Tu peux rajouter dans une cellule de la feuille concernée, une valeur indiquant à la macro de ne pas remplacer son nom.[/list]

For 1 To Worksheets.Count
   
'I contenant une valeur allant de 1 à ...
   '
Worksheets(I).Name (lecture ou Ecrituredu nom de la feuille
   
'Worksheets(I).Range("A1")(lecture ou Ecriture) dans la cellule A1
   With Worksheets(I)
      If .Range("A2") <> "pas touche" Then .Name = .Range("A1")
   End With
'
Passe à la feuille suivante
Next
ici c'est la cellule A2 qui va faire barrage au changement de nom

[list]
[*]Tu peux utiliser le nom de la feuille[/list]
For 1 To Worksheets.Count
   
'I contenant une valeur allant de 1 à ...
   '
Worksheets(I).Name (lecture ou Ecrituredu nom de la feuille
   
'Worksheets(I).Range("A1")(lecture ou Ecriture) dans la cellule A1
   With Worksheets(I)
      If Not (.Name = "accueil") Or (.Name = "Recap") Then .Name = .Range("A1")
   End With
'
Passe à la feuille suivante
Next
ici Les feuilles nommées accueil et recap ne seront pas modifiées

[list]
[*]Tu peux en fonction de la position des feuilles dans les onglets, si elle sont placées en dernier[/list]
For 1 To Worksheets.Count -2
   
'I contenant une valeur allant de 1 à ...
   '
Worksheets(I).Name (lecture ou Ecrituredu nom de la feuille
   
'Worksheets(I).Range("A1")(lecture ou Ecriture) dans la cellule A1
   Worksheets(I).Name = Worksheets(I).Range("A1")
'
Passe à la feuille suivante
Next
Nota, cela ne tient pas compte de l'ordre de création des feuilles, uniquement la position

En première position
For 3 To Worksheets.Count
   
'I contenant une valeur allant de 1 à ...
   '
Worksheets(I).Name (lecture ou Ecrituredu nom de la feuille
   
'Worksheets(I).Range("A1")(lecture ou Ecriture) dans la cellule A1
   Worksheets(I).Name = Worksheets(I).Range("A1")
'
Passe à la feuille suivante
Next


Comme tu peux le voir, cela dépend de ce que tu veux obtenir (on le sait), mais surtout du comment...

Je suis certain qu'il y a d'autres solutions.

@+Jean-Marie
Edité par JeanMarie le 16/02/2008 16:33:34
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#7
Débutant XLPages

Inscription: 15/02/2008

Messages: 4

Posté le : 20-02-2008 18h23
Bonjour,
Mieux vaut tard que jamais, alors merci pour tes solutions, ça roule...
A+
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#8
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 20-02-2008 19h05
Bonsoir Jipi

Il est souhaitable que tu réédites ton premier message en cochant "Résolu".

@+Jean-Marie
Hors Ligne
Rapport   Haut 

Re: nommer un onglet avec le nom d'une cellule
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 20-02-2008 20h04
Bonsoir Jipi, JeanMarie, le Forum,

Il est vrai que cette histoire de [résolu], [non résolu] devient un peu lourdingue à gérer, je vais finir par supprimer cette option du forum...

Alors, pour tenter de faire survivre cette option (pourtant utile à ceux qui souhaitent apporter leur aide autant qu'à ceux qui la demandent !), j'invite tous ceux qui le souhaitent à faire un tout petit tour par ce lien : FAQ - Comment solder [résolu] un fil de discussions du Forum ?

On peut injecter ce fameux "[résolu]" lors de son dernier passage dans le fil (pour conclure) ou bien en rééditant un post précédant au besoin.

N'importe qui peut qualifier ainsi le fil, aussi bien le demandeur que les autres intervenants de la discussion (s'ils jugent que le sujet est clos).
Pour info, je le fais moi-même, à l'instant, en saisissant le présent post.
Mais qui, mieux que le demandeur, peut juger de la perspicacité d'une réponse donnée ?

Merci de votre compréhension.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes