Vba formule pour extraire des données de plusieurs feuilles
Résolu
matou49340
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Vba formule pour extraire des données de plusieurs feuilles
- Fuite données maif - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Extraire une video youtube - Guide
- Comment faire un livret avec des feuilles a4 - Guide
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,
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
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
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 ?
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