Macro pour mettre des données à la suite dans un tableau Résolu

Question

Bonjour,

J'aimerais créer une macro qui copie à la suite les données de tableaux d'autre onglet dans un tableau principal.

Je m'explique, il y a un tableau pour chaque equipe : matin, apres midi et nuit et je voudrais que avec une macro on puisse les copier les uns derriére les autres dans un tableau géneral qui regrouperait toute les infos.

je voudrais que à chaque fois, on puisse rajouter à la suite du tableau principal toutes les nouvelles données des tableaux secondaire juste en utilisant cette macro.

Je ne veux pas perdre ces précieuses données et stockés les données des differends jour pour faire un bilan à la fin de l'année.

Le probléme c'est que j'utilise un tableau déroulant et que à chaque cela me le copie aprés mon tableau, le tableau déroulant est tres important car il me permet de voir clair dans cette masse information que va contenir mon classeur.

Pourriez vous m'aider s'il vous plaît ??

Ps: le fichier est en piece jointe sur ce lien : http://forum.excel-pratique.com/excel/macro-pour-mettre-des-donnees-a-la-suite-dans-un-tableau-t64203.html

ccm81 · Answer

Bonjour

On peu bien sûr écrire une macro, mais, ne serait il pas plus simple d'ajouter une colonne "Période" et de se contenter de la seule feuille Récapitulative ?
https://www.cjoint.com/?3ElpHTR2BJl 

Cdlmnt

ccm81 · Answer

2 options ... au moins
Opt1- le transfert se fait lorsque une intervention est inscrite en feuille détail par un double-clic par exemple
Opt2. Le transfert se fait depuis un bloc d'interventions sélectionné d'une façon à préciser
Sinon, il faudrait que tu nous en dise plus sur le scénario envisagé

ccm81 · Answer

Vu ta réponse, je sens que tu dois être un peu Normand ;-)

Plus sérieusement, supposons qu'on choisisse l'option 2 (fin de journée)
Option 2.1. On sélectionne un bloc de lignes (à la main) et on déclenche son transfert
Option 2.2. On déclenche le transfert des interventions effectuées à la date du jour (colonne K)

RQ. C'est quand même à toi de savoir comment tu veux que ça se passe/fasse

Le Pingou · Answer

Bonjour,
Cette petite procédure devrait convenir (test chez moi Ok) :
Sub recapdatafeuilles()
' Nettoyer feuille Journée complète
Range("A5:N" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
For Each sh In Worksheets
    If sh.Name <> "JOURNEE COMPLETE" Then
        deli = sh.Cells(Rows.Count, 1).End(xlUp).Row
        datsh = sh.Range("a4:n" & deli).Value
        ' insérer les data
        ligvide = Cells(Rows.Count, 1).End(xlUp).Row + 1
        Range(Cells(ligvide, 1), Cells(ligvide + UBound(datsh) - 1, 14)) = datsh
    End If
Next sh
End Sub
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour Torre,
C'est vraiment désolant pour les gens qui prennent la peine de vous aider et de ne même pas dire que vous avez la réponse sur un autre forum (Excel Pratique :  15.55 ... !).

Macro pour mettre des données à la suite dans un tableau

5 réponses

Votre réponse

Discussions similaires