Fusion de cellules

Re : Fusion de cellules

Bonjour,

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

A +

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

Re : Fusion de cellules

James007 à dit:

Bonjour,

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

A +

Cliquez pour agrandir...

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

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

Re : Fusion de cellules

dsl j'ai remis le bon fichier

Re : Fusion de cellules

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

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

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 😀

Re : Fusion de cellules

Un point de départ ...

A +