VBA - Réaliser un onglet synthèse reprenant les valeurs de chaque onglet

Bonjour,

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 :

Et j’aimerais réaliser une synthèse via une macro comme ceci :

Savais-vous comment je peux procéder svp ? J’ai trouver des macros qui prennent les éléments par ligne mais pas par colonne…

Merci pour votre aide !
Julie

Bonjour,

Un fichier d’exemple nous aidera bien.

Cordialement

Re bonjour Jacquinot,

Oui autant pour moi voici le un exemple type avec un onglet synthèse.

Merci pour ton aide,
Cordialement,
TRAITEMENT_HISTORIAN_TEST SYNTHESE.xlsm (160,8 Ko)

Re,
C’est une synthèse de quelle feuille à quelle feuille ?
Cordialement

Re Jacquinot,

C’est une synthèse de la feuille 3 (après la feuille macro et la feuille synthèse) à la feuille 100.

Cdt,
Encore merci pour ton aide !!

1 « J'aime »

Bonjour,

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)

Cordialement
Will-Fread

Bonjour Jacquinot,

TOP merci beaucoup cette macro correspond exactement à mon besoin!!!

Cordialement

ReBonjour @Julie_LT
N’oublie pas de mettre SOLUTION ! :laughing:

1 « J'aime »

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.