Excel, aide amelioration macro
Bonjour,
alors j ai cette macro
Columns("M:V").Clear
Range("K1") = Range("F1")
With Range("K2")
.FormulaR1C1 = "=RC[-5]"
.AutoFill Destination:=Range("K2:K5829")
End With
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C10:R5829C11").CreatePivotTable TableDestination:= _
"'[ccm.xls]Sheet1'!R2C13", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"Employee Name", ColumnFields:="Price"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Price")
.Orientation = xlDataField
.Caption = "Nombre de Price"
.Function = xlCount
End With
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Columns("K:K").ClearContents
ccm.xls: mettre le nom du fichier réel
que j ai developpez, avec votre aide, enfin avec beaucoup votre aide lol, que j ai utilise pour mon entreprise, je voudrais savoir si il est possible d inserer des boite de dialogue a chaque etape qui me demande quelle colone selectionner etc etc et si c est possible je suis pas contre une petite aide pour la pre;iere action par exemple et apres je m adapterais
merciiiiii d avance, encore un fois dsl pour l ecriture mais je suis en ecosse et j ai un clavier qwerty
alors j ai cette macro
Columns("M:V").Clear
Range("K1") = Range("F1")
With Range("K2")
.FormulaR1C1 = "=RC[-5]"
.AutoFill Destination:=Range("K2:K5829")
End With
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C10:R5829C11").CreatePivotTable TableDestination:= _
"'[ccm.xls]Sheet1'!R2C13", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"Employee Name", ColumnFields:="Price"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Price")
.Orientation = xlDataField
.Caption = "Nombre de Price"
.Function = xlCount
End With
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Columns("K:K").ClearContents
ccm.xls: mettre le nom du fichier réel
que j ai developpez, avec votre aide, enfin avec beaucoup votre aide lol, que j ai utilise pour mon entreprise, je voudrais savoir si il est possible d inserer des boite de dialogue a chaque etape qui me demande quelle colone selectionner etc etc et si c est possible je suis pas contre une petite aide pour la pre;iere action par exemple et apres je m adapterais
merciiiiii d avance, encore un fois dsl pour l ecriture mais je suis en ecosse et j ai un clavier qwerty
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
bonjour , qqch comme cela devrai fonctionner :
Dim toto As Variant
toto = InputBox("colonne à selectionner")
Range(toto).
tu peut t'en inspirer -
non ca marche pas, ca met met un bug sur ce que jai mi en gras, par contre est il possible plutot que d avoir a taper la colone, de pouvoir selectioner a la souris la plage de donnee ?
Sub isntan()
Columns("M:V").Clear
Dim toto As Variant
toto = InputBox("colonne à selectionner")
Range("K1") = Range("F1")
With Range("K2")
.FormulaR1C1 = "=RC[-5]"
.AutoFill Destination:=Range("K2:K5829")
End With
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C10:R5829C11").CreatePivotTable TableDestination:= _
"'[cij8VtlIWJ.xls]Sheet1'!R2C13", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"Employee Name", ColumnFields:="Price"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Price") .Orientation = xlDataField
.Caption = "Nombre de Price"
.Function = xlCount
End With
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Columns("K:K").ClearContents
End Sub -
help ???
