[Débutant] Amélioration code VBA

Bonjour,

J'ai créer un code VBA pour Excel pour automatiser un bilan sur 1 mois et je souhaiterais savoir s'il y a moyen de simplifier le code car je le trouve super lourd surtout que j'ai pas encore tous effectué les IF et les affichage des résultats.

Je souhaiterais ensuite éffectué cette recherche sur mes 12 mois (12 premiers onglet)

Ci joint le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Sub Cherche()   Dim L As Integer 'variable pour la boucle Dim nb_lignes As Long 'variable pour le nombre de ligne Dim adsl As Single 'variable résultat 1er if Dim Alimentation As Single 'variable second if Dim Assurance As Single Dim CAF As Single   'initialisation des variables L = 1 adsl = 0 Alimentation = 0 Assurance = 0 CAF = 0 'comptage et stockage du nombre de ligne pour l'onglet 9 Sheets(9).Select nb_lignes = WorksheetFunction.CountA(Range("A:A")) + 1     'Boucle des controles + additions des valeurs numériques (débit, crédit) For L = 1 To nb_lignes If Range("B" & L) = Sheets("Bilan").Range("A11").Value Then adsl = adsl + Range("D" & L).Value + Range("E" & L).Value ElseIf Range("B" & L) = Sheets("Bilan").Range("A12").Value Then Alimentation = Alimentation + Range("D" & L).Value + Range("E" & L).Value ElseIf Range("B" & L) = Sheets("Bilan").Range("A13").Value Then Assurance = Assurance + Range("D" & L).Value + Range("E" & L).Value ElseIf Range("B" & L) = Sheets("Bilan").Range("A13").Value Then Assurance = Assurance + Range("D" & L).Value + Range("E" & L).Value ElseIf Range("B" & L) = Sheets("Bilan").Range("A14").Value Then CAF = CAF + Range("D" & L).Value + Range("E" & L).Value End If Next L   'report des résultats Sheets("Bilan").Select Range("J11").Value = adsl Range("J12").Value = Alimentation Range("J13").Value = Assurance Range("J14").Value = CAF   End Sub

---

Bonjour,

on peut recommander de remplacer les If / ElseIf a repetition par un Select Case

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Select Case Range("B" & L) Case Sheets("Bilan").Range("A11").Value adsl = adsl + Range("D" & L).Value + Range("E" & L).Value Case Sheets("Bilan").Range("A12").Value Then Alimentation = Alimentation + Range("D" & L).Value + Range("E" & L).Value Case Sheets("Bilan").Range("A13").Value Then Assurance = Assurance + Range("D" & L).Value + Range("E" & L).Value Case Sheets("Bilan").Range("A13").Value Then Assurance = Assurance + Range("D" & L).Value + Range("E" & L).Value Case Sheets("Bilan").Range("A14").Value Then CAF = CAF + Range("D" & L).Value + Range("E" & L).Value End If

---

Bonjour,

voici une proposition dans laquelle tu n'as pas besoin de If, tu peux donc rajouter autant d'éléments que tu veux

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Cherche() Dim i As Long, j As Long, TablResult() With ThisWorkbook TablResult = .Worksheets("Bilan").Range("A11").Resize(4, 2).Value ' (1) For i = 1 To 12 ' (2) With .Worksheets(i) ' (3) For j = LBound(TablResult, 1) To UBound(TablResult, 1) ' (4) TablResult(j, 2) = TablResult(j, 2) + Application.WorksheetFunction.SumIf(.Columns(2), TablResult(j, 1), .Columns(4)) + Application.WorksheetFunction.SumIf(.Columns(2), TablResult(j, 1), .Columns(5)) ' (5) Next j End With Next i .Worksheets("Bilan").Range("J11").Resize(Ubound(TablResult, 1), 1).Value = Application.Index(TablResult, 0, 2) ' (6) End With End Sub

---

J'ai décomposé les 6 étapes dans les commentaires du code afin que tu puisses comprendre comment on ajoutera des nouveaux postes à calculer

(1) On prend les postes souhaités en partant de A11, sur 4 lignes et 2 colonnes, qu'on met dans un tableau (la seconde colonne va nous servir à calculer les résultats)
(2) Pour les 12 premières feuilles du classeur
(3) Sur la Xème feuille des 12 premières
(4) Pour chacun des postes récupérés en (1)
(5) On additionne deux SOMME.SI(Colonne B, Le Poste étudié, Colonne D-E)
(6) Après avoir tout calculé, on écrit les résultats (la seconde colonne de notre tableau de calcul) en partant de J11


La seule modification à faire pour ajouter des postes, c'est sur l'étape 1 : le chiffre 4 correspond au nombre de postes

merci
par contre le résultat, c'est le résultat globale des 12 onglets que l'on obtiens
je souhaiterais récupérer le résultat de chaque onglet dans une cellule différente a chaque fois.

Exemple :

Categorie	janvier	Février	mars	Avril
ADSL	-35.00€	-35.00€	-42.00€	-38.00€
Alimentation	-250.00€	-287.95€	-350.25€	-268.00€
Assurance	-23.00€	-23.00€	-23.00€	-23.00€

Bonjour,

en rassemblant les données de tes 12 feuilles dans une seule, et en ajoutant une colonne pour référencer le mois, tu vas obtenir des outils excel natifs pour faire ça (SOUS.TOTAL, tableau croisé dynamiques, formules Excel simples et directes etc...)