Supprimer la ligne (vide) dans un TCD
bonjour à toutes et à tous !
tout d'abord, tous mes meilleurs voeux pour 2013 à vous tous ainsi qu'à vos proches !
je souhaiterai savoir comment il serait possible de supprimer la ligne (vide) dans un tcd qui est généré par un code VBA. L'objectif est donc de supprimer la ligne (Vide) du tcd ainsi que du total. Voici le code :
[code][
Sub tcd()
'
' tcd Macro
' Macro enregistrée le 28/12/2012 par Ligerien
'
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'2012'!R1C1:R7396C17").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
Array("CLIENT", "Données")
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("NUMERO")
.Orientation = xlDataField
.Caption = "Nombre de NUMERO"
.Position = 1
.Function = xlCount
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"AFFAIRE CONCRETISEE ?").Orientation = xlDataField
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _
xlDataAndLabel, True
ActiveSheet.PivotTables("Tableau croisé dynamique1").Format xlReport1
ActiveWorkbook.ShowPivotTableFieldList = False
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
Range("A2:C724").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "récapitulatif"
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.SaveAs Filename:="D:\Mes documents\christophe\recap client " & _
Format(Date, "dd-mm-yyyy") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Windows("CLASSEUR COTATION 2012 1.3.xls").Activate
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("2012").Select
Range("A2").Select
End Sub/code]
merci de vos commentaires avisés !
cordialement
Bonjour,
Un fichier représentatif avec des données significatives est nécessaire oiur recevoir une aide du forum.
A te relire. Cdlt.
Et bonne année
une petite macro toute simple sur une recherche par ligne de ton tableau des valeurs "(vide)" et puis de les masquer...
comme ceci e,n vba :
Sub MASQUER()
For i = 1 To 1000
If Range("A" & i).Value = "(vide)" Then
Worksheets("Feuil2").Rows(i).Hidden = True
End If
Next
End Sub