Sous -totaux par département

Fermé

Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021 - 3 sept. 2021 à 17:12
Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021 - 6 sept. 2021 à 16:22

Bonjour,

Je souhaiterai faire un sous total par département (colonne C) des données de 2016 à 2019 mais je n'y arrive pas.

En d'autres termes je voudrais insérer une ligne de sous total par département

Merci d'avance

Configuration: Windows / Edge 92.0.902.67

A voir également:

Sous -totaux par département
04 24 quel departement - Guide
0437 indicatif departement - Forum Mobile
Combien de temps met une lettre pour arriver dans un autre departement ✓ - Forum Laposte
0493 indicatif departement - Forum Mobile
0472 quel département - Forum Mobile

7 réponses

Réponse 1 / 7

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
4 sept. 2021 à 11:50

bonjour,
qu'as-tu essayé?
as-tu essayé un tableau croisé dynamique?

Réponse 2 / 7

Bel_6625
4 sept. 2021 à 12:51

Merci pour ta réponse
Je sais ke faire sous forme de tableau croisés.
Mais là je veux le faire en VBA étant donné que j'ai commencé l'automatisation en VBA.

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
4 sept. 2021 à 12:57

tu écris "je n'y arrive pas", qu'as-tu essayé?

Réponse 3 / 7

Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021
Modifié le 6 sept. 2021 à 10:11

Bonjour,

J'ai essayer ce code pour un exemple plus court mais dans le même principe (Faire un sous total par catégorie).

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
6 sept. 2021 à 10:25

merci de partager du texte, pas des images.
le code fonctionne bien?

Réponse 4 / 7

Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021
6 sept. 2021 à 12:18

le code ne fonctionne pas du tout

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
6 sept. 2021 à 12:43

et le reste du code fonctionne?
que veux-tu dire par "j'ai commencé l'automatisation en VBA"?

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

Posez votre question

Réponse 5 / 7

Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021
6 sept. 2021 à 13:57

j'ai commencé l'automatisation je veux dire par la que j'ai écrit un programme qui me permet de faire apparaitre toutes les données souhaitées.

Confère l'image du premier message.

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
6 sept. 2021 à 14:32

commence peut-être par partager la source de ce programme.

Réponse 6 / 7

Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021
6 sept. 2021 à 15:41

Sub ResultatAnnuel()

Dim NomRM As String

Dim RM As Worksheet
Dim loRM As ListObject
Dim DerniereLigneRM As Integer
Dim CategorieCourante As String
Dim NumeroCompteOperation As String
Dim CodeEtablissement As String
Dim LigneResultat As Integer
Dim LignePPI As Integer
LignePPI = LignePPI + 1

Dim Resultat As Worksheet
Set Resultat = Sheets("Résultat")

Dim TrainPPIS1 As Worksheet

Set TrainPPIS1 = Sheets("TrainPPIS1")

Dim LigneRM As Integer
Dim SumResultat As Double
Dim SumMaquette As Double
Dim DepartementMOA As String
Dim Maquette As Worksheet
Set Maquette = Sheets("Maquette")

Dim LigneMaquette As Integer
LigneMaquette = LigneMaquette + 1
Dim DerniereLigneMaquette As Integer
DerniereLigneMaquette = Maquette.Cells(Rows.Count, 1).End(xlUp).Row + 1

Dim NumColo As Integer
NumColo = 9
Dim NumColoMaquete As Integer
NumColoMaquete = 25

Resultat.Cells(1, 2).Value = "Code Compte Operation"
Resultat.Cells(1, 8).Value = "Code Type Financement"
Resultat.Cells(1, 6).Value = "Libellé long SSDM"
Resultat.Cells(1, 5).Value = "Libellé long SDM"
Resultat.Cells(1, 7).Value = "Libellé Catégorie"
Resultat.Cells(1, 4).Value = "Code Unité MOA Projet"
'Resultat.Cells(1, 3).Value = "Code Département MOA Projet(selon Résultat)"
Resultat.Cells(1, 3).Value = "Code Département MOA Projet(selon PPI)"
Resultat.Cells(1, 1).Value = "Code Etablissement Comptable"
Resultat.Cells(1, 7).Value = "Libellé Catégorie"

For Each WS In ThisWorkbook.Worksheets

If WS.Name Like "*RM20*" Then

NomRM = WS.Name
Set RM = Sheets(NomRM)

CreerTableau RM, NomRM & "Tab"

Set loRM = RM.ListObjects(NomRM & "Tab")
With loRM.Sort
With .SortFields
.Clear
.Add Key:=loRM.ListColumns("Code Compte Operation").DataBodyRange, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

End With
.Header = xlYes
.MatchCase = False
.Apply
End With

DerniereLigneRM = RM.Cells(Rows.Count, 1).End(xlUp).Row
CategorieCourante = RM.Cells(2, 23).Value
NumeroCompteOperation = RM.Cells(2, 1).Value

LigneResultat = 8

CodeEtablissement = "GI"

'RESULTATS ANNUELS

For LigneRM = 2 To DerniereLigneRM + 1

DansTableau = DansTableauResultat(NumeroCompteOperation)

If RM.Cells(LigneRM, 5) = CodeEtablissement Then

If DansTableau = -1 Then
LigneRM1 = LigneRM
DerniereLigneResultat = Resultat.Cells(Rows.Count, 1).End(xlUp).Row + 1

While RM.Cells(LigneRM1, 1).Value = NumeroCompteOperation
SumResultat = SumResultat + RM.Cells(LigneRM, 26) / 1000000
LigneRM1 = LigneRM1 + 1

Wend
Resultat.Cells(DerniereLigneResultat, 2).Value = RM.Cells(LigneRM - 1, 1).Value
Resultat.Cells(DerniereLigneResultat, 1).Value = RM.Cells(LigneRM - 1, 5).Value
Resultat.Cells(DerniereLigneResultat, 8).Value = RM.Cells(LigneRM - 1, 13).Value
Resultat.Cells(DerniereLigneResultat, 6).Value = RM.Cells(LigneRM - 1, 21).Value
Resultat.Cells(DerniereLigneResultat, 5).Value = RM.Cells(LigneRM - 1, 19).Value

Resultat.Cells(DerniereLigneResultat, 7).Value = RM.Cells(LigneRM - 1, 23).Value
Resultat.Cells(DerniereLigneResultat, 4).Value = RM.Cells(LigneRM - 1, 15).Value
'Resultat.Cells(DerniereLigneResultat, 3).Value = RM.Cells(LigneRM - 1, 16).Value
Resultat.Cells(DerniereLigneResultat, 3).Value = DanstableauTraindPPIS1(RM.Cells(LigneRM - 1, 23))

'Resultat.Cells(DerniereLigneResultat, 27).Value = DansTableauMaquette1(RM.Cells(LigneRM - 1, 23))
'Resultat.Cells(DerniereLigneResultat, 28).Value = DansTableauMaquette2(RM.Cells(LigneRM - 1, 23))
'Resultat.Cells(DerniereLigneResultat, 29).Value = DansTableauMaquette3(RM.Cells(LigneRM - 1, 23))
'Resultat.Cells(DerniereLigneResultat, 30).Value = DansTableauMaquette4(RM.Cells(LigneRM - 1, 23))

'Resultat.Cells(DerniereLigneResultat, 31).Value = DansTableauMaquette20212024(RM.Cells(LigneRM - 1, 23))

'Resultat.Cells(DerniereLigneResultat, 23).Value = RM.Cells(LigneRM - 1, 5).Value

Resultat.Cells(DerniereLigneResultat, NumColo).Value = SumResultat

Resultat.Cells(1, NumColo).Value = Right(RM.Name, 4)
SumResultat = RM.Cells(LigneRM, 26) / 1000000
CategorieCourante = RM.Cells(LigneRM, 23).Value
NumeroCompteOperation = RM.Cells(LigneRM, 1).Value

Else
While RM.Cells(LigneRM1, 1).Value = NumeroCompteOperation
SumResultat = SumResultat + RM.Cells(LigneRM1, 26) / 1000000
LigneRM1 = LigneRM1 + 1

Wend

Resultat.Cells(DansTableau, NumColo).Value = SumResultat
SumResultat = RM.Cells(LigneRM, 26) / 1000000
CategorieCourante = RM.Cells(LigneRM, 23).Value
NumeroCompteOperation = RM.Cells(LigneRM, 1).Value

End If

Else

End If

Next
NumColo = NumColo + 1
End If

Next

End Sub

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
6 sept. 2021 à 16:18

sans indentation et sans commentaire, le code n'est pas très lisible.
essaie avec les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

A quel moment (dans le code) se fait le tri par département?
c'est peut-être une opportunité de calculer les sous-totaux.

Réponse 7 / 7

Bel_6625 Messages postés 18 Date d'inscription vendredi 3 septembre 2021 Statut Membre Dernière intervention 7 décembre 2021
6 sept. 2021 à 16:22

Bonjour merci pour ton retour.

Je n'ai en effet pas fait de tri par département.

Je vais le faire avec la fonctionnalité enregistrer une macro et je créerai un bouton pour ça.

Discussions similaires

departement d'un num 0490 en france

Numéro commençant par le 09 70 : qui est-ce?

Les numéros qui débutent par 04 26 : c'est du démarchage téléphonique ?

Bonjour, a qui appartient ce numéro bizarre

Préfixe 0465

Discussions similaires

Newsletters