Macro excel 2007

[CALIDENIS]

Bonjour

J'ai in fichier excel composé de plusieurs onglets. J'importe des données dans chaque onglet .
Pour la mise en forme des ces données, j'ai créée une macro que j'applique sur chaque onglet.
Jusqu'ici tout va bien.

Ensuite, je dois trier ces données et faire des sous totaux pour chaque onglet.
J'ai donc créée une nouvelle macro et là j'ai un problème, elle s'applique uniquement sur un onglet, sur les autres, tout est pele mêle.
Je viens donc demander de l'aide.
Par avance, merci. Cordialement

 

[néné06]

Re : Macro excel 2007

Bonjour Calidenis,

j'ai vu Mme Irma,😡mais elle ne m'a pas donné les noms des onglets, 😡les plages à traiter,😡 les codes de la macro.😡
Bref, elle ne m.a pas donné le classeur😡 pour pouvoir travailler dessus!


Désolé de ne pouvoir faire quelque chose, sans son aide!😉😉

A+

Rene

 

[CALIDENIS]

Re : Macro excel 2007

bonjour,

Désolée, voici le fichier.

 

[gosselien]

Re : Macro excel 2007

Bonjour,

bien plus simple de faire des TCD...

P.

 

[CALIDENIS]

Re : Macro excel 2007

Bonjour,

Merci mais malheureusement, nous dépendons d'un groupe chinois qui nous demande de respecter le format initial.

 

[CALIDENIS]

Re : Macro excel 2007

bonjour,

Je reviens vers vous concernant ce problème que je dois traiter rapidement par macro et non par TCD.
Par avance, merci

 

[CALIDENIS]

Re : Macro excel 2007

Bonjour,

Puis-je avoir de l'aide concernant ma demande ci-dessus.

Par avance,merci

 

[gosselien]

Re : Macro excel 2007

Bonjour,

essaie ceci sur un classeur d'essai 🙂

Sub SousTot()
Dim Zone
Set Zone = [A7].CurrentRegion
Zone.Select
Selection.RemoveSubtotal
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
               OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Subtotal GroupBy:=2, Function:=xlSum, _
TotalList:=Array(11, 12, 13, 14, 15, 16, 17, 18), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub