Discussion :

[loulah]

Bonjour le forum,
Je viens encore une fois solliciter votre aide : voilà, j’ai une base de données qui change chaque jour et qui me permet d’avoir des données chiffrées du type :

Date : J1
Articles	Intitule	Débit	Crédit
1001
1002
100N

J’aimerai avoir le report par jour des résultats obtenus dans le tableau I comme suit :

Articles	Intitule	Débit			Crédit
		Antérieurs	Courant	Total	Antérieurs	Courant	Total
1001
1002
100N

Avec : antérieur = cumul des journées précédentes ;
Courant = montant de la journée encours ;
Total = la somme de l’antérieur et du courant et qui deviendra l’antérieur de la journée suivante.
Puis à la fin de chaque mois le report par mois des résultats obtenus dans le tableau II comme suit :

Articles	Intitule	Débit			Crédit
		Antérieurs	Courant	Total	Antérieurs	Courant	Total
1001
1002
100N

A noter que la mise à jour des tableaux I et II doit se faire automatiquement chaque fois que je valide ma base de données de départ même s’ils sont fermés (si c’est possible bien sûr).
Merci d’avance et au plaisir de vous lire.

[mfoxy]

Bonjour,

Perso je travaillerais avec des tableaux croisés numériques ( quitte à créer une feuille de synthèse pointant vers ceux-ci)

Plutôt que de créer une machine à gaz, dans laquelle il faudrait peut être modifié le code au fur et à mesure des besoin.

Bat

[loulah]

Bonsoir mfoxy, bonsoir tout le monde,
Merci pour l’intérêt que vous avez portez à ma requête. Effectivement, c’est ce que j’utilise actuellement, un TCD qui me permet de regrouper mes données puis copier-coller, par journée dans une feuille et par mois dans une autre feuille.
Cependant, j’aurai bien aimé automatiser tout cela. D’ailleurs c’est le principe même de la programmation et du VBA.
Encore une fois merci et bonne continuation.

[zoltar_x]

Si je comprends bien, tu voudrais faire un TCD sur mesure qui s'affiche directement. Sans copier-coller le TCD standard d'Excel.
Un TCD est le croisement du filtrage de 2 critères. Pour faire un TCD soi-même, il faut stocker le tableau Excel dans une variable table (Array) à deux dimensions et ensuite filtrer selon les critères voulus.

[loulah]

Si je comprends bien, tu voudrais faire un TCD sur mesure qui s'affiche directement. Sans copier-coller le TCD standard d'Excel.
Un TCD est le croisement du filtrage de 2 critères. Pour faire un TCD soi-même, il faut stocker le tableau Excel dans une variable table (Array) à deux dimensions et ensuite filtrer selon les critères voulus.

Bonsoir tout le monde,
zoltar_x merci pour réactivité. Je crois que je me suis mal exprimé. Ma requête consiste seulement à copier le résultat obtenu à partir de ma BD (qui se compose de 3 colonnes et plusieurs lignes) sur une autre feuille et puis d’actualiser ses derniers en trois triplet : le premier pour les antérieur, le second pour les résulta courant (par journée et puis par mois) et le troisième pour la somme des deux précédent.
Merci et à bientôt.

[zoltar_x]

Bonjour,

Je te réponds par rapport à ton premier tableau récapitulatif. Je pense que tu n'as pas besoin de beaucoup de VBA.
Pour récupérer les données de la base dans le premier tableau, il te faut juste la fonction RECHERCHE_V.



Ici la base de données journalière est supposée être dans la feuille 1.
Ce qui est important c'est que la mise à jour de ton tableau ne doit pas être automatique, c'est-à-dire que Formules > Options de calcul doit être sur manuel.
Pour plus de sécurité, tu peux la mettre à manuel à l'ouverture du classeur avec ce petit code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
    Application.Calculation = xlManual
 
End Sub

Le seul code VBA nécessaire est celui qui consiste à coller en texte la colonne total vers antérieur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub total_vers_anterieur()
 
    Dim derniere_ligne As Long
 
    Worksheets(2).Select
 
    derniere_ligne = Range("A3").End(xlDown).Row
 
    For i = 3 To derniere_ligne
 
        Cells(i, 3) = Cells(i, 5).Text
        Cells(i, 6) = Cells(i, 8).Text
 
    Next i
 
End Sub

Une fois que le total antérieur es mis en courant, tu remets option de calcul sur automatique.
Pour le deuxième tableau récapitulatif, j'ai pas bien compris.