Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 création d'une page nommé en fonction d'une cellule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mboillon

XLDnaute Nouveau
Bonjour,

Tout nouveau dans le domaine, j'aurai besoin de l'aide d'une personne plus compétente que moi pour un problème auquel je suis confronté.
Voici mon besoin :
J'aimerai que lorsque je j'écris dans une cellule choisie (ex: bonjour) une nouvelle page se créer avec le nom "bonjour".
Est-ce possible de créer cette macro ?
Si oui, quelqu'un peut-il m'éclairer ?

Merci d'avance.
 
Trier par date Trier par votes
Re : création d'une page nommé en fonction d'une cellule

Bonjour à tous,

Bienvenue sur XLD

A la modification de A1

VB: 
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets.Add After:=ActiveSheet
Sheets(Sheets.Count).Name = [A1]
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : création d'une page nommé en fonction d'une cellule

Merci JCGL mais lorsque j'utilise ta formule (en la modifiant biensur) sur d'autres cellules ça ne fonctionne pas..
En effet pour une cellule ta formule fonctionne mais lorsque je le fait pour une deuxième, la page créer juste avant est effacée..
Est-ce normal ?
 
Vote positif 0 Vote négatif
Re : création d'une page nommé en fonction d'une cellule

Bonjour à tous,
Salut Gilbert,

Peux-tu essayer :

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Feuil1.[A1]
Feuil1.Activate
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : création d'une page nommé en fonction d'une cellule

Bonsoir à tous,

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And [A1] <> "" Then
  Sheets.Add After:=Sheets(Sheets.Count)
  Sheets(Sheets.Count).Name = [A1]
End If
End Sub
Attention il ne faut pas de caractères interdits * en A1...

* je vous laisse chercher...

A+
 
Vote positif 0 Vote négatif
Re : création d'une page nommé en fonction d'une cellule

Re,

Plus élaboré :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or [A1] = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
If IsError(Sheets(CStr([A1]))) Then Else _
  MsgBox "La feuille '" & [A1] & "' existe déjà...": Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = [A1]
If Sheets(Sheets.Count).Name <> [A1] Then _
  MsgBox "Caractère interdit...": Sheets(Sheets.Count).Delete: Me.Activate
End Sub
A+
 
Vote positif 0 Vote négatif
Re : création d'une page nommé en fonction d'une cellule

Re,

Pour finir, si l'on veut revenir à la feuille source utiliser Application.Goto :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or [A1] = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
If IsError(Sheets(CStr([A1]))) Then Else _
  MsgBox "La feuille '" & [A1] & "' existe déjà...": Exit Sub
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = [A1]
If Sheets(Sheets.Count).Name <> [A1] Then _
  MsgBox "Caractère interdit...": Sheets(Sheets.Count).Delete
Application.Goto [A1]
End Sub
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 Sélectionner cellule en fonction d'une liste déroulante
Réponses
9
Affichages
284
Dranreb
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
265
tristan05
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
528
Phil69970
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
C
  • Résolu(e)
Microsoft 365 Trouver résultat en fonction de la dernière ligne d'une colonne
Réponses
7
Affichages
470
Chounoé
C
Z
  • Question Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
219
zorol
Z
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
506
Leo98
L
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
610
Lu76Fer
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
461
JHA
J
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
662
Yvan1
Y
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
888
Laliepomm
L
B
  • Question Question
Autres Renvoyer un nom dans une cellule en fonction d'une résultat dans une autre
Réponses
8
Affichages
830
BabyDolphin30
B
Z
  • Question Question
XL 2016 RECHERCHEV et double liste de choix
Réponses
2
Affichages
969
zendb
Z
D
  • Question Question
XL 2016 Création d'une alerte en fonction de la date d'un envoi
Réponses
3
Affichages
670
sylvanu
T
  • Question Question
XL 2019 Résolu - Statistiques - totale d'une cellule en fonction d'une autre cellule
Réponses
4
Affichages
442
sousou
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
984
Nico2978
P
  • Question Question
XL 2010 INSERTION DES PHOTOS SUR DES PAGES EN FONCTION DE LA VALEUR D'UNE CELLULE
Réponses
2
Affichages
709
Pronzito
P
Q
  • Question Question
XL 2019 copier une ligne en fonction de la valeur d'une cellule
Réponses
10
Affichages
993
quetzal974
Q
F
  • Résolu(e)
Microsoft 365 Publipostage créer un nombre d'étiquettes en fonction d'une colonne Excel
Réponses
7
Affichages
1 K
Cousinhub
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
565
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…