Excel, aide amelioration macro

Fermé

manautop Messages postés 138 Date d'inscription lundi 27 novembre 2006 Statut Membre Dernière intervention 24 janvier 2013 - 26 oct. 2009 à 12:27
manautop Messages postés 138 Date d'inscription lundi 27 novembre 2006 Statut Membre Dernière intervention 24 janvier 2013 - 27 oct. 2009 à 12:59

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

A voir également:

Excel, aide amelioration macro
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

3 réponses

Réponse 1 / 3

pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
26 oct. 2009 à 15:54

bonjour , qqch comme cela devrai fonctionner :

Dim toto As Variant

toto = InputBox("colonne à selectionner")
Range(toto).

tu peut t'en inspirer

Réponse 2 / 3

manautop Messages postés 138 Date d'inscription lundi 27 novembre 2006 Statut Membre Dernière intervention 24 janvier 2013 3
26 oct. 2009 à 16:34

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

Réponse 3 / 3

manautop Messages postés 138 Date d'inscription lundi 27 novembre 2006 Statut Membre Dernière intervention 24 janvier 2013 3
27 oct. 2009 à 12:59

help ???

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters