Discussion :

[Tom55555]

Bonjour à tous,

J'ai soucis par rapport à un TCD que je cherche à automatiser manuellement.
J'ai une source de données dans laquelle j'ai des dates en colonnes (le nom de la feuille est "Buffer"), et je souhaiterais mettre l'ensemble de ces en-tête en données dans mon TCD. Problème : je sèche sur l'algorithme...Pourtant je me place bien sur la bonne cellule, et les fonctions left et right semblent justes..

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 9 To nombre_de_colonnes_avec_date
With Sheets("TCD").PivotTables("TCD1")
 
.AddDataField.PivotFields ("" & Sheets("Buffer").Cells(1, i)), _
  Left(Sheets("Buffer").Cells(1, i), 2) & "." & Right(Sheets("Buffer").Cells(1, i), 4), xlSum
 
 
.DataFields(Left(Sheets("Buffer").Cells(1, i), 2) & "." & Right(Sheets("Buffer").Cells(1, i), 4)).NumberFormat = "#,##0"
End With
Next i

Merci beaucoup par avance de votre aide !

[tamtam64]

Je vais meme te donner mieux , selon moi il faut faire un dico tu recupere tes données

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
    'dicos a partir de ma reference : fichier
Function GetPath() As Dictionary
        'definition variables
    Dim RangeTotal As Range, MyRange As Range
    Dim MyDico As New Dictionary
    Dim xlsheet As Worksheet
    Dim My_Object As Donnees
        'definition feuille
    Set xlsheet = ThisWorkbook.Worksheets("")
        'Creation dico
    With xlsheet
'tu definis comme tu veux ton range , car je connais pas tes données
        Set RangeTotal = .Range(.Range("").Offset(1), .Range("").End(xlDown))
        'creation dico des liens, feuilles
        For Each MyRange In RangeTotal
            If Not MyDico.Exists(MyRange.Value) Then
                Set MyObject = New Object
 
                My_Object.Colonne1 = MyRange.Offset(, 3).Value
                My_Object.Colonne2 = MyRange.Offset(, 4).Value
                MyDico.Add MyRange.Value, My_Object
            End If
        Next MyRange
    End With
        'attribution et vidage
    Set Dicotest = MyDico
    Set MyDico = Nothing
End Function

deuxieme partie tu crais un object vite fais dans un module de classe

Code :

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

1
2
public Colonne1 as double
Colonne2 as double

Le nom de ma classe est Donnees mais tu mets ce que tu veux biensure