XL 2019 recuperer données sur plusieurs feuilles

[nico131]

Bonjour,

Je souhaite créer un fichier avec des onglets par jour, indiquant plusieurs taches.

En fin de semaine, je souhaite avoir un fichier recap.

Existe t'il une formule qui puisse recuperer des données sur un tableau sur la même plage de plusieurs onglets.

J’espère avoir était clair

au plaisir de lire vos réponses

J'ai joint un fichier

 

[Franc58]

Bonjour, je ne suis pas un spécialiste des formules, je te propose donc une macro vba à insérer dans un module standard:

Sub CopierDonnees()
    Dim ws As Worksheet
    Dim wsSynthese As Worksheet
    Dim LigneDepart As Long
    Dim DerniereLigne As Long

    Set wsSynthese = ThisWorkbook.Sheets("synthese")

    ' On démarre en ligne 4 dans la feuille de synthèse
    LigneDepart = 4
   
    ' Boucle à travers chaque feuille
    For Each ws In ThisWorkbook.Sheets
        ' Vérifier si la feuille n'est pas la feuille de synthèse
        If ws.Name <> "synthese" Then
            ' Trouver la dernière ligne dans la colonne A de la feuille actuelle
            DerniereLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

            ' Copier les données de la feuille actuelle à la feuille de synthèse
            ws.Range("A3:A" & DerniereLigne).Copy wsSynthese.Range("A" & LigneDepart)

            ' Mettre à jour la ligne de départ pour la prochaine copie
            LigneDepart = wsSynthese.Cells(wsSynthese.Rows.Count, "A").End(xlUp).Row + 1
        End If
    Next ws
   
End Sub

 

[nico131]

Bonjour,

Je te remercie, de mon coté je suis pas un expert en vba. Mais je vais essayer d'utiliser ta solution

 

[nico131]

j'ai réussi à utiliser votre macro je vous remercie.
Est ce que je peux faire une exécution automatique de cette macro

 

[danielco]

Bonjour,
En créant toutes les feuilles de la semaine :

=LET(tbl;ASSEMB.V(lundi:samedi!A2:A100);UNIQUE(FILTRE(tbl;tbl<>0)))

Daniel

 

[Franc58]

j'ai réussi à utiliser votre macro je vous remercie.
Est ce que je peux faire une exécution automatique de cette macro

Tu peux l'appeler dans l'évènement Workbook_Open pour l'exécuter à l'ouverture du classeur par exemple.

 

[nico131]

Bonjour,
En créant toutes les feuilles de la semaine :

=LET(tbl;ASSEMB.V(lundi:samedi!A2:A100);UNIQUE(FILTRE(tbl;tbl<>0)))

Daniel

bonjour,
merci pour ta reponse. Je ne comprend pas votre formule. si je rajoute une action la formule ne font plus

 

[danielco]

Bonjour,
J'ai ajouté "aaa" le lundi et "bbb" le mardi. :

Sur la fefuille Synthèse :

Daniel

 

[nico131]

 

[nico131]

voici ce que j'ai moi

 

[danielco]

C'est parce que tu n'utilises pas Microsoft 365 comme tu l'as indiqué :

 

[nico131]

excat, je suis a mon domicile, et a mon boulot j'ai bien le 365.

Désolé de ce malentendu

 

[nico131]

bonsoir,

Est ce que par hazard vous avez une formule pour excel 2019 ?

 

[danielco]

Malheureusement, non. Je pense que la macro est la bonne solution.

Daniel