Discussion :

[Malick]

Bonjour,

Dans le cadre de mon travail, je tente de concevoir un fichier qui me permettra de faire un outil de synthèse via un TCD, mais j'ai un doute sur la faisabilité et je souhaiterais avoir des conseils ou pistes auprès de vous.

En fait, je dispose d'un tableau qui ressemble à ceci :



Il s'agira pour moi de générer sur la même feuille et à un autre emplacement ou sur une autre feuille, en fonction de la durée, autant de ligne que de période pour avoir quelque chose comme ceci :



Je compte faire du tableau ci-dessus la source de mon TCD.

Auriez-vous une idée ou une piste sur la manière d'arriver à cela ?

Merci d'avance pour vos conseils avisés.

Cordialement,
Malick

[eric4459]

Bonjour Malik,
Un petit morceau de code qui devrait pouvoir t'aider ou te donner un début de solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test_Periode()
 
Dim P As Range
Dim i As Integer
Dim NbAnnee As Integer
Set P = ThisWorkbook.Sheets("Sheet1").Range("A1")
P.Offset(1, 0) = Left(P.Offset(0, 0), 4)
P.Offset(2, 0) = Right(P.Offset(0, 0), 4)
P.Offset(3, 0) = P.Offset(2, 0) - P.Offset(1, 0)
NbAnnee = P.Offset(3, 0).Value
For i = 0 To NbAnnee
P.Offset(i, 1) = P.Offset(1, 0) + i
Next i
End Sub

Testé chez moi et résultat satisfaisant je pense
Eric

J'oubliais, en A1 j'ai écris "2003-2008"

[Menhir]

Première chose : séparer en deux ta colonne D.
En l'état, les information de date ne sont pas exploitables. Il faut que tu fasses une colonne "date début" et une autre "Date fin".

Ensuite, si tu possèdes déjà les colonnes B, C et D de ton second tableau, la colonne E pourra être renseignée avec de simples fonctions SOMME.SI.ENS() sans code VBA.

[Malick]

@ eric4459 : merci, je vais tester ta proposition.

@ Menhir : je vais également tester ta proposition.Merci

Je vous reviens pour la suite

Malick

[eric4459]

Malick,
Voici ce que j'obtiens, après bien sûr il faut adapter et compléter le code.

Eric

[Malick]

Première chose : séparer en deux ta colonne D.
Ensuite, si tu possèdes déjà les colonnes B, C et D de ton second tableau, la colonne E pourra être renseignée avec de simples fonctions SOMME.SI.ENS() sans code VBA.

Ce second tableau n'existe pas, c'est ce que je cherche à obtenir via la génération.

Malick

Malick,
Voici ce que j'obtiens, après bien sûr il faut adapter et compléter le code.

J'ai également cela, mais l'idée en fait c'est d'obtenir le deuxième tableau indiqué avec toutes les colonnes. Je cogite encore.
Merci pour ce retour.

Malick

J'ai pensé aux filtres élaborés.

Pensez-vous que la méthode AdvancedFilter de l'objet Range puisse permettre de faire cela ?

[eric4459]

Salut Malik,
Je viens de tester ceci, essayes et dis-moi ce que tu en penses, çà semble répondre à ton besoin

Classeur avec sur la 1ere feuille nommée "Sheet1" ton premier tableau

et 2ème feuille nommée "Sheet2"

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub Developpement_Tableau_Periode()
 
Dim Src As Worksheet
Dim Dest As Worksheet
Dim P As Range
Dim D As Range
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim NbLigne As Integer
Dim NbLigne2 As Integer
Dim NbAnnee As Integer
Set Src = ThisWorkbook.Sheets("Sheet1")
Set Dest = ThisWorkbook.Sheets("Sheet2")
Set P = Src.Range("B3")
Set D = Dest.Range("A2")
 
NbLigne2 = 0
 
With Src
NbLigne = .Cells(.Rows.Count, 2).End(xlUp).Row - 3 ' On compte le nombre de ligne de la colonne B
End With
 
For i = 0 To 3
D.Offset(-1, i) = P.Offset(0, i) 'ici on crée l'intitulé des colonnes du deuxieme tableau (pas vraiment nécessaire, tu peux le faire manuellement mais bon voilà)
Next i
 
For j = 1 To NbLigne
'******************************Ici on calcule le nbre d'années sur la période**********************************
P.Offset(j, 5) = Left(P.Offset(j, 2), 4)
P.Offset(j, 6) = Right(P.Offset(j, 2), 4)
NbAnnee = P.Offset(j, 6) - P.Offset(j, 5)
'******************************Ici on rempli les lignes pour chaque période************************************
For k = 0 To NbAnnee
D.Offset(k + NbLigne2, 0) = P.Offset(j, 0)
D.Offset(k + NbLigne2, 1) = P.Offset(j, 1)
D.Offset(k + NbLigne2, 2) = P.Offset(j, 5) + k
D.Offset(k + NbLigne2, 3) = P.Offset(j, 3)
Next k
 
With Dest
NbLigne2 = .Cells(.Rows.Count, 1).End(xlUp).Row - 1 ' On compte le nombre de ligne de la colonne A
End With
 
Next j
End Sub

On pourrait faire plus simple,

Le forum d'autres alternatives?

, mais c'est venu comme çà
Eric

[Malick]

@ Eric : c'est exactement cela, merci beaucoup pour ton aide

Toutefois, il y a juste un petit souci, la première ligne concernant la Description A - XXX - 100000 n'est pas répartie sur la durée de 2003 à 2008.

Peut-être un bogue



les intitulés des colonnes n'apparaissent pas également sur le deuxième tableau.

Merci encore

[eric4459]

Salut Malik,
Je viens d'effectuer plusieurs fois le test et voici mon résultat :

En pièce jointe le fichier

Malik_ Determination des annees sur une periode donnee.xlsm

Eric

[Malick]

Merci beaucoup pour ton aide et disponibilité

Il fallait juste remplacer cette ligne :

Code :

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

Set P = Src.Range("B3")

par :

Code :

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

Set P = Src.Range("B2")

Grâce à toi, j'ai exactement ce que je voulais. Je passe la discussion en

Un seul mot
Eric

Cordialement,
Malick