Regrouper plusieurs tableaux

H

Hieu

XLDnaute Impliqué

• 2 Novembre 2016

• #2

Salut,

Une solution par macro :

VB:

Sub Macro1()
For Each s In Sheets
If s.Name <> "Recap" Then
    For i = 4 To s.Range("A65000").End(xlUp).Row
        Sheets("Recap").Range("a4").Offset(k, 0) = s.Range("a" & i)
        Sheets("Recap").Range("b4").Offset(k, 0) = s.Range("b" & i)
        Sheets("Recap").Range("c4").Offset(k, 0) = s.Range("c" & i)
        k = k + 1
    Next i
End If
Next s
End Sub

 

Pièces jointes

• Test_recap_v0.xlsm

  25.3 KB · Affichages: 56

Vote positif 0 Vote négatif

J

JP54

XLDnaute Junior

• 2 Novembre 2016

• #3

C'est parfait, c'est tout à fait ce que je voulais.
Merci beauciup

 

Vote positif 0 Vote négatif

J

JP54

XLDnaute Junior

• 3 Novembre 2016

• #4

J'ai encore une petite question.
Sur le fichier je viens de rajouter deux pages, mais je voudrais que la page ''Base_1 et Base_2'' ne figurent pas dans la page récap. Comment modifié le code pour que les tableaux ne figurent pas dans la page récap.
Et je supprime une ligne dans la Base_1, sera-t-il supprimer dans mon fichier récap.

 

Pièces jointes

• Test_recap_v0-1.xlsm

  23.5 KB · Affichages: 46

Vote positif 0 Vote négatif

J

JP54

XLDnaute Junior

• 3 Novembre 2016

• #5

Personne pour m'aider?

 

Vote positif 0 Vote négatif