Discussion :

[serir22]

Bonjour ,

J'ai deux tableaux sur deux feuille "project1" et "project2" et de mêmes entêtes, je voulais transférer leurs données sur une troisième feuille nommée "Archive" mais pas toutes les données seulement en se basant sur le mot "delivered" qui est à saisir sur la colonne Status.

J'aimerai bien faire ça sur le ThisWorkbook avec : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range).

Vous trouvez ci-joint le fichier.

Merci pour votre aide.

[Menhir]

Tu récupères la ligne courante avec la propriété Row appliquée à Target.
Avec un If, tu vérifies si la cellule de cette ligne pour la colonne concernée contient "devivered".
Si c'est le cas, tu fais un Copy sur la ligne courante Targer.EntireRow et un PasteSpecial sur la feuille de destination, en repérant la dernière ligne avec une propriété End(xlUp).

[serir22]

Tu récupères la ligne courante avec la propriété Row appliquée à Target.
Avec un If, tu vérifies si la cellule de cette ligne pour la colonne concernée contient "devivered".
Si c'est le cas, tu fais un Copy sur la ligne courante Targer.EntireRow et un PasteSpecial sur la feuille de destination, en repérant la dernière ligne avec une propriété End(xlUp).

J'ai fait un de modification sur ma vba (sur workbook), ensuite j'ai saisi sur les deux feuilles projet1 et projet2 ça fait le transfert mais avec des doublons, ci-joint la pièce jointe.



Merci beaucoup pour l'aide

[serir22]

Bonjour ,

Voilà j'ai trouvé la solution à ma question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Name = "Archive" Then
    lastcolumn = Cells(1, Columns.Count).End(xlToLeft).Column
    If Sh.Cells(Target.Row, 3) = "delivered" And Sh.Cells(Target.Row, lastcolumn) <> "" Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, lastcolumn)).Copy _
        Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
End If
End Sub