Sujet Précédent Sujet Suivant

Macro Excel 2007

El-sol -  
 El-sol -
Bonjour,

J'ai depuis peu la version Excel 2007 et il y a un petit quelque chose que je n'arrive plus à faire comparativement à avant et je ne sais pas pourquoi.

C'est une simple macro que je viens de créer dans le but de faire un tri.
Le type de fichier est toujours le même au départ: c'est un export d'un état de compte bancaire du site de la banque nationale vers Excel.
Voici en gros ce que j'y ai mis dedans:

Colonnes ABC, justifier à gauche.
Colonnes BC, élargir
Colonnes DEF, format nombre, avec séparateur de millier
Ensuite, je sélectionne la rangée 3 jusqu'à la rangée 1000 (pour me mettre une bonne marge de manoeuvre):
Données/trier/trier par colonne E/ajouter un niveau/trier par colonne D

C'est tout.
Ce qui fait que mon fichier se travaille mieux ainsi et surtout, mes dépôts (colonne E) et mes retraits (colonne D) sont regroupés.

Mais le hic, c'est lorsque j'ai voulu exécuter ma macro dans un autre fichier. Ça n'a pas marché. On dirait que ça fonctionne juste dans le fichier dans lequel j'ai créé la macro, et DANS L'ONGLET précisément et seulement où j'ai créé la macro.

Me semble qu'avant, un coup que cette macro était créée, je pouvais l'exécuter quand bon me semblait.

Là, je n'arrive plus à l'exécuter, ça me donne un bug.

Aidez-moi svp, c'est une macro dont j'ai besoin pour mon travail et plusieurs fois par mois. merci.

A voir également:

9 réponses

Réponse 1 / 9
Patrice33740 Messages postés 8930 Statut Membre 1 782
 
Mais quelle est donc cette mystérieuse macro ?
0
BOUDA08
 
Bonjour

Je n'y connais pas grand chose mais comme tu dis que ta macro ne fonctionne qu'avec cette feuille peut être est-elle attachée à cette feuille pour le voir tu click sur l'onglet de la feuille voir code.
0
Réponse 2 / 9
El-sol
 
Euh, il n'y a rien de mystérieux là-dedans, c'est moi qui a créé ma propre macro. Et c'en est une toute simple.
T'as jamais créé de macro ?
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Salut El-sol.
Salut Patrice,

à el sol : Ca c'est de la bonne réponse!!!
Je traduis donc les propos de Patrice :
Pourrais tu compléter ta demande en venant coller ici le code complet de ta macro, indispensable pour pouvoir t'apporter une réponse cohérente.
0
Réponse 3 / 9
El-sol
 
salut pijaku,

"ça, c'est de la bonne question" :)

voici ma macro et que je ne réussis même plus à exécuter sans bug:

Sub TRIER()
'
' TRIER Macro
' tri
'
' Touche de raccourci du clavier: Ctrl+i
'
Columns("A:C").Select
Range("C1").Activate
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("D:F").Select
Selection.Style = "Comma"
Columns("B:C").Select
Selection.ColumnWidth = 26.71
Columns("G:H").Select
Selection.ClearContents
Range("A3").Select
ActiveWindow.LargeScroll Down:=1
Range("A28").Select
ActiveWindow.LargeScroll Down:=1
Range("A53").Select
ActiveWindow.LargeScroll Down:=1
Range("A78").Select
ActiveWindow.LargeScroll Down:=1
Range("A103").Select
ActiveWindow.LargeScroll Down:=1
Range("A128").Select
ActiveWindow.LargeScroll Down:=1
Range("A153").Select
ActiveWindow.LargeScroll Down:=1
Range("A178").Select
ActiveWindow.LargeScroll Down:=1
Range("A203").Select
ActiveWindow.LargeScroll Down:=1
Range("A228").Select
ActiveWindow.LargeScroll Down:=1
Range("A253").Select
ActiveWindow.LargeScroll Down:=1
Range("A278").Select
ActiveWindow.LargeScroll Down:=1
Range("A303").Select
ActiveWindow.LargeScroll Down:=1
Range("A328").Select
ActiveWindow.LargeScroll Down:=1
Range("A353").Select
ActiveWindow.LargeScroll Down:=1
Range("A378").Select
ActiveWindow.LargeScroll Down:=1
Range("A403").Select
ActiveWindow.LargeScroll Down:=1
Range("A428").Select
ActiveWindow.LargeScroll Down:=1
Range("A453").Select
ActiveWindow.LargeScroll Down:=1
Range("A478").Select
ActiveWindow.LargeScroll Down:=1
Range("A503").Select
ActiveWindow.LargeScroll Down:=1
Range("A528").Select
ActiveWindow.LargeScroll Down:=1
Range("A553").Select
ActiveWindow.LargeScroll Down:=1
Range("A578").Select
ActiveWindow.LargeScroll Down:=1
Range("A603").Select
ActiveWindow.LargeScroll Down:=1
Range("A628").Select
ActiveWindow.LargeScroll Down:=1
Range("A653").Select
ActiveWindow.LargeScroll Down:=1
Range("A678").Select
ActiveWindow.LargeScroll Down:=1
Range("A703").Select
ActiveWindow.LargeScroll Down:=1
Range("A728").Select
ActiveWindow.LargeScroll Down:=1
Range("A753").Select
ActiveWindow.LargeScroll Down:=1
Range("A778").Select
ActiveWindow.LargeScroll Down:=1
Range("A803").Select
ActiveWindow.LargeScroll Down:=1
Range("A828").Select
ActiveWindow.LargeScroll Down:=1
Range("A853").Select
ActiveWindow.LargeScroll Down:=1
Range("A878").Select
ActiveWindow.LargeScroll Down:=1
Range("A903").Select
ActiveWindow.LargeScroll Down:=1
Range("A928").Select
ActiveWindow.LargeScroll Down:=1
Range("A953").Select
ActiveWindow.LargeScroll Down:=1
Range("A978").Select
ActiveWindow.LargeScroll Down:=1
Rows("1001:1001").Select
ActiveWindow.ScrollRow = 999
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 990
ActiveWindow.ScrollRow = 978
ActiveWindow.ScrollRow = 930
ActiveWindow.ScrollRow = 902
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 745
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 619
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 539
ActiveWindow.ScrollRow = 493
ActiveWindow.ScrollRow = 444
ActiveWindow.ScrollRow = 404
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 1
Rows("3:1001").Select
Range("A1001").Activate
ActiveWorkbook.Worksheets("20111108083259(1)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("20111108083259(1)").Sort.SortFields.Add Key:=Range _
("E3:E282"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("20111108083259(1)").Sort.SortFields.Add Key:=Range _
("D3:D282"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("20111108083259(1)").Sort
.SetRange Range("A3:H282")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Premier travail à faire : supprimer toutes les lignes inutiles :
ActiveWindow.ScrollRow
ActiveWindow.LargeScroll Down:=1
...
0
Réponse 4 / 9
El-sol
 
est-ce que c'est mieux comme ça ?

Sub tries()
'
' tries Macro
' tri
'
' Touche de raccourci du clavier: Ctrl+o
'
Columns("A:C").Select
Range("C1").Activate
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("D:F").Select
Selection.Style = "Comma"
Columns("B:C").Select
Selection.ColumnWidth = 26
Columns("G:H").Select
Selection.ClearContents
Range("A4").Select
ActiveWindow.LargeScroll Down:=1
Range("A1154").Select
ActiveWindow.LargeScroll Down:=1
Rows("1179:1179").Select
ActiveWindow.ScrollRow = 1000
ActiveWindow.ScrollRow = 1
Rows("3:1000").Select
Range("A1000").Activate
ActiveWorkbook.Worksheets("20111108083259(1)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("20111108083259(1)").Sort.SortFields.Add Key:=Range _
("E3:E282"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("20111108083259(1)").Sort.SortFields.Add Key:=Range _
("D3:D282"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("20111108083259(1)").Sort
.SetRange Range("A3:H282")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
Patrice33740 Messages postés 8930 Statut Membre 1 782
 
Essaie de remplacer ton code par celui-ci qui s'applique à la feuille active : 
Sub TRIER()
  ActiveSheet.Columns("A:C").HorizontalAlignment = xlLeft
  ActiveSheet.Columns("D:F").Style = "Comma"
  ActiveSheet.Columns("B:C").ColumnWidth = 26.71
  ActiveSheet.Columns("G:H").ClearContents
  With ActiveSheet.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("E3:E1000"), SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("D3:D1000"), SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("A3:H1000")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
  ActiveSheet.Range("A3").Select
End Sub

Sous réserve que les colonnes à trier soient les mêmes.
0
Réponse 6 / 9
El-sol
 
les colonnes seront toujours les mêmes. C'est le nombre de rangées qui peut varier. C'est pour ça que j'y vais jusqu'à 1000 pour me donner une très grande marge de manoeuvre.

Pour le moment, la macro fonctionne mais juste dans l'onglet où la macro a été créée.
Ce qui n'est pas bon car à chaque mois, j'aurai à downloader des états de compte bancaire de plusieurs compagnies. Donc, dans des fichiers différents et dans des onglets différents. Je n'ai pas envie de créer une macro à chaque fois. Il faut qu'elle soit accessible à chaque fois que j'en ai envie.
Présentement, si j'essaie la macro dans un 2e onglet, ça me dit que la macro est désactivée.
0
Réponse 7 / 9
Patrice33740 Messages postés 8930 Statut Membre 1 782
 
Pour que la macro fonctionne sur n'importe quelle feuille du classeur, au lieu de la mettre dans une feuille, il faut la mettre dans un module standard.
Mais attention car ta macro ne dispose d'aucune sécurité pour contrôler si elle s'exécute dans une feuille adéquate
0
Réponse 8 / 9
El-sol
 
J'ai pas besoin de sécurité, c'est juste moi qui l'utilise sur mon ordi.
comment je fais pour la mettre dans un module standard ?
les options qui sont là, lorsque je veux créer une macro, sont:

enregistrer la macro dans:
ce classeur
nouveau classeur
classeur de macros personnelles

J'ai essayé la dernière option et je n'ai aucune espèce d'idée où est rendue ma macro. Où est rendu ce fichier ?
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
comment je fais pour la mettre dans un module standard ?
- tu ouvres ton classeur,
- Tapes ALT+F11
- Insertion/Module
- copie/colle le code 
Sub TRIER()
  ActiveSheet.Columns("A:C").HorizontalAlignment = xlLeft
  ActiveSheet.Columns("D:F").Style = "Comma"
  ActiveSheet.Columns("B:C").ColumnWidth = 26.71
  ActiveSheet.Columns("G:H").ClearContents
  With ActiveSheet.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("E3:E1000"), SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("D3:D1000"), SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("A3:H1000")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
  ActiveSheet.Range("A3").Select
End Sub

- ferme la fenêtre Visual Basic Editor
Pour lancer la macro ALT+F8 depuis n'importe qu'elle feuille, sélectionnes TRIER et clic sur exécuter... Ou affectes là à un bouton...
0
Réponse 9 / 9
El-sol
 
tiens tiens, ça me dit quelque chose, ça, de l'affecter à un bouton.
Comment on fait déjà ?
ainsi je pourrais avoir mon bouton en haut de mon excel ??
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses