Dupliquer et nommer une feuille

Résolu
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Dans un classeur j'ai une feuille qui comporte en colonne B des données.
Je souhaiterais ,quand j'ajoute un nom de donnée dans la colonne B,ma feuille nommée
"modele" soit dupliquée et nommée d'après le nouveau nom que j'ai mis dans la colonne B.
Si quelqu'un peu me donner un code VBA.
merci pour votre aide
Cordialement

6 réponses

jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
Re Bonjour,

Personne n'a de solution a me proposer?
Cordialement
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

quand j'ajoute un nom de donnée dans la colonne B, Une cellule de la colonne B ex: B2, toujours la meme????
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
Bonjour f894009

Merci pour ta réponse.
Ce n'est jamais la même cellule cela commence a B1 et probablement
jusque B15
Crdlt
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

En dehors du nom pour l'onglet, il y aura aussi la colonne B avec la liste de nom dans tous les onglets !!!!!
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
Non,la liste de noms colonne B reste dans la feuille données.seul l'onglet et la cellule A1
de la feuille "modèle"doit avoir le nouveau nom qui a été ajouté dans la liste.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention  
 
Re,
Ok, ajout nouvelle feuille par clic sur un bouton ou Fin ecriture cellule nouveau nom ????
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425 > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
tu fais au plus simple
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Ok

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re

Donc, au plus simple, entree d'une info dans une cellule B1 a B15

https://www.cjoint.com/c/ECFsXjxZxWf
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
j'ai un bug ici
Sheets("Modèle").Copy After:=Sheets("Modèle")
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

mettez le nom de votre feuille modele
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425 > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
maintenant bug ici
If Not Application.Intersect(Target, Range("B1:B15")) Is Nothing And Target.Count = 1 And Target <> "" Then
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vous connaissez le VBA excel ?????
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
bonjour
je n'y connais pas grand chose en vba ,mais j'ai trouvé l'erreur tout
simplement un problème d'accent sur le mot données.
merci encore
cordialement
0