Valeur Onglet suivant valeur cellule
#1
Aspirant XLPages

Inscription: 14/09/2007

Messages: 26

Posté le : 14-09-2007 17h17
Bonjour à tous

Pourriez vous m'aidez, s'il vous plait, pour le problème suivant :

Je souhaiterais créer un onglet nommé avec la valeur contenue dans ma cellule "B1".

Dans cette attente, je vous remercie par avance :

Oxor.
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#2
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 14-09-2007 17h42
Bonjour à tous et
Bienvenue à Oxor

Une macro qui se déclenche à l'activation de la feuille

Option Explicit

Private Sub Worksheet_Activate()
ActiveSheet.Name = [B1].Value
End Sub


A placer dans le module de la feuille par AltF11

Image redimensionnée

Au plaisir de te lire


Cordialement
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#3
Webmestre

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

Messages: 1486

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 14-09-2007 18h16
Bonsoir oxor, JCGL, le Forum,

Citation :
oxor a écrit:
créer un onglet nommé avec la valeur contenue dans ma cellule "B1"


Pour créer l'onglet nommé ainsi, tu peux faire comme ça :
Sub CreerFeuille()
    
Sheets.Add.Name ActiveSheet.Range("B1").Value
End Sub


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 

Re: Valeur Onglet suivant valeur cellule
#4
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 14-09-2007 18h33
Re,
Salut mDF,

Citation :
oxor a écrit:
créer un onglet nommé avec la valeur contenue dans ma cellule "B1"


Evidement ton code répond plus parfaitement à la question arf

Ceci dit : Tu crées une feuille, vierge par définition, quand n'est t'il de la valeur de B1 arf arf



A+
Edité par JCGL le 14/09/2007 18:51:32


Cordialement
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#5
Débutant XLPages

Inscription: 20/08/2007

Messages: 6

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 14-09-2007 19h49
Bonsoir le fil,

JCGL : Vu qu'on ne se croise plus tu sais où je fais un tour par ici:mad:

Sub AjouteRenommeFeuille()
With Sheets.Add
.Name = Sheets("Feuil1").Range("B1").Value
End With
End Sub

en supposant que c'est la cellule B1 de la feuille1 qui contient l'info...

Cordialement
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#6
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 14-09-2007 20h04
Re,
Salut mon ami Spit

On ne se croise plus mais j'apprécie toujours tes intervention où tu sais arf (je suis ( du verbe suivre) toujours XLD mais j'interviens moins...)

Heureusement que tu es là pour aider mDF (c'est pour rire Didier)

Je m'en vais tester ton code, mais j'ai encore un doute au vu de la virginité de la feuille ajoutée ou alors il faut que les deux codes soient concomitants (on parle bien la France sur mDFXLPages)

Au plaisir de te croiser mon ami Spit

PS : Je ne t'ai jamais croisé sur VeriTi (dis moi pas que c'est pas vrai...)

Edition : Re PS : ah ben oui mais c'est bien sûr tu prends la valeur de la feuille 1 : Total Respect (mais tu le sais arf)


Cordialement
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#7
Aspirant XLPages

Inscription: 14/09/2007

Messages: 26

Posté le : 14-09-2007 22h03
Recevez, Messieurs, mes milles remerciements, pour vos réponses rapide.
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#8
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 14-09-2007 22h11
Re,

Ah ben Oxor parle bien la France aussi (bon OK mise à part le s à mille)

Tu auras compris, cher Oxor, compétence (je parle pour "les autres" arf) et "cassage" sont de mise sur cet excellent Forum (je vais me faire "gronder" par le Boss : même pas mal arf)

Au plaisir de te lire et de tenter (pour moi) de t'aider


Cordialement
Hors Ligne
Rapport   Haut 

Re: Valeur Onglet suivant valeur cellule
#9
Webmestre

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

Messages: 1486

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 15-09-2007 01h18
Bonsoir Spitnolan08,
Re oxor, JCGL,

Eh bien, on ne peut plus s'absenter une soirée sans que ça devienne le salon des causeries ici...

Citation :

Spitnolan08 a écrit:

Sub AjouteRenommeFeuille()
With Sheets.Add
.Name = Sheets("Feuil1").Range("B1").Value
End With
End Sub

en supposant que c'est la cellule B1 de la feuille1 qui contient l'info...

Cordialement

Cela dit, messieurs, j'aimerais bien que l'un de vous m'explique en quoi l'ajout d'un With / End With (pas vraiment justifié ici) rend le code que je présentais plus haut plus efficace qu'à l'origine ?

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 

Re: Valeur Onglet suivant valeur cellule
#10
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 15-09-2007 09h05
Bonjour à tous,

@mDF

Ce n'est pas le With et son End With qui rend ton code plus efficace, c'est le fait qu'il aille chercher la valeur dans Feuil1.

Bien évidement cela pourrait s'écrire : Sheets.Add.Name = Sheets("Feuil1").Range("B1").Value


A+


Cordialement
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