XL 2019 recuperer données sur plusieurs feuilles

F

Franc58

XLDnaute Occasionnel

• 13 Janvier 2024

• #2

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

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #3

Bonjour,

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

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #4

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

 

Pièces jointes

• Classeur1.xlsm

  25.4 KB · Affichages: 1

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 14 Janvier 2024

• #5

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

VB:

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

Daniel

 

Pièces jointes

• Classeur1(2).xlsx

  17.9 KB · Affichages: 6

Vote positif 0 Vote négatif

F

Franc58

XLDnaute Occasionnel

• 14 Janvier 2024

• #6

nico131 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #7

danielco à dit:

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

VB:

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

Daniel

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 14 Janvier 2024

• #8

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



Sur la fefuille Synthèse :


Daniel

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #9

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #10

voici ce que j'ai moi

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 14 Janvier 2024

• #11

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

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #12

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

Désolé de ce malentendu

 

Vote positif 0 Vote négatif

N

nico131

XLDnaute Junior

• 14 Janvier 2024

• #13

bonsoir,

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 15 Janvier 2024

• #14

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

Daniel

 

Vote positif 0 Vote négatif