Bonjour

As-tu essayé d'en mettre une vide, cela devrait fonctionner...
toujours zen

Bonjour,

Merci de m'aider ...
Alors coilà vraiment le contexte :
- j'extrais des données d'un outil où sont listés des incidents
- je récupère ces données en format excel
- à partir de là, j'ai écris un code en VBA qui me fais quelques calculs intermédiares, notamment une colonne avec des numéros d'incidents et une autre colonne avec leur priorité (soit critique, soit grave, soit mineure)
Je fais tout ça tous les jours et évidemment, je n'ai pas tous les jours des incidents critiques, graves et mineures.
Comme j'ai automatisé tout ça (jusque la création d'un tableau croisé dynamique "incident/priorité"), je voulais savoir s'il n'ya pas une option programmable en vba qui pourrait me mettre toujours 3 colonnes dans mon tableau (critique - grave - mineure) et en data, le nb d'incidents correspondants.

J'ai trouvé un bout de code mais je ne sais pas comment l'utilisé :
ActiveSheet.PivotTables(NomTab).AddFields RowFields:= _
"Affaire", ColumnFields:=Array("Catégorie", "Nom" )
ActiveSheet.PivotTables(NomTab).PivotFields( _
"Nb d'heures (heures décimale)" ).Orientation = xlDataField

Est-ce que "ColumnFields:=Array("Catégorie", "Nom" )" ne pourrait pas être la solution ?

Bonjour

étant donné que tu modifies l'entrée des données, il me paraît plus simple de créer trois lignes vides au départ que d'essayer de faire croire au TCD qu'elles sont là.
Si tu fais rafraîchir, comment réagira le TCD hors macro ?
toujours zen

Eh bien je ne sais pas du tout comment faire ...
Je ne vois pas trop ce que tu veux dire par : "créer 3 lignes vides" ?
Bien sûr, je peux faire un tableau tout simple mais ce que j'aimerais garder, c'est la fonctionnalité d'un tableau croisé dynamique : on double clique à l'intérieur du tableau et on a le détail ....

Je ne vois pas trop ce que tu veux que je teste ....

Bonjour

- je récupère ces données en format excel
- à partir de là, j'ai écris un code en VBA qui me fais quelques calculs intermédiares, notamment une colonne avec
- je rajoutes 3 lignes ( une pour chaque code ) dans ma feuille avec des données nulles pour ne pas changer la valeur du TCD.

Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = "Critique"
Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = "Grave"
Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = "Mineure"

Bon j'espère que je ne vais pas te décourager de m'aider, parce que c'est vraiment important pour moi !!!!
Je ne sais pas où ajouter "Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = "Critique"" ... ;o(
Comme je ne sais pas joindre un fichier sur ce forum, je vais essayer de te le faire en texte ...
Voilà mon tableau :
Num Priorité Nature
nbi1 Mineure Inc
nbi2 Grave Dem
nbi3 Mineure Inc
nbi4 Mineure Inc
nbi5 Grave Dem

Voilà ce que me donne le TCD :
NB Num Priorité
Nature Grave Mineure Total
Dem 2 2
Inc 3 3
Total 2 3 5

Et voilà ce que j'aimerais :
NB Num Priorité
Nature Critique Grave Mineure Total
Dem 0 2 2
Inc 0 3 3
Total 0 2 3 5

Voilà le code généré pour créer le TCD :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/12/2007 par FabRoro
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R6C3").CreatePivotTable TableDestination:=Range("A10"), _
TableName:="Tableau croisé dynamique1"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nature")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Priorité")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Num")
.Orientation = xlDataField
.Position = 1
End With
Range("A17").Select
End Sub


Que dois-je rajouter comme code et où stp ?

Bonjour

' Macro enregistrée le 04/12/2007 par FabRoro
'



'

Sheets("Feuil1").Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 2) = "Critique"
Sheets("Feuil1").Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 2) = "Grave"
Sheets("Feuil1").Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 2) = "Mineure"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R9C3").CreatePivotTable TableDestination:=Range("A10"), _