excel, aide amelioration macro Fermé

Question

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

pou pouille · Answer

bonjour , qqch comme cela devrai fonctionner :
   
 Dim toto As Variant
    
    toto = InputBox("colonne à selectionner")
    Range(toto).

tu peut t'en inspirer

manautop · Answer

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

manautop · Answer

help ???

Excel, aide amelioration macro

3 réponses

Discussions similaires