Discussion :

[WannabeCDG]

Bonjour à tous.

Je débute sur VBA et j'essaye d'automatiser mes premières procédures grâce à ce merveilleux outil.

Tout les mois je reçois des balances analytiques par numéro de compte.

Chaque ligne retrace une opération lié à un compte avec une colonne crédit et une colonne débit.

Les colonnes soldes crédit et solde débit fonctionne par rapport à un groupement de même numéro de compte de compte.

Par exemple :

libellé	crédit	débit	Solde crédit	Solde débit
a	5		5
a		-8		-3
a	10		7
a	13		20
b		-5		-5
b		-2		-7

Or moi je veux je veux que le document se présente comme ça :

libellé	crédit	débit	Solde Crédit	Solde Débit
a	28	8	20
b		-7		-7

J'ai donc commencer à créer mon code avec des fonctions de base. Voila le fichier :

Pour Forum GL.xlsm

Mon code prends la valeur d'un numéro de compte en B2, avec une Loop il va jusqu'à la dernière ligne comprenant ce numéro de compte, le nombre de ligné ayant été passé est enregistré dans "j".


Ensuite : il est censé faire la somme des plages de crédit dans une cellule, copier cette valeur et la coller sur le dernier compte d'une plage de compte ayant la même valeur.
Ca fait la même chose pour la colonne débit.

Ensuite, il est censé effacer toutes les lignes ayant le même numéro de compte, sauf la dernière ou a été calculé la somme des colonnes crédits & somme. Ca se fait via "j" et "x".


Pour l'instant j'ai 2 problèmes :

- ça efface certains compte ayant très peu de ligne
- j'ai une erreur d'exécution 91 entre les comptes 6231 et 6238. Si vous arrivez à savoir pourquoi...



En espérant que vous puissiez m'aider, je vous remercie....

[WannabeCDG]

up

[clementmarcotte]

http://www.developpez.net/forums/d84...s-discussions/


http://club.developpez.com/regles/#LIV-N

[WannabeCDG]

Heu ok, je vois pas en quoi joindre un fichier qui contient le code VBA relaté au sujet pose problème lol mais bon, je n'oblige personne à l'ouvrir.

Tant pis merci quand même.

[Manu3100]

Dis moi si c'est bon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
44
Option Explicit
 
Sub test()
 
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long, j As Long
Dim Lastrow As Long
 
Set wb = ThisWorkbook
Set ws = wb.Sheets("Doc tr")
 
Lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
 
i = 2
 
Do Until i = Lastrow
 
j = 2
    Do Until j = Lastrow
 
        If i <> j Then
 
             If ws.Range("B" & i).Value = ws.Range("B" & j).Value Then
 
                    ws.Range("G" & i).Value = ws.Range("G" & i).Value + ws.Range("G" & j).Value ' Credit
                    ws.Range("H" & i).Value = ws.Range("H" & i).Value + ws.Range("H" & j).Value ' Debit
                    ws.Range("I" & i).Value = ws.Range("I" & i).Value + ws.Range("I" & j).Value ' Solde credit
                    ws.Range("J" & i) = ws.Range("J" & i) + ws.Range("J" & j) ' Solde Debit
 
                    ws.Range("B" & j).EntireRow.Delete
                    j = j - 1
 
            End If
          End If
 
     j = j + 1
    Lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
    Loop
 
  i = i + 1
Loop
 
End Sub

[clementmarcotte]

[QUOTE= lol[/QUOTE]

IL N'Y A PAS DE QUOI À RIRE.

Ce n'est pas parce que l'on en parle plus, qu'il n'y a jamais de virus dans des documents Office. Surtout dans les macros.