Creation macro sous excel

slt,

désolé je n'ai pas trés bien compris ton pb !!

tu as essayé d'enregistrer uen macro pour voir le code que sa donne ?

slt
je vais essayer d'etre plus claire:
j'ai une feuille nommer donnée qui comporte 5colonnes (date operation,date operation,Tiers,libellé ,montant)
et je souhaiterais que chaque operations située sur la feuille de données soit affecter à différentes feuilles du même classeur(edf,nourriture,epargne, salaire ,telecommunication,santé, etc)
l'idée est que quelqu'un recoit son relevé de compte et afin de mieu gerer son compte il organise son releve de compte en affectant les différentes ecriture à un poste défini (par le biais du bouton "affectation") dans le but de réaliser un TCD et d'avoir des donnée agréger
j'espere que j'ai été plus claire

Euh... Je pense que tu fais fausse route!!!

Il y a HYPER simple.
Tu rajoutes une colonne "Catégorie".
Si tu veux TRES bien faire, tu y affectes une validation de données avec une liste contenant les catégories EDF, Santé, Epargne etc...
Ensuite tu sélectionnes les en-têtes de colonne, et dans le menu Données tu choisis Filtre Automatique.

T'as une p'tite flêche à droite de chaque colonne, ce qui te permet de faire des tris, des critères etc.
Et si tu veux totaliser, tu choisis une valeur de critère (Par exemple EDF) tu vas sous la colonne Montant EN LAISSANT UNE LIGNE VIDE et tu cliques sur Somme Automatique, ça va t'insérer une fonction SOUS.TOTAL(9;E2:E325) qui te calculera la somme des valeurs des montants des lignes affichées.

Et en plus avec ça, ton TCD est pré-mâché!

Tu connaissais?
Si quelque chose est pas clair, si je suis allée trop vite... N'hésite pas à poser des questions!!!

desole m'ai je n'ai pas trés bien compris comment tu a simplifier je débute
quant tu dit de faire une validation de donnée j'y ai penser en créant une catégorie qui comporte les lien hypertexte des different feuille sa d'accord mais àpres comment affecter les différente ligne justement a les différente catégories
(edf,nourriture...)
excusez moi mais je débute donc désole si je ne m'exprime pas assez clairement

Validation des données:
Tu sélectionnes la colonne qui doit contenir la catégorie, menu Données-Validation
Autoriser une Liste
Source EDF;Santé;Epargne et les autres...
Et ensuite tu cliques sur la p'tite flêche et tu choisis ta catégorie!

Essaye déjà ça.

re salut
j'ai fais exactement ce que vous m'avez dit j'ai un truc de ce genre
Date Valeur Date Operation Tiers Montant Catégorie
07/11/2007 07/11/2007 PRLV MAIF 79038 NIO -91,85 Médical
le problème c'est lorsque je regarde sur la feuille médical il ne l'a pas affecter à la feuille Médical situé sur ce même classeur
or c'est mon but pr faire apres un TCD en fonction des différentes categorie;pouvez vous m'aider
merci d'avance pour votre aide

Bien sûr, que ça ne remplit pas les autres feuilles! Mais pour faire un TCD, tu n'as absolument pas besoin de déplacer les valeurs dans une autre feuille.

Je ne peux pas te répondre si je ne comprends pas exactement ce que tu veux, mais là je n'arrive pas à comprendre pourquoi tu veux te compliquer la vie!!!

bonjour
j'ai fais comme vous avez dit et la j'ai fait une autre macro pour crée directement un TCD mais il bloque a range"B4" même lorsque j'effectue le Debogage
'es ce que quelqu'un pourrait m'aider a corriger ce probleme
merci d'avance

voila ma macro:
Private Sub TCD_Click()
'
' TCD Macro
' mise en plce du TCD en fonction de l'affectation aux différents postes
'
' Touche de raccourci du clavier: Ctrl+z
'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Donnée!R1C2:R43C6").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique9", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique9").AddFields RowFields:= _
"Poste ", ColumnFields:="Date Operation"
ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("Montant"). _
Orientation = xlDataField
Range("B3").Select Selection.Sort Order1:=xlAscending, Type:=xlSortLabels, OrderCustom:=1, _
Orientation:=xlLeftToRight
Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, False)
Range("F4:F21").Select
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
Range("A21:E21").Select
Range("E21").Activate
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
Range("A21").Select
Selection.Font.Bold = True
Range("F4").Select
Selection.Font.Bold = True
Range("B4:E4").Select
Selection.Font.Bold = True
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

Tu devrais avoir un retour à la ligne entre Select et Selection...