Discussion :

[malubast]

Bonjour
Je suis novice et je ne connais pas les termes et les formules sur Excel voilà mon problème
J essai de réaliser un fichier avec des macro.je désir crée un fichier pour réaliser des fiche d’adhèrent. Je suis parvenus avec des macros à reporter les noms je désirerai a réaliser une macro qui changerai le nom de la feuille exemple : sur ma feuille principale « trame » trame doit être copier sur ¨Feuil10¨sur cette feuille en « D7 =DUPONT »le nom ¨Feuil10¨ doit être ¨Dupont¨ a savoir que la feuille 10 devient le feuille 11 et ainsi de suite et qu'a chaque foi que je clic sur le bouton de la macro "trame "génère une feuille qui prendra le nom de la personne .je pense être claire dans ma démarche merci de votre aide.

[nibledispo]

Bonjour,

Ce que tu écris est pour ce qui me concerne totalement incompréhensible.

Je crois sans aucune certitude comprendre :
- que sur une feuille appelée "tram" tu as une liste de noms.
- qu'en cliquant sur un nom de cette liste tu voudrais qu'Excel ouvre une feuille au nom de la personne sélectionnée.

Est-ce bien cela ?

cordialement.

[QuestVba]

Bonjour,

tu devrais t'en sortir avec ceci (le nom de la nlle feuille est pris dans la cellule A2 (feuille Trame) et création d'une nouvelle feuille avec ce nom)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = Sheets("Trame").Cells(2, 1).Value
End Sub

[rvtoulon]

bonjour voici un point de départ:
il me semble qu'il est mieux de copier directement l'onglet (feuille) Trame et de le renommer par la suite.
Attention, deux Onglet ne peuvent avoir le même nom.

cette macro copie la feuille Trame avant la feuille 2. Ma nouvelle feuille devient la feuille 2. Je lui donne le nom qui se trouve en D7.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'je copie la feuille Trame avant la feuille N°2
Sheets("Trame").Copy before:=Sheets(2)
 
'ma nouvelle feuille se trouve maintenant en position 2
'je donne à ma nouvelle feuille le nom qui se trouve en D7
Sheets(2).Name = Sheets(2).Range("D7")

Adapte le nom de la feuille avec tes noms. si il n'y a rien en D7 tu auras une erreur. Si le nom en D7 est le même qu'un onglet existant il y aura une erreur.

EDIT: Désolé pour le doublon....

[malubast]

Je vous remercie de vos solution mais j’ai du mal m’expliquer donc je vais essayer d’être plus clair.
Sur une feuille « encodage « j’ai le non et prénom des adhérents. J’ai une macro qui transfère les nom et prénom sur la feuille « trame » c’est là que ça se complique. J’aimerais que « trame « sois copier et que cette nouvelle feuille porte le nom de l’adhérent qui se trouve en « B2 » et ainsi de suite qua chaque fois que je crée un nouveau adhérent et que trame sois copier que la nouvelle feuille porte le nom de l’adhérents.

[QuestVba]

Re-,

Ceci te permet de copier Trame et de le renommer avec la cellule B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Sheets("Trame").Copy Before:=Sheets(1)
ActiveSheet.Name = Sheets("Trame").Cells(2, 2).Value
End Sub

[nibledispo]

Bonjour,

la réponse précédente n'apporte de réponse que pour la cellule B2.

il faut donc à chaque fois que tu entres une nouvelle donnée "nom prenom" te positionner sur cette ligne au moment de créer la nouvelle feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
dim derligne as long
derligne = Sheets("Trame").Range("b1:b65000".End(xlUp).Row) 'se positionne sur la dernière ligne occupée
Sheets("Trame").Copy before:=Sheets("trame") 'fait une copie nommée trame (2)
Sheets("trame (2)").Name = Range("b" & derligne) ' renomme trame (2) avec le contenu de la nouvelle saisie 
End Sub

attention : il faudra faire un test préalable vérifiant que le nom entré n’existe pas sinon message d'erreur.

cordialement.

[nibledispo]

Bonjour,

correction a mon code ci-dessus.
remplacer ligne commençant par derligne par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derligne = Sheets("Trame").Range("b65000").End(xlUp).Row

voir aussi discussion suivante :
http://www.developpez.net/forums/d13...copie-feuille/

cordialement.