Création automatique de feuille sur excel Résolu/Fermé

Question

Bonjour,

Je constitue actuellement une base de données d'un inventaire et de diagnostic de patrimoine arboré. 
Ma première feuille contient toutes les données accumulées pour chaque arbre sur une ligne avec une multitude de colonnes comprenant chacune un renseignement spécifique.

La suite est un peu plus compliqué, en effet, je souhaite créer, pour chaque arbre, une fiche d'observations qui accueillera toutes les données pré-remplit dans mon premier tableau sur une fiche individuelle. 
Mais, pour éviter de recopier à chaque fois les mêmes données dans chaque nouvelle feuille, je voudrai créer, en cliquant sur un bouton (pour faire simple), une fiche qui se remplirait, de manière automatique avec les données déjà existantes.

Je ne sais pas si c'est assez clair, et je ne sais pas si c'est faisable non plus, j'ai déjà cherché en bidouillant un peu, mais je n'y parviens pas !

Si l'un ou l'une, ou plusieurs d'entre vous ont des idées, des pistes, ou des solutions, je suis preneuse...je gagnerai un temps phénoménal !

Merci d'avance pour vos réponses.

Bonne soirée.

jordane45 · Answer

Bonjour,

Si je comprend bien..
Tu souhaites :

Pour chaque LIGNE de ta feuil1 (correspondant donc à UN arbre)
Créer UNE nouvelle Feuille....
Cette feuille contiendrait le contenu des différentes colonnes de la ligne en question.

Il te faut donc faire ça en VBA ...

Dans l'idéal :
Tu créés une feuille MODEL
tu y places tes différents textes.. les formats de tes cellules..; les styles (couleur..).

Ensuite, via une Macro :
Tu parcours ton tableau (celui de ta feuille 1 ).
Pour chaque ligne :
 - On duplique la feuille Modele .. que tu renomme (en te basant sur le contenu d'une colonne de ta ligne )
 - On prend le contenu des différentes colonnes et on les places dans les bonnes case de cette nouvelle feuille...
...


Donc avant de pouvoir t'aider plus... il faut :
 1 - Tu créés ta feuille Modele 
 2 - Tu déposes ton fichier sur un site comme : cijoint.com
 3 - Tu nous colles le lien vers ce fichier ici
 4 - Tu indiques précisément.. quelle colonne correspond à quel emplacement dans ta feuille à remplir..

AC211984 · Answer

Bonsoir,

Merci pour votre réponse, j'ai donc placé le nom de chaque colonne comme vous me l'avez indiqué sur ma feuille de base. Certaines ont des blancs car certaines choses se traitent vraiment au cas par cas.

Voici le lien où trouvé le fichier :

https://www.cjoint.com/?0Lcu4PIzeqv

Si je comprends bien, il faut absolument passer par une macro, mais je ne comprends pas trop comment créer chaque feuille, avec à chaque fois les infos d'une ligne différente avec la même macro, j'avoue cependant, ne pas bien maitriser cet outil !

En tout cas, merci de l'aide ! C'est très gentil à vous.

Bonne soirée.

jordane45 · Answer

En collant ce code dans ton classeur ça devrait fonctionner Sub AutoCreaSheets() Dim nomF As String Dim Fdata As Worksheet Dim ListFeuille As Range Dim ligne As Integer Set Fdata = Sheets("Liste arbres") Set ListFeuille = Fdata.Range("B5:B500") 'on boucle sur les différentes lignes : For Each cell In ListFeuille 'On récupère le nom de la "future" feuille nomF = cell.Value 'si nomF <> "" If nomF <> "" Then 'On recupere le numero de ligne ligne = cell.Row 'On duplique la feuille Modele Call duplicateModele(nomF) '-------------------------------------- 'On rempli les cases ... '-------------------------------------- 'recupération des valeurs de la feuille source Station = Fdata.Cells(ligne, 1).Value Numerotation = Fdata.Cells(ligne, 2).Value date_plantation = Fdata.Cells(ligne, 4).Value type_plantation = Fdata.Cells(ligne, 5).Value stade_dev = Fdata.Cells(ligne, 6).Value Conduite = Fdata.Cells(ligne, 7).Value ' Colonne G Circonférence = Fdata.Cells(ligne, 8).Value 'Colonne H Hauteur = Fdata.Cells(ligne, 9).Value 'Colonne I Collet_note = Fdata.Cells(ligne, 10).Value Collet_cmt = Fdata.Cells(ligne, 11).Value tronc_note = Fdata.Cells(ligne, 12).Value tronc_cmt = Fdata.Cells(ligne, 13).Value Houppier_note = Fdata.Cells(ligne, 14).Value Houppier_cmt = Fdata.Cells(ligne, 15).Value Etat_general = Fdata.Cells(ligne, 19).Value 'Colonne S Etat_general = Fdata.Cells(ligne, 20).Value 'Colonne T Dangerosite = Fdata.Cells(ligne, 21).Value ' Colonne U Maladies = Fdata.Cells(ligne, 16).Value 'Colonne P Parasites = Fdata.Cells(ligne, 17).Value 'Colonne Q Blessures = Fdata.Cells(ligne, 18).Value 'Colonne R Analyses_compl = Fdata.Cells(ligne, 22).Value 'Colonne V Preconisations = Fdata.Cells(ligne, 23).Value 'Colonne W Valeur_ecologique = Fdata.Cells(ligne, 24).Value 'Colonne X Valeur_economique = Fdata.Cells(ligne, 25).Value 'Colonne Y ' On copie les valeurs dans la nouvelle Feuille... Sheets(nomF).Range("B4").Value = Station Sheets(nomF).Range("B5").Value = Numerotation Sheets(nomF).Range("B10").Value = date_plantation Sheets(nomF).Range("B11").Value = type_plantation Sheets(nomF).Range("B12").Value = stade_dev Sheets(nomF).Range("B13").Value = Conduite Sheets(nomF).Range("B14").Value = Circonférence Sheets(nomF).Range("B15").Value = Hauteur Sheets(nomF).Range("B19").Value = Collet_note Sheets(nomF).Range("C19").Value = Collet_cmt Sheets(nomF).Range("B20").Value = tronc_note Sheets(nomF).Range("C20").Value = tronc_cmt Sheets(nomF).Range("B21").Value = Houppier_note Sheets(nomF).Range("C21").Value = Houppier_cmt Sheets(nomF).Range("B22").Value = Etat_general Sheets(nomF).Range("C22").Value = Etat_general Sheets(nomF).Range("B24").Value = Dangerosite Sheets(nomF).Range("B25").Value = Maladies Sheets(nomF).Range("B26").Value = Parasites Sheets(nomF).Range("B27").Value = Blessures Sheets(nomF).Range("B29").Value = Analyses_compl Sheets(nomF).Range("B30").Value = Preconisations Sheets(nomF).Range("B32").Value = Valeur_ecologique Sheets(nomF).Range("B33").Value = Valeur_economique End If Next 'on passe à la ligne suivante End Sub Sub duplicateModele(strFeuilName As String) Sheets("MODEL").Select Sheets("MODEL").Copy After:=Sheets(ThisWorkbook.Sheets.Count) ActiveSheet.Name = strFeuilName End Sub NB : Pour le nom des feuilles je me suis basé sur la colonne Numéro...

AC211984 · Answer

Je viens d'essayer le code...génial ! 

Par contre certaine colonnes n'ont pas prises si je puis dire. Je peux les ajouter dans le code directement ? 

Je ne comprends pas trop comment vous avez fait, je vais creuser et décortiquer ;)

Est-il possible d'appliquer ce code en "option". Par exemple, je clique dans la colonne C sur le nom de l'arbre dans la ligne concernée et là seulement la feuille se créée avec toutes les données ? 

En tout cas merci beaucoup, c'est un travail super, je vais pouvoir bien avancer. 

Bonne soirée.

jordane45 · Answer

Voila les modifs (si il y a des choses que tu ne comprends pas dis le moi) Code à placer dans un MODULE Sub AutoCreaAllSheets() 'Macro de création auto de TOUTES les feuilles '---------------------------------------------- Dim Fdata As Worksheet Dim NomF As String Dim ListFeuille As Range Dim ligne As Integer Set Fdata = Sheets("Liste arbres") Set ListFeuille = Fdata.Range("B5:B500") 'on boucle sur les différentes lignes : For Each cell In ListFeuille 'On récupère le nom de la "future" feuille NomF = cell.Value 'si nomF <> "" If NomF <> "" Then 'On recupere le numero de ligne ligne = cell.Row Call AutoCreaSheets(Fdata, NomF, ligne) End If Next 'Ligne suivante End Sub Sub AutoCreaSheets(Fdata As Worksheet, NomF As String, ligne As Integer) '--------------------------------------------- 'Macro de création auto d'une Feuille '---------------------------------------------- 'On duplique la feuille Modele Call duplicateModele(NomF) '-------------------------------------- 'On rempli les cases ... '-------------------------------------- 'recupération des valeurs de la feuille source Station = Fdata.Cells(ligne, 1).Value ' Colonne A Numerotation = Fdata.Cells(ligne, 2).Value ' Colonne B date_plantation = Fdata.Cells(ligne, 4).Value ' Colonne D type_plantation = Fdata.Cells(ligne, 5).Value ' Colonne E stade_dev = Fdata.Cells(ligne, 6).Value ' Colonne F Conduite = Fdata.Cells(ligne, 7).Value ' Colonne G Circonférence = Fdata.Cells(ligne, 8).Value 'Colonne H Hauteur = Fdata.Cells(ligne, 9).Value 'Colonne I Collet_note = Fdata.Cells(ligne, 10).Value ' Colonne J Collet_cmt = Fdata.Cells(ligne, 11).Value ' Colonne K tronc_note = Fdata.Cells(ligne, 12).Value ' Colonne L tronc_cmt = Fdata.Cells(ligne, 13).Value ' Colonne M Houppier_note = Fdata.Cells(ligne, 14).Value ' Colonne N Houppier_cmt = Fdata.Cells(ligne, 15).Value ' Colonne O Etat_general = Fdata.Cells(ligne, 19).Value 'Colonne S Etat_general = Fdata.Cells(ligne, 20).Value 'Colonne T Dangerosite = Fdata.Cells(ligne, 21).Value ' Colonne U Maladies = Fdata.Cells(ligne, 16).Value 'Colonne P Parasites = Fdata.Cells(ligne, 17).Value 'Colonne Q Blessures = Fdata.Cells(ligne, 18).Value 'Colonne R Analyses_compl = Fdata.Cells(ligne, 22).Value 'Colonne V Preconisations = Fdata.Cells(ligne, 23).Value 'Colonne W Valeur_ecologique = Fdata.Cells(ligne, 24).Value 'Colonne X Valeur_economique = Fdata.Cells(ligne, 25).Value 'Colonne Y ' On copie les valeurs dans la nouvelle Feuille... Sheets(NomF).Range("B4").Value = Station Sheets(NomF).Range("B5").Value = Numerotation Sheets(NomF).Range("B10").Value = date_plantation Sheets(NomF).Range("B11").Value = type_plantation Sheets(NomF).Range("B12").Value = stade_dev Sheets(NomF).Range("B13").Value = Conduite Sheets(NomF).Range("B14").Value = Circonférence Sheets(NomF).Range("B15").Value = Hauteur Sheets(NomF).Range("B19").Value = Collet_note Sheets(NomF).Range("C19").Value = Collet_cmt Sheets(NomF).Range("B20").Value = tronc_note Sheets(NomF).Range("C20").Value = tronc_cmt Sheets(NomF).Range("B21").Value = Houppier_note Sheets(NomF).Range("C21").Value = Houppier_cmt Sheets(NomF).Range("B22").Value = Etat_general Sheets(NomF).Range("C22").Value = Etat_general Sheets(NomF).Range("B24").Value = Dangerosite Sheets(NomF).Range("B25").Value = Maladies Sheets(NomF).Range("B26").Value = Parasites Sheets(NomF).Range("B27").Value = Blessures Sheets(NomF).Range("B29").Value = Analyses_compl Sheets(NomF).Range("B30").Value = Preconisations Sheets(NomF).Range("B32").Value = Valeur_ecologique Sheets(NomF).Range("B33").Value = Valeur_economique End Sub Function FExist(NomF As String) As Boolean ' test si la feuille existe Application.ScreenUpdating = False On Error Resume Next FExist = Not Sheets(NomF) Is Nothing Application.ScreenUpdating = True End Function Sub duplicateModele(strFeuilName As String) ' avant de poursuivre on regarde si la feuille existe déjà If FExist(strFeuilName) Then recreer = MsgBox("La feuille " & strFeuilName & " existe déjà... !" & vbCrLf & " voulez-vous la recréer ?", vbYesNo) ' si on dit de la recréer.. on la supprime d'abord.. If recreer = 6 Then Application.DisplayAlerts = True Sheets(strFeuilName).Delete Application.DisplayAlerts = False Else Exit Sub End If End If 'On duplique la feuille modèle Sheets("MODEL").Select Sheets("MODEL").Copy After:=Sheets(ThisWorkbook.Sheets.Count) 'On renomme la feuille ActiveSheet.Name = strFeuilName End Sub Code à mettre Dans l'objet Feuil1: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Fdata As Worksheet Dim NomF As String Dim ligne As Integer Set Fdata = Sheets("Liste arbres") 'declenchement de la macro lors du clic dans les cellules de la colonne 2 If Target.Column = 2 Then 'On recupere le numero de ligne ligne = Target.Row NomF = Cells(ligne, 2).Value 'si nomF <> "" If NomF <> "" Then Call AutoCreaSheets(Fdata, NomF, ligne) End If End If End Sub

jordane45 · Answer

pour la Feuil :
Dans ton visual basic éditor.. dans l'arboréscence de gauche tu as les objets : Feuil et classeur (thisWorkbook)..
Toi tu cliques sur la "Feuil" correspondant à ta liste d'Arbres et tu y colles le code que je t'ai donné