Je possède un fichier excel avec plusieurs onglets et je souhaiterais réaliser un onglet synthèse en Vba permettant de regrouper toutes les colonnes de chaque onglet sur une même feuille.
Chaque onglet possède une colonne date avec des valeurs associées comme ceci :
voici ce que j’ai testé sur les 24 feuilles après la feuille synthese:
Sub testcopie()
Dim a As Integer
a = 24
For b = 3 To a
Sheets(b).Select
Range("b1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Wend
ActiveCell.PasteSpecial (xlPasteAll)
Next
Application.CutCopyMode = False
End Sub
La valeur est sur le variable a
j’espere que cela repondra a votre question.
PS : j’ai pas mis toutes les feuilles car la structure des autres feuilles est différente aux feuilles en vert. TRAITEMENT_HISTORIAN_TEST SYNTHESE.xlsm (194,8 Ko)