Vba formule pour extraire des données de plusieurs feuilles

Résolu/Fermé
matou49340 Messages postés 2 Date d'inscription samedi 15 novembre 2014 Statut Membre Dernière intervention 16 novembre 2014 - 15 nov. 2014 à 19:57
 matou49340 - 17 nov. 2014 à 15:25
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

A voir également:

5 réponses

Papaschultz
15 nov. 2014 à 22:15
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,
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
16 nov. 2014 à 08:13
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

0
matou49340 Messages postés 2 Date d'inscription samedi 15 novembre 2014 Statut Membre Dernière intervention 16 novembre 2014
16 nov. 2014 à 14:41
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
17 nov. 2014 à 07:41
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 ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
17 nov. 2014 à 10:45
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
0

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

Posez votre question
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
0