Regrouper plusieurs tableau

Bonjour a tous,

Alors voila je vous explique mon problème.

Je viens d'élaborer un cahier de compte, avec 12 onglets qui représente les 12 mois.

Sur chacun de ces mois il y a trois tableaux (Recettes, Épargnes, Dépenses).

J'aimerais que le contenu des 12 tableaux Épargnes soit regrouper dans un seul tableau.

Se tableau qui regrouperais toute les données s’appelle "Recettes" et il se trouve sur l'onglet Epargne

Est ce possible et si oui comment faire.

Merci d'avance.

PS : Sur mon fichier joint, pour passez en affichage "Normal" il faut cliquer sur le bouton "Pe" en haut a gauche de l'onglet tableau de bord

Cordialement

Très drôle !

Bonjour Mlle. Marjolaine YOU,

Juste un petit message pour vous dire "Je t'aime".

Et félicitation, vous avez trouvez le code secret :-*

Je vous souhaite une bonne gestion de vos comptes.

Et n'oubliez pas, vous êtes la plus belle.

roro72303 a écrit :

Je viens d'élaborer un cahier de compte, avec 12 onglets qui représente les 12 mois.

Pourquoi ne pas faire un seul onglet + filtre par mois (et segment) ?

Bonjour,

après 19 téléchargement, pas de réponses, ton fichier pose problème non ?

comme déjà suggéré avant moi, un seul onglet aurait suffit

P.

Bonjour,

voici un exemple pour le transfert de données, voir sur le Module4

Sub test_Tranfert()
Dim mois, i As Integer
Dim LastRwD As Long, LastRwK As Long
Dim Recette As Long, Dépense As Long
Dim RecettesRange As String, DépensesRange As String
Dim EparRangeRecettes  As String, EparRangeDépenses  As String

mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", _
              "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
LastRwD = Sheets("Epargnes").Cells(Rows.Count, "B").End(xlUp).Row + 1
LastRwK = Sheets("Epargnes").Cells(Rows.Count, "K").End(xlUp).Row + 1

For i = LBound(mois) To UBound(mois)
    Recette = Range("Recettes" & mois(i)).Rows.Count
    RecettesRange = Range("B15" & ":D" & 15 + Recette).Address
    EparRangeRecettes = "B" & LastRwD & ":D" & LastRwD + Recette
    Sheets("Epargnes").Range(EparRangeRecettes).Value = Sheets(mois(i)).Range(RecettesRange).Value

    Dépense = Range("Dépenses" & mois(i)).Rows.Count
    DépensesRange = Range("J15" & ":L" & 15 + Dépense).Address
    EparRangeDépenses = "K" & LastRwD & ":M" & LastRwD + Dépense
    Sheets("Epargnes").Range(EparRangeDépenses).Value = Sheets(mois(i)).Range(DépensesRange).Value

    LastRwD = Sheets("Epargnes").Cells(Rows.Count, "B").End(xlUp).Row + 1
    LastRwK = Sheets("Epargnes").Cells(Rows.Count, "K").End(xlUp).Row + 1
Next
End Sub

bonjour

une fiche par mois, c'est ce qui est traditionnel et obligatoire en compta sur papier

en informatique, c'est différent. Aucun progiciel de compta ne crée de table de données par mois. Une unique table, avec des requêtes pour visualiser par jour, par mois, par année...

faire pareil avec Excel (qui est de l'informatique aussi)

Bonjour

Un essai à tester; Te convient-il ?

Bye !

Steelson a écrit :

Pourquoi ne pas faire un seul onglet + filtre par mois (et segment) ?

Ton idée ne me parait pas bête mais je ne vois pas du tout comment faire

GMB ton essaie me parrait pas mal mais j'aimerais que se soit la colonne "Epargne" de chaque feuille que soit pris en compte et je souhaiterais que le prix aussi soit copier

roro72303 a écrit :

Steelson a écrit :

Pourquoi ne pas faire un seul onglet + filtre par mois (et segment) ?

Ton idée ne me parait pas bête mais je ne vois pas du tout comment faire

Roro ... je repartirai de zéro pour tout simplifier avec un seul onglet quelque soit le mois.

Ensuite je ferai des TCD pour en extraire les valeurs par mois, par trimestre et par année.

Oki je vais explorer par la alors ^^