Vba formule pour extraire des données de plusieurs feuilles
Résolu
matou49340
Messages postés
2
Statut
Membre
-
matou49340 -
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
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
5 réponses
-
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, -
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
-
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 -
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 ?
-
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
-
-
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
