Fusion de cellules

[Greg_]

Bonjour,

Voila, j'ai un tableau a 2 colonnes :
periode/vente

Je me retrouve dans mon tableau avec des période identiques et des ventes associés.
Ex: ici j'ai 2 période 30/11/2010 avec respectivement 1000 et 500 euros...comment faire pour n'avoir plus qu'une seule ligne avec 30/11/2010 et le cumul (ici 1500 euros)?
il ne s'agit pas d'un tableau figé, l'utilisateur peut a tout moment rajouter une date avec une vente (lié a une autre macro).
Idéalement serait-il possible aussi de classer les données par dates?
ps: les données sont en page 2 du classeur

Impossible de trouver comment faire 😕

 

[James007]

Re : Fusion de cellules

Bonjour,

Est-ce-qu'un petit TCD aide ... ?

A +

 

[Greg_]

Re : Fusion de cellules

Oui c'est parfait...mais comment réaliser ce TCD et l'integrer dans mon prgramme? c’était un exemple ici.
Dans mon vrai programme il y aura un nombre de ligne non défini donc peut être mettre la somme dans une autre colonne et non pas a la fin?
Désolé mais sur excel je suis un vrai débutant....

Merci encore

 

[gillesdemev]

Re : Fusion de cellules

Bonjour,

Est-ce-qu'un petit TCD aide ... ?

A +

Bonjour James et Greg,
La solution de James007 répond à la demande
Je voulais simplement rajouter qu'un TCD c'est un rapport de Tableau Croisé Dynamique (disponible dans menu Données/rapportd e Tableau Croisé Dynamique pour 2002 ou 2003 , à voir dans les rubans de 2007)
Je précise car au tout début j'ai souffert des abréviations que je ne comprenais pas
Amitié à tous
Gilles

 

[Greg_]

Re : Fusion de cellules

Bon j'ai essayé quelque chose mais ca ne fonctionne pas...a priori excel genere des noms dynamiquement, du coup ma macro ne peut fonctionner...comment figé les noms pour que cette macro fonctionne?
Sub test3()
'
' test3 Macro
'

'ici selection de mon tableau entrée
NbLignes = ActiveSheet.UsedRange.Rows.Count
Range("A1:B" & NbLignes).Select
'ici TCD
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Etat des ventes!R1C1:R13C2", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="Feuil2!R3C1", TableName:= _
"Tableau croisé dynamique", DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique").PivotFields("période" _
)
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique").PivotFields("Vente en euros"), _
"Somme de Vente en euros", xlSum
'création d'un graphique a partir du TCD
Columns("A:B").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil5'!$A$3:$B$14")
ActiveWorkbook.ShowPivotChartActiveFields = True
ActiveChart.ChartType = xl3DColumnClustered
ActiveWorkbook.ShowPivotChartActiveFields = False
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Vente en euros"
ActiveSheet.ChartObjects("Graphique 3""").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 3").Activate
Selection.Cut
Sheets("Feuil5").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil1").Select
Range("L12").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 1").Activate

End Sub

 

[Greg_]

Re : Fusion de cellules

dsl j'ai remis le bon fichier

 

[James007]

Re : Fusion de cellules

Désolé, je n'ai pas Excel 2007 ...

A quel endroit ta macro arrête de fonctionner ...

 

[Greg_]

Re : Fusion de cellules

ma macro s’arrête la
ActiveSheet.PivotTables("Tableau croisé dynamique").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique").PivotFields("Vente en euros"), _
"Somme de Vente en euros", xlSum

Mais bon j'imagine que ce n'est que le début des erreurs 😀

 

[James007]

Re : Fusion de cellules

Un point de départ ...

A +