Help, Trés Urgent , Sous Total Par Macro

porcinet82

XLDnaute Barbatruc

• 3 Août 2006

• #2

Re : Help, Trés Urgent , Sous Total Par Macro

Bonsoir Foufoudora,

Dernier posts de la soirée, je pense que la macro suivante devrait faire ce que tu souhaites, mais a tester a fond...

PHP:

Sub test()
Dim i&, j&, lig%
lig = 2
For i = 2 To Range("A65536").End(xlUp).Row + 1
    If Cells(i, 1).Value = "" Then
        For j = 9 To 14
            Cells(i, j).Value = Application.WorksheetFunction.Sum(Range(Cells(lig, j), Cells(i - 1, j)))
        Next j
        lig = Cells(i, j).Row + 1
    End If
Next i
End Sub

Bonne nuit a tous,

@+

 

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 4 Août 2006

• #3

Re : Help, Trés Urgent , Sous Total Par Macro

Bonjour Romain,
en fait j'ai essayé ta macro mais malheureusement ca bloque et donne un code 1004 !!!!
en fait je désire des sous-totaux des colonnes citées précédement par jour, et chaque mois les sous-totaux et finalement à la fin de l'année les totaux généraux. Ouf c'est beaucoup. On peux les copier sur une autre feuille .
ci-joint la macro de validation des données saisies.

Merci d'avance
Cordialement
Foufoudora

Private Sub CommandButton1_Click()

Dim TabTemp As Variant
Dim Derlgn As Integer, Derlgn2 As Integer, L As Integer
Dim C As Byte
Dim i&, j&, lig%
With Worksheets("Saisie")
'.Unprotect car la feuille est déjà protégé
Derlgn = .Range("B65536").End(xlUp).Row 'B car il y a des formules dans la colonne A
If Derlgn = 3 Then Derlgn = 4
TabTemp = .Range(Cells(4, 1), Cells(Derlgn, 18)).Value 'ici le 18 représente la derniere colonne prise en compte
'.Range(Cells(4, 1), Cells(Derlgn, 18)).ClearContents 'ici aussi
.Protect
End With
With Worksheets("Traitement")
.Unprotect
Derlgn2 = .Range("A65536").End(xlUp).Row 'détecte la derniere ligne non vide
For L = 1 To UBound(TabTemp, 1) 'pour chaque ligne du tableau
For C = 1 To UBound(TabTemp, 2) 'pour chaque Colonne du tableau
If TabTemp(1, 1) = "" Then Exit Sub 'On sort si pas de données
.Cells(Derlgn2 + L, C) = TabTemp(L, C) 'ici on colle les données
Next
Next
.Protect
End With
End Sub

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 4 Août 2006

• #4

Re : Help, Trés Urgent , Sous Total Par Macro

Salut Foufoudora,

Je viens de retester ma macro et chez moi elle fonctionne, je te joint le fichier pour que tu regardes ce que ca donne. Pour tes autres sous totaux, en adaptant un peu le code, je pense que tu devrais t'en sortir.

Si ce n'est pas le cas, refais un ti signe,

@+

 

Pièces jointes

• Foufoudora.zip

  24 KB · Affichages: 55

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 4 Août 2006

• #5

Re : Help, Trés Urgent , Sous Total Par Macro

Salut,

J'ai essayé la macro la première fois ca a marché mais quand j'ai saisi des données dans la feuille "Saisie" et je les ai transferé sur la feuille "Traitement" par le bouton "Valider" le transfert s'est bien passé mais qd j'ai essayé de tester ta macro ca beuguer sur la ligne suivante

Cells(i, j).Value = Application.WorksheetFunction.Sum(Range(Cells(lig, j), Cells(i - 1, j)))

En fait essaies de saisir 2 lignes sur la feuille "saisi" et testes les.

cordialement

Foufoudora

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Août 2006

• #6

Re : Help, Trés Urgent , Sous Total Par Macro

Arff 😕
bonjour le Fil

moi j'en suis resté au fil précédent donc je remets le fichier ici cela réponds à l'une des questions de Foufoudora SousTotal par Jours (VBA)

Regarde la pièce jointe Projet_excel_downloadV1 .zip

 

Pièces jointes

• Projet_excel_downloadV1 .zip

  24.5 KB · Affichages: 46
• Projet_excel_downloadV1 .zip

  24.5 KB · Affichages: 43

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Août 2006

• #7

Re : Help, Trés Urgent , Sous Total Par Macro

re
voici une adaptation avec une partie du code de Romain

Private Sub CommandButton1_Click()
Dim TabTemp As Variant
Dim Derlgn As Integer, Derlgn2 As Integer, L As Integer
Dim C As Byte, j As Byte
With Worksheets("Saisie")
.Unprotect
Derlgn = .Range("B65536").End(xlUp).Row 'B car il y a des formules dans la colonne A
If Derlgn = 3 Then Derlgn = 4
TabTemp = .Range(.Cells(4, 1), .Cells(Derlgn, 18)).Value 'ici le 18 représente la derniere colonne prise en compte
'.Range(Cells(4, 1), Cells(Derlgn, 18)).ClearContents 'ici aussi
.Protect
End With
With Worksheets("Traitement")
.Unprotect
Derlgn2 = .Range("A65536").End(xlUp).Row 'détecte la derniere ligne non vide
For L = 1 To UBound(TabTemp, 1) 'pour chaque ligne du tableau
For C = 1 To UBound(TabTemp, 2) 'pour chaque Colonne du tableau
If TabTemp(1, 1) = "" Then Exit Sub 'On sort si pas de données
.Cells(Derlgn2 + L, C) = TabTemp(L, C) 'ici on colle les données
Next
Next
Derlgn2 = .Range("A65536").End(xlUp).Row + 1 'détecte la derniere ligne vide
For j = 9 To 14
.Cells(Derlgn2, j).Value = Application.WorksheetFunction.Sum(.Range(.Cells(.Cells(Derlgn2, j).Offset(-UBound(TabTemp, 1), 0).Row, j), .Cells(Derlgn2 - 1, j)))
Next j
.Protect
End With

End Sub

Cliquez pour agrandir...

Bonne journée

 

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 5 Août 2006

• #8

Re : Help, Trés Urgent , Sous Total Par Macro

Merci Papy,

ca fonctionne très bien.
je peux te demander une autre chose.
1- avant la somme des sous totaux de marquer "Sous-Totaux" à chaque fois on fait la somme.
2- serait-il possible de faire sur une autre feuille "Synthèse" le cumul des sous-totaux mensuel et à la fin le total de l'année comme ca je ferais après un graphique.

Merci d'avance.

Foufoudora

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Août 2006

• #9

Re : Help, Trés Urgent , Sous Total Par Macro

Salut Foufoudora 😀

En pièce jointe une réponse à la premiere demande

pour ce qui est de la feuille Archives lol il me faut un complément d'infos

faut il archiver chaque jours ou à la demande

enfin essayes de m'éclairer 😕

Regarde la pièce jointe Projet_excel_downloadV2.zip

bonne fin de Soirée

 

Pièces jointes

• Projet_excel_downloadV2.zip

  26 KB · Affichages: 50
• Projet_excel_downloadV2.zip

  26 KB · Affichages: 51

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 5 Août 2006

• #10

Re : Help, Trés Urgent , Sous Total Par Macro

Salut Papy,

Magnifique.
pour la feuille "archives" sera le cumul de chaque mois de la feuille traitement:

j'ai mis un exemple dans la feuille "Archives".

Merci par avance

Cordialement

Foufoudora

 

Pièces jointes

• Projet_excel_downloadV2.zip

  25.8 KB · Affichages: 44
• Projet_excel_downloadV2.zip

  25.8 KB · Affichages: 43
• Projet_excel_downloadV2.zip

  25.8 KB · Affichages: 41

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 6 Août 2006

• #11

Re : Help, Trés Urgent , Sous Total Par Macro

Salut Foufoudora
bonjour le Forum

En pièce jointe la réponse à la deuxième demande
Regarde la pièce jointe Projet_excel_downloadV3.zip
bonne fin de Journée

 

Pièces jointes

• Projet_excel_downloadV3.zip

  27.6 KB · Affichages: 58
• Projet_excel_downloadV3.zip

  27.6 KB · Affichages: 58

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 6 Août 2006

• #12

Re : Help, Trés Urgent , Sous Total Par Macro

Merci Papy,

une petite question on peut mettre automatiquement les sous-totaux en Gras bien sûr avec le mot "Sous-totaux" ?

juste pour comprendre le code au cas où je dois rajouter des colonnes et faire les sous-totaux pour ces derniers et les transferer à la feuille "Archives" qu'est ce que je dois faire !!!
est ce que je peux avoir plus d'explication ?

Merci par avance

Foufoudora

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 6 Août 2006

• #13

Re : Help, Trés Urgent , Sous Total Par Macro

Salut Foufoudora 😀


je me pose comme d'autres la question suivante "Pourquoi Papy" Arff moi c'est Chti160 ou alors Jean Marie, mais papy ???? ca me vient d'ou lol 😕 😕
je vais regarder pour ce qui est de ta demande

 

Dernière édition: 6 Août 2006

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 6 Août 2006

• #14

Re : Help, Trés Urgent , Sous Total Par Macro

Moi je trouve pas Chti, que tu ressembles trop à ca :

pourtant...

​

 

Dernière édition: 6 Août 2006

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 6 Août 2006

• #15

Re : Help, Trés Urgent , Sous Total Par Macro

j'espère que ce n'est pas méchant.
si c'est le cas je te prèsente toutes mes excuses.
lol.
parce que pour moi un Papy est un soutien moral et une aide précieuse.
lol

Foufoudora

 

Vote positif 0 Vote négatif