Discussion :

[a.alm17]

Bonjour à tous !!

Je me permet de vous déranger pour vous demander votre aide !
J'ai besoin de créer un formulaire de prestation par client et par mois. En gros, je remplis un formulaire et dès sa création plusieurs onglets s'ouvrent avec un tableau à remplir par mois (un onglet par mois). Un exemple :


Je créer la prestation et ensuite plusieurs onglet s'ouvrent à partir du mois de début de contrat (là en Aout) jusqu'à la fin (soit 6 onglets car 6 mois de mission), ça donnerait un truc comme ça :


Les champs seraient remplis automatiquement sur tous les onglets, il y aurait juste un onglet par mois.

Je ne sais pas si c'était clair, mais j'espère que vous pourrez m'aider !

Merci à vous !

[Philippe Tulliez]

Bonjour,

Je vous ai écrit en détail la manière dont je procéderais et j'ai numéroté les endroits où placer votre code ou code d'appel et pour vous aider, j'ai écrit la boucle.

Travail de préparation
Dans le classeur où se trouve le code VBA, nous créons deux feuilles

• La feuille modèle nommée "Template" ou "Modèle" selon notre sensibilité avec comme CodeName shtTemplate que l'on pourrait masquer une fois en production.
• La feuille formulaire nommée Formulaire et son [I]CodeName/I], shtForm
  Voir illustration ci-dessous

La feuille Template
Tous ce que nous mettons dans cette feuille sert, comme son nom l'indique, de modèle aux feuilles qui seront crées

Dans la première partie

• Nous écrirons le titre des différents champs, pour l'exemple Entreprise, Nom du contact, Nom du consultant, etc.
• On réservera des cellules, en jaune dans l'illustration, pour que les champs remplis dans le formulaire soient automatiquement remplis au moment de la création des feuilles et l'on nommera ces cellules à l'aide du gestionnaire des noms en les préfixant, par exemple, pl_ et en choisissant comme portée la feuille Template

Dans la seconde partie
Nous créons un tableau structuré avec autant de colonnes que nous en avons besoin

• en première ligne : les titres
• en deuxième ligne (la première ligne des données) : Nous entrons dans les cellules des données auxquelles nous appliquons le format adéquat ainsi que la ou les formules nécessaires à l'encodage
• ensuite, nous supprimons cette ligne afin que ce tableau n'ait plus que la ligne contenant le titre.

La feuille Formulaire
Cette feuille est plus facile à mettre en place pour remplir la feuille [Template] que de passer par un UserForm
Le plus simple pour la créer, c'est de copier la feuille [Template], supprimer le tableau structuré, et la renommer ainsi nous aurons les cellules nommées identiques dans les deux feuilles

Dès que la procédure de démarrage de la création sera écrite, on associera un bouton à celle-ci

Illustration des deux feuilles



Illustration du gestionnaire des noms
Nous pouvons constater que les noms sont identiques dans les deux feuilles


Travail de programmation
Idéalement on découpera l'application en plusieurs procédures qui feront chacune leur job avec une procédure de démarrage et une procédure qui distribue le job

Procédure de démarrage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub MainTimeSheetBuild()
  ' Déclaration
  Dim Sd As Date
  Dim Dm As Byte
  '
  With shtForm ' (Feuille formulaire)
    ' Date début de la mission forcée au 1er jour du mois défini dans le formulaire
    Sd = DateSerial(Year(.Range("pl_StartDate").Value), Month(.Range("pl_StartDate").Value), 1)
    ' Durée de la mission
    Dm = .Range("pl_Duration").Value
  End With
  Application.ScreenUpdating = False
  ' Lance la procédure
  TimeSheetBuild Sd, Dm
End Sub

Procédure principale
Personnellement, lorsque je crée un objet basé sur un modèle, je crée un ou plusieurs classeurs basés sur le modèle
Cette procédure contient la boucle qui part de 1 à x où x représente le nombre de mois que dure la mission

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub TimeSheetBuild(StartDate As Date, NumberOfMonth As Byte)
  ' Procédure qui distribue les tâches aux différentes procédures
  ' Arguments
  '   StardDate      Date de début de missions
  '   NumberOfMonth  Nombre de mois
  ' Déclaration
  Dim Wkb As Workbook
  Dim sht_Template As Worksheet
  Dim sht_Form As Worksheet
  Dim Rng As Range
  Dim oList As ListObject
  Dim NewStartDate As Date
  Dim Mo As Byte
  '
  Set sht_Form = shtForm
  Set sht_Template = shtTemplate
  '
  For Mo = 1 To NumberOfMonth
    NewStartDate = DateAdd("m", Mo - 1, StartDate)
    '
    ' (1) >>> ici le code ou l'appel à une procédure générique qui copie la feuille vers un nouveau classeur suivant le modèle
    '
    ' (2) >>> ici le code ou l'appel à une procédure générique qui copie les données de la feuille formulaire vers la feuille copiée 
    ' 
    ' (3) >>> ici le code ou l'appel à une procédure générique qui Insère les dates du mois dans la colonne des dates  
  Next
  ' EndOfProcess
  Set sht_Form = Nothing: Set sht_Template = Nothing: Set Wkb = Nothing: Set Rng = Nothing: Set oList = Nothing
End Sub

Les liens de tutoriels sur les sujets traités plus haut

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Excel: Les tables de données en VBA
• VBA – CodeName d’une feuille Excel