Pb macro "générale" excel 2007
Guigui13200
Messages postés
133
Statut
Membre
-
hahathor -
hahathor -
Bonjour,
J'ai voulu créer un tableau excel dans lequel je rentre mes comptes. J'ai créer une macro me permettant de ranger mes dépenses et mes crédit par date puis par libellé.En clair j'ai fais le même tableau avec la même mise en page dans tous les onglets qui corresppondent aux 12mois de l'année. Le problème et que j'ai créer cette macro dans l'onglet intitulé Aout 08 et du coup cette macro ne fonctionne que dans cette onglet.J'ai créer cette macro à l'aide de la fonction "enregistrer une macro". Alors j'attend votre aide. Je suis sous excel 2007. En vous remerciant.
PS: copie de ma macro:
Sub Tri()
'
' Tri Macro
'
'
Range("A2:D67").Select
ActiveWorkbook.Worksheets("Aout 08").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Aout 08").Sort.SortFields.Add Key:=Range("A2:A67") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Aout 08").Sort.SortFields.Add Key:=Range("B2:B67") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Aout 08").Sort
.SetRange Range("A2:D67")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
J'ai voulu créer un tableau excel dans lequel je rentre mes comptes. J'ai créer une macro me permettant de ranger mes dépenses et mes crédit par date puis par libellé.En clair j'ai fais le même tableau avec la même mise en page dans tous les onglets qui corresppondent aux 12mois de l'année. Le problème et que j'ai créer cette macro dans l'onglet intitulé Aout 08 et du coup cette macro ne fonctionne que dans cette onglet.J'ai créer cette macro à l'aide de la fonction "enregistrer une macro". Alors j'attend votre aide. Je suis sous excel 2007. En vous remerciant.
PS: copie de ma macro:
Sub Tri()
'
' Tri Macro
'
'
Range("A2:D67").Select
ActiveWorkbook.Worksheets("Aout 08").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Aout 08").Sort.SortFields.Add Key:=Range("A2:A67") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Aout 08").Sort.SortFields.Add Key:=Range("B2:B67") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Aout 08").Sort
.SetRange Range("A2:D67")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
A voir également:
- Pb macro "générale" excel 2007
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide