Tableau Fermé

Question

Bonjour, 
je voudrais à partir d'un tableau qu'a chaque nouvelle ligne créé une nouvelle feuille soit créé

 et dans cette nouvelle feuille je voudrais un tableau type du genre

Est-ce possible ? et si oui comment
Merci
Configuration: Windows / Firefox 47.0

gbinforme · Answer

Bonjour, 
C'est possible par VBA : connais-tu cette fonctionnalité de programmation par macro ?

cs_Le Pivert · Answer

Bonjour,
En vba a adapter.
http://www.cjoint.com/c/FLeitnZrV8Q

Amesam · Answer

Merci pour vos réponses et pour cet exemple.
Je n'ai pas de connaissance en VBA, mais bien plus alaise dans un autre langage et cela me permet de comprendre certaines choses.
L'exemple donné me supprime un client, si par exemple je crée une nouvelle feuille et que j’inscris CLIENT4 mon CLIENT3 Disparait et j'ai Feuil1 qui se crée.
Je n'ai pas compris comment intégrer la mise en forme pour chaque page crée.

cs_Le Pivert · Answer

Il faut d'abord afficher la feuille Modèle: Clic droit sur l'onglet des feuilles et Afficher Modèle
ensuite remplacer cette feuille par:
et dans cette nouvelle feuille je voudrais un tableau type du genre (capture)
par cette feuille et la renommer Modèle.
Je ne comprends pas que la feuille Client3 soit supprimé.
Pour ajouter une feuille il faut cliquer à droite de la feuille Client3 et non pas faire Maj F11 qui supprime effectivement la feuille Client3
Je viens d'essayer!

Amesam · Answer

Merci pour ces explications. 
Si je clique à droite de la feuille CLIENT3 j'ai:

Et si je fait OK dans la boite de dialogue :


J’essaye d'adapter à mon tableau. Merci pour l'aide :o)

Amesam · Answer

Alors me revoilà avec du nouveau :) J'ai copier ton code et fait quelques modifications, du coup ça fonctionne, j'arrive à créer d'autres feuille mon tableau inclus dans Modèle. Super :) Merci J'ai fait ceci : Sub AjoutFeuiileModele()Nom = InputBox("Saisie du nom de la feuille: ", "Nom feuille", "")If Nom = "" Then Application.DisplayAlerts = False 'evite message d'alerte Sheets(Sheets.Count).Delete 'supprime la feuille crééeApplication.DisplayAlerts = True'Interface.ActivateExit Sub 'on sortElse 'sinon'Range("B4:B" & Range("B65536").End(xlUp).Row + 1).ClearContents 'nettoyage de la colonne B'copie feuille modèle Sheets("Modèle").Visible = True Sheets("Modèle").Copy After:=Sheets(Sheets.Count) 'renommer la feuille modèle2(copie) avec le nouveau nom Sheets(Sheets.Count).Name = Nom i = 4 'afficher le nom des feuilles colonne B sauf "RECAP CLIENTS" et "Modèle"For Each ws In Application.Worksheets If ws.Name <> "Matériels" And ws.Name <> "Modèle" Then Sheets("Materiels").Range("A" & i) = ws.Namei = i + 1 End IfNext ws'Interface.ActivateWorksheets("Modèle").Visible = 0End IfEnd Sub Merci

Amesam · Answer

Bon je voudrais encore améliorer :o)
Quand ma nouvelle feuille se crée je voudrais pouvoir saisir dedans les données désirées et les faire aller dans mon tableau.
Feuille créée :

Mon tableau à remplir en sachant que j'ai d'autres feuilles qui pointent vers celui-ci

Merci.

Amesam · Answer

Bonjour albkan, 
effectivement une erreur de frappe, merci pour cette remarque.

Tableau

8 réponses

Discussions similaires