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:

Vba formule pour extraire des données de plusieurs feuilles
Formule excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Extraire video youtube - Guide
Formule si et - Guide
Extraire son video - Guide

5 réponses

Réponse 1 / 5

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,

Réponse 2 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Réponse 3 / 5

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

Réponse 4 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 ?

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

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

Posez votre question

Réponse 5 / 5

matou49340
17 nov. 2014 à 15:25

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

Discussions similaires

exo pix

je veut créer des codes

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters