Suivi immobilier

[Shamanka]

Bonjour,
J'aurai aimé faire un classeur excel qui me permettrait d'enregistrer toutes les dépenses et les entrées pour des biens sur des feuilles distinctes pour chaque bien et une feuille recapitulative pour l'ensemble des biens. (J'aimerai obtenir un resultat de la forme de la feuille recap).
J'ai essayé de faire un tableau croisé dynamique mais le résultat n'est pas du tout ce que j'attends.
Le tableau de recap se mettant a jour lors de modification ou d'ajout de lignes dans une des autres pages.
Merci d'avance pour votre aide et vos conseils.

 

[mromain]

Re : Suivi immobilier

bonjour shamanka et bienvenue sur le forum,

je te propose cette macro :

Sub test()
Dim curSheet As Worksheet, i As Integer, noCol As Integer, noLig As Integer

With ThisWorkbook.Sheets("Recapitulatif")
    'nettoyer la fiche "Recapitulatif"
    .Range("3:" & .Cells(.Rows.Count, 1).End(xlUp).Row).ClearContents
    noLig = 3
    
    'parcourir toutes les feuilles du classeur
    For Each curSheet In ThisWorkbook.Worksheets
        'si on n'est pas sur la feuille "Recapitulatif"
        If curSheet.Name <> .Name Then
            'récupérer le no de colonne de la feuille courante dans la feuille "Recapitulatif"
            noCol = .Range("1:1").Find(curSheet.Name).Column
            'pour chaque entrées de la feuille courante
            For i = 3 To curSheet.Cells(curSheet.Rows.Count, 1).End(xlUp).Row
                .Cells(noLig, 1).Value = curSheet.Cells(i, 1).Value
                .Cells(noLig, noCol).Value = curSheet.Cells(i, 2).Value
                .Cells(noLig, noCol + 1).Value = curSheet.Cells(i, 3).Value
                .Cells(noLig, noCol + 2).Value = curSheet.Cells(i, 4).Value
                noLig = noLig + 1
            Next i
        End If
        
    Next curSheet
End With
End Sub

a+

 

[Shamanka]

Re : Suivi immobilier

Bonjour,

Merci beaucoup pour cette réponse c'est parfait juste ce que je voulais 🙂
Mais pour ma culture personnelle, il n'y a pas une facon "automatique" de le faire (style tableau croisé, consolidation ou autre) ?