Report automatique de plusieurs tableau dans un tableau global

[stf33]

Bonjour,

Je souhaiterais créer un tableau reprenant automatiquement toutes les données de 5 tableaux créés chacun séparéments sur une feuille excel.

Je m'explique:
pour gérer les ventes les commerciaux de ma boite, j'ai créé un fichier excel avec 5 feuilles identiques (soit une pour chaque commercial) avec des colonnes de A à T (N° dossier, client, achat, montant remise etc etc) et une centaine de ligne par commercial représentant chaque dossier.

Je traite chaque fichier individuellement pour des repporting, mais j'aurais besoin pour une étude globale d'avoir un fichier commun qui s'alimente automatiquement sans avoir à reporter deux fois chaque vente (une fois sur la feuille du commercial et une fois sur la feuille globale).

Cela est il possible?
Je vous remercie par avance!!🙂

 

[stf33]

Re : Report automatique de plusieurs tableau dans un tableau global

C'est vrai!
Voici le fichier , je n'ai pas laissé les noms, mais je pense que cela suffit pour comprendre ce que je souhaite faire?
Merci!

 

[DoubleZero]

Re : Report automatique de plusieurs tableau dans un tableau global

Bonjour, stf33, masterdisco, le Forum,

Bienvenue, stf33, sur XLD 🙂.

Un essai en pièce jointe.

 

[stf33]

Re : Report automatique de plusieurs tableau dans un tableau global

Merci DoubleZero mais je ne peux pas voir les modif, j'utilise mac office 2008 il ne lit pas les macro....

 

[DoubleZero]

Re : Report automatique de plusieurs tableau dans un tableau global

Re-bonjour,

... je ne peux pas voir les modif, j'utilise mac office 2008 il ne lit pas les macro....

Dans ce cas, je ne sais que faire 😕.

Si les macros ne peuvent être lues, peuvent-elles être intégrées ???

Dans l'affirmative, voici le code affecté à l'onglet "Global" :

Private Sub CommandButton1_Click()
Call Module1.Report
End Sub

et le code placé dans un module :

Sub Report()

'Adaptation d'un code de Boisgontier

Application.ScreenUpdating = False
Sheets("Global").[A1].CurrentRegion.Offset(1, 0).Clear
For Each s In Array("A", "B", "C", "D", "E")
Sheets(s).[A1].CurrentRegion.Offset(1, 0).Copy Sheets("Global").[A65000].End(xlUp).Offset(1, 0)
Next s
Application.ScreenUpdating = True
End Sub

Bon courage 🙂.