Vba formule pour extraire des données de plusieurs feuilles [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
samedi 15 novembre 2014
Statut
Membre
Dernière intervention
16 novembre 2014
 -
 matou49340 -
Bonjour,

Je suis débutante en vba et je travail sur excel 2010.

J'ai 15 feuilles dans un classeur (1 balance, 1 plan comptable et 12 pour chaque mois de l'année)

Dans mes 12 feuilles de l'année j'ai un tableau avec des n° de compte et un montant au débit ou au crédit.

j'aimerais créer dans ma feuille balance un tableau qui récapitulerais tous les débits et crédit de l'année pour chaque compte.

Voici ce que j'ai fait mais il me met une erreur 1004 "erreur defini par l'application ou par l'objet.

Sub calcul_balance()

balance.Activate

For M = 3 To 14
For C = 1 To 2
'débit
Cells(M + 1, C + 2) = WorksheetFunction.SumIf(Worksheets(M).Range("E & (M+1):E" & Range("A1").End(xlDown).Select).Row, Range("A" & (M + 1)), Worksheets(M).Range("G & (M+1):G" & Range("A1").End(xlDown).Select).Row)
'crédit
Cells(M + 1, C + 3) = WorksheetFunction.SumIf(Worksheets(M).Range("E & (M+1):E" & Range("A1").End(xlDown).Select).Row, Range("A" & (M + 1)), Worksheets(M).Range("H & (M+1):H" & Range("A1").End(xlDown).Select).Row)
Next C

Next M
End Sub


Quelqu'un pourrait t'il m'aider s'il vous plait car je suis perdu.

Merci d'avance

Afficher la suite

5 réponses

Réponse 1 / 5

Bonsoir,

Ce n'est pas cela qu'il faut faire.
Vous devez mettre, "1 balance, 1 plan comptable et 12 pour chaque mois de l'année" sur une même feuille de calcul Excel.

C'est le principe d'une base de données. Ensuite vous pouvez extraire tout ce que vous voulez.

Beaucoup, beaucoup plus facile !

Cordialement,
Réponse 2 / 5
Messages postés
16174
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 août 2020
 3 000
Bonjour

Sans voir le classeur, difficile de te proposer qq chose

mettre le classeur (quelques mois seulement)sans données confidentielles en pièce jointe sur http://cijoint.fr/
et coller le lien proposé dans le message de réponse
Dans l'attente

Réponse 3 / 5
Messages postés
2
Date d'inscription
samedi 15 novembre 2014
Statut
Membre
Dernière intervention
16 novembre 2014
merci pour vos réponses.

Je préfèrerais garder toutes mes feuilles car c'est beaucoup plus lisible.
Je vous met le classeur que j'utilise.

https://www.cjoint.com/?DKqoS3D0kmp

dans l'attente
Réponse 4 / 5
Messages postés
16174
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 août 2020
 3 000
Bonjour,

Je ne suis pas comptable et donc...

comme il n'y a pratiquement rien dans les feuilles mensuelles, j'hésite...

par ex: peut il y avoir plusieurs dépenses-recettes du m^me compte dans un mois ou est ce un récapitulatif mensuel ?
Signaler
Messages postés
16174
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 août 2020
 3 000
Excuses moi, j'avais squizzé ton code !!! 

Option Explicit
'---------
Sub calcul_balance()
 Dim Mois As Byte, Lig As Byte, Balance As Long
 
 'initialisations
Application.ScreenUpdating = False
Sheets("Balance").Activate
Range("C4:D50").ClearContents

    'cumul des opérations par mois
    For Mois = 3 To 14
            For Lig = 4 To 32
                Balance = Cells(Lig, 1).Value
                With Sheets(Mois)
                    'débit
                    Cells(Lig, 3) = Cells(Lig, 3) + Application.SumIf(.Range("E4:E50"), Balance, .Range("G4:G50"))
                    'crédit
                    Cells(Lig, 4) = Cells(Lig, 4) + Application.SumIf(.Range("E4:E50"), Balance, .Range("H4:H50"))
                End With
            Next Lig
    Next Mois
End Sub
Réponse 5 / 5

merci beaucoup cela fonctionne parfaitement.
Code super clair
Je croix que je m'était un peu compliqué la vie.

merci encore et bonne journée
Posez votre question