XL 2016 fusionner tableaux avec conditions

myexcel_ à dit:

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

Cliquez pour agrandir...

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

myexcel_ à dit:

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

Cliquez pour agrandir...

Jacky67 à dit:

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

Cliquez pour agrandir...

Jacky67 à dit:

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

Cliquez pour agrandir...

myexcel_ à dit:

oui celui du message 4

Cliquez pour agrandir...

myexcel_ à dit:

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

Cliquez pour agrandir...