Macro excel 2007

néné06

XLDnaute Accro

• 24 Mars 2016

• #2

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

 

Dernière édition: 24 Mars 2016

Vote positif 0 Vote négatif

C

CALIDENIS

XLDnaute Nouveau

• 25 Mars 2016

• #3

Re : Macro excel 2007

bonjour,

Désolée, voici le fichier.

 

Pièces jointes

• Balance Agee FournisVI - Copie.xlsm

  231.8 KB · Affichages: 41
• Balance Agee FournisVI - Copie.xlsm

  231.8 KB · Affichages: 43

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 25 Mars 2016

• #4

Re : Macro excel 2007

Bonjour,

bien plus simple de faire des TCD...

P.

 

Pièces jointes

• Balance Agee FournisVI - Copie.xlsm

  251.3 KB · Affichages: 32
• Balance Agee FournisVI - Copie.xlsm

  251.3 KB · Affichages: 35

Vote positif 0 Vote négatif

C

CALIDENIS

XLDnaute Nouveau

• 25 Mars 2016

• #5

Re : Macro excel 2007

Bonjour,

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

 

Vote positif 0 Vote négatif

C

CALIDENIS

XLDnaute Nouveau

• 29 Mars 2016

• #6

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

 

Vote positif 0 Vote négatif

C

CALIDENIS

XLDnaute Nouveau

• 5 Avril 2016

• #7

Re : Macro excel 2007

Bonjour,

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

Par avance,merci

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 5 Avril 2016

• #8

Re : Macro excel 2007

Bonjour,

essaie ceci sur un classeur d'essai

Code:

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

 

Vote positif 0 Vote négatif