sous total ????

wilfried_42

XLDnaute Barbatruc

• 9 Avril 2007

• #2

Re : sous total ????

bonjour evelyne&francois

avez vous regardé menu Données/sous totaux

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 9 Avril 2007

• #3

Re : sous total ????

HA OUI !!!wilfried_42
SUPER je n'y pensé meme pas (faute de jamais l utiliser)

je cherchais désesperement dans les fonctions , sans vraiment comprendre le principe
et aussi sur le forum pour trouver un exemple !!!!

c est super là je pense que je vais m en sortir !!!

merci beaucoup , et bonne fetes de Paques
E et F

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 9 Avril 2007

• #4

Re : sous total ????

Bonjour

Donc avec la propostion de Wilfried

Code:

Private Sub CommandButton1_Click()

Dim cell As Range
Dim depart As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("A3:F100").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Range("A3:F100").Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range("A3").Select
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
With Selection
.AutoFilter Field:=1
.AutoFilter Field:=2
.AutoFilter Field:=3
.AutoFilter Field:=4
.AutoFilter Field:=5
.AutoFilter Field:=6

End With

Range("A3:F100").Sort Key1:=Range("E3"), Order1:=xlAscending, Key2:=Range("F3") _
      , Order2:=xlAscending, Key3:=Range("B3"), Order3:=xlAscending, Header:= _
       xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
Range("A3:F100").Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range("A3").Select
End Sub

PS j'avais la même idée

@+Jean-Marie

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Avril 2007

• #5

Re : sous total ????

bonjour Evelynetfrancois

Salut wilfried

vois si cela te convient

oups avais pas rafraichi

salut JeanMarie

 

Pièces jointes

• Copie de Copie de Tableau Commandes Frais & Surgelés.zip

  32.5 KB · Affichages: 31
• Copie de Copie de Tableau Commandes Frais & Surgelés.zip

  32.5 KB · Affichages: 34
• Copie de Copie de Tableau Commandes Frais & Surgelés.zip

  32.5 KB · Affichages: 31

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 9 Avril 2007

• #6

Re : sous total ????

Bonjour à tous
comme j'avais travaillé dessus, voici ma contribution

 

Pièces jointes

• Surgelés1.zip

  33.6 KB · Affichages: 31
• Surgelés1.zip

  33.6 KB · Affichages: 31
• Surgelés1.zip

  33.6 KB · Affichages: 34

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 9 Avril 2007

• #7

Re : sous total ????

UN GRAND MERCI
wilfried_42 JeanMarie pierrejean et CB60
que dire de plus .........et en plus en couleur c est joli !!!
les idées geniales sont là
j ai plus qu'a faire une petite sinthéses de toutes ces idées pour arriver a un resultat plus que parfait !!!
vraiment super content !!
bonne journée a vous tous
E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 9 Avril 2007

• #8

Re : sous total ????

re j ose .....

Bruno si je commence (ou j appuye deux fois) sur tri par dates toute la liste disparait !!

pierrejean la macro test ne semble pas boucler et effacer tous les "sous totaux" restés en bout de tableau suite a un tri par dates ?
sinon les couleurs sont super

quand vous aurez le temp...............merci !!!!!

E et F

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 9 Avril 2007

• #9

Re : sous total ????

re
Je n'avais pas testé la condition, si on appuis 2 fois sur ce bouton, car cela ne me semblé pas necessaire, il faut donc mettre une condition au filtre avec un "if", je regarde ce soir si je suis capable????

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 9 Avril 2007

• #10

Re : sous total ????

re
Pour pouvoir faire le filtre par date il fallait enlever les sous.totaux et si on appuyer 2 fois il ni avait plus de ligne vide, pour enler ce soucis je met une ligne vide dans la base avant d'effacer les autres lignes cela permet de pouvoir appuyer autant de fois que l'on souhaite sur le bouton.
Test et dis nous

 

Pièces jointes

• Surgelés1.zip

  33.8 KB · Affichages: 18
• Surgelés1.zip

  33.8 KB · Affichages: 18
• Surgelés1.zip

  33.8 KB · Affichages: 19

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Avril 2007

• #11

Re : sous total ????

bonjour

voila avec macro test eliminant toutes les lignes

mais l'usage des boutons reste a resultat aleatoire en fonction de l'affichage precedent . Il faudrait en savoir plus sur l'usage afin de mettre en condition avant d'executer les macros

 

Pièces jointes

• Copie de Copie de Tableau Commandes Frais & Surgelés.zip

  33.5 KB · Affichages: 25
• Copie de Copie de Tableau Commandes Frais & Surgelés.zip

  33.5 KB · Affichages: 24
• Copie de Copie de Tableau Commandes Frais & Surgelés.zip

  33.5 KB · Affichages: 22

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 10 Avril 2007

• #12

Re : sous total ????

UN GRAND MERCI pierrjean et bruno
voila j ai deux exemples pour un resultat presque similaire
que je garde dans mes archives
mon probleme est resolu un fois de plus grace à vous !!!
vous etes super
vraiment ....................;merci !
E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 14 Avril 2007

• #13

Re : sous total ????

Bonjour à tous
et plus particulièrement à PierreJean qui est l’auteur de cette macro

Aprés différents tests je m'aperçois d’un petit beugue au niveau de la première ligne de la feuille "FICHE"
Lors de l activation des sous totaux la première ligne et uniquement celle-ci ici ,dans l exemple joint, "Baguettes flambées' ,reste seule et ne se cumul pas aux autres "Baguettes flambées"

Enfin sur le fichier joint c'est plus clair je pense


Quand tu as le temps, je te remercie d avance

E et F

 

Pièces jointes

• DePierreJean.zip

  34.8 KB · Affichages: 23
• DePierreJean.zip

  34.8 KB · Affichages: 30
• DePierreJean.zip

  34.8 KB · Affichages: 27

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Avril 2007

• #14

Re : sous total ????

bonjour Evelynetfrancois

voila des baguettes regroupées

a ma decharge je dirais que la ligne fautive n'est pas de mon cru

néanmoins j'aurais du m'apercevoir du bug

Il faut dire que les tests ne sont vraiment pas ma specialité

N'hesite donc surtout pas a revenir si probleme

 

Pièces jointes

• DePierreJean.zip

  32.3 KB · Affichages: 34
• DePierreJean.zip

  32.3 KB · Affichages: 41
• DePierreJean.zip

  32.3 KB · Affichages: 34

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 14 Avril 2007

• #15

Re : sous total ????

Bonjour PierreJean
merci pour ta rapidité
je viens d apporter la modif ainsi que le "If cell.Row > 4 Then"
et tout à l air vraiment correcte ................Super !!!
je te remercie une fois de plus pour ton aide si precieuse !!

bonne journée à toi , au plaisir de te lire
E et F

 

Vote positif 0 Vote négatif