Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 recuperer données sur plusieurs feuilles

nico131

XLDnaute Junior
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
 

Pièces jointes

  • Classeur1.xlsx
    10.6 KB · Affichages: 13

Franc58

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

VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…