XL 2016 fusionner tableaux avec conditions

[myexcel_]

Bonjour

j'ai besoin de votre aide, j'aimerai exporter les données des feuilles (march1, pdv1, magasin et depôt) vers la feuille envoi mais uniquement qui ont le statut "en cours" de la colonne S....voir PJ
Les tableaux ont les mêmes nombre et titre de colonnes ...il s'agit de noter que les tableaux reçoivent quotidiennement des données.
C'est comme fusionner les lignes des tableaux contenant le mot "en cours"

Merci

 

[Hasco]

Bonjour,

En utilisant les tableaux structurés (Insertion/Tableau) et une requête powerQuery (inclus dans xl2016)
ça donne ce que vous trouverez dans le classeur joint. Vous n'aurez plus qu'à faire un click-droit sur une cellule du tableau d'envoi et choisir 'Actualiser'.

Cordialement

 

[myexcel_]

merci...c pas ça mon objectif....je cherche une macro pour faire l'exportation de données. ...car tous les tableaux seront alimentés quotidiennement pas des données (des centaines)...donc je veux juste un click sur macro pour l'eport

 

[Jacky67]

Bonjour

j'ai besoin de votre aide, j'aimerai exporter les données des feuilles (march1, pdv1, magasin et depôt) vers la feuille envoi mais uniquement qui ont le statut "en cours" de la colonne S....voir PJ
Les tableaux ont les mêmes nombre et titre de colonnes ...il s'agit de noter que les tableaux reçoivent quotidiennement des données.
C'est comme fusionner les lignes des tableaux contenant le mot "en cours"

Merci

Bonjour à tous
Avec la mise à jour à la sélection de la feuille "envoi"
Dans le module de la feuille "envoi"

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, Plage
    Feuil5.Range("$A$2:$V" & Rows.Count).Clear
    For Each Sh In Sheets(Array("march 1", "pdv1", "magasin", "depôt"))
        If Sh.FilterMode Then Sh.ShowAllData
        Set Plage = Sh.UsedRange
        Plage.AutoFilter Field:=19, Criteria1:="en cours"
        On Error Resume Next ' si filtre vide
        Plage.Offset(1).Resize(Plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil5.Range("a" & Feuil5.UsedRange.Rows.Count + 1)
        On Error GoTo 0
        Plage.AutoFilter
    Next
End Sub

 

[Hasco]

Re,

Exporter vers quoi, comment etc....
Si c'est un fichier excel, la solution PQ est valide également. Il suffit de faire la requête à partir du fichier d'export.

Je note toutefois votre demande qui était :

j'ai besoin de votre aide, j'aimerai exporter les données des feuilles (march1, pdv1, magasin et depôt) vers la feuille envoi

Bonne soirée

 

[myexcel_]

Bonjour à tous
Avec la mise à jour à la sélection de la feuille "envoi"
Dans le module de la feuille "envoi"

je n'ai pas bien saisi comment se fait l'export des données

 

[Jacky67]

RE..
Il n'y a pas d'export de saisie
Dans ma proposition, en cliquant sur la feuille "envoi" il y a la copie des feuilles concernées contenant "en cours" en colonne S.
La mise à jour se fait à chaque sélection de cette feuille.

 

[myexcel_]

Re
j'ai cliqué sur la feuille envoi comme tu as dis...mais je ne trouve pas les données dedans

 

[Jacky67]

Re..
Ca c'est pour le moins …..Bizarre
Dans le classeur que j'ai joint ????

 

[myexcel_]

Re..
Ca c'est pour le moins …..Bizarre
Dans le classeur que j'ai joint ????

oui celui du message 4

 

[myexcel_]

juste une précision...j'aimerais que les données soient juste copiées vers la feuille envoi et non export. ...les feuilles doivent gardées leurs données

 

[Jacky67]

oui celui du message 4

Moi j'ai ceci

 

[Jacky67]

juste une précision...j'aimerais que les données soient juste copiées vers la feuille envoi et non export. ...les feuilles doivent gardées leurs données

C'est tout à fait ce que fait ma proposition...
Celle de Roblochon aussi d'ailleurs sur xl2016

 

[Jacky67]

J'ai l'impression que tu mélanges "Fusionner" ,"Exporter", alors que tu ne souhaites qu'une simple copie.

 

[myexcel_]

ah cette fois ça marche ...merci beaucoup jacky et aussi Roblochon pour votre aide. je vais mettre ça au propre

Edit; oui c ça jacky juste une copie des données et non export et fusion.
la feuille envoi servira à relancer la clientèle