Couper Coller dans onglets d'apres une table

[chrisdu73]

Bonjour à vous tous,
j'ai un petit problème avec deux fichiers.
Je n'arrive pas a effacer des lignes d'un fichier (BASE) en fonction d'un code qui se trouve dans une table sur une autre fichier (TABLE).
Les lignes effacer devront être copier dans le fichier initial mais dans un onglet différent portant le nom de se code.
J'aurai bientôt fini mon projet grâce a vous tous

 

[chrisdu73]

Re : Couper Coller dans onglets d'apres une table

J'ai trouvé ce code, mais comment l'adapter à mon cas ?

Dim h As Long
Dim Plage As Range
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "CUT"
Set Plage = Range("C2", Range("C65536").End(xlUp))
For h = Plage.Cells.Count To 1 Step -1
If Plage.Cells(h).Value = "XXX" Then 'XXX devant se trouver dans le fichier TABLE
With Plage.Cells(h).Resize(, 10)
.Copy Sheets("CUT").Range("A65536").End(xlUp)(2) 'la copy devrait se retrouver dans un onglet portant le nom du code
.Delete xlShiftUp
End With
End If
Next
Application.CutCopyMode = False

 

[chrisdu73]

Re : Couper Coller dans onglets d'apres une table

Personnes pour un petit help !

 

[chrisdu73]

Re : Couper Coller dans onglets d'apres une table

Je n'arrive toujours pas à faire que ça marche.
Je vous envi tous

 

[chrisdu73]

Re : Couper Coller dans onglets d'apres une table

Apparemment le sujet n’intéresse personnes ?
A peu prêt la même demande ici https://www.excel-downloads.com/thr...pier-coller-creation-nouvelle-feuille.173023/ , mais pourquoi personnes ?
Est ce dans la formulation de la demande ?

 

[chrisdu73]

Re : Couper Coller dans onglets d'apres une table

Désoler de relancer mais je ne trouve toujours pas une solution à mon problème.
J'ai beau rechercher dans les posts mais j'arrive pas à adapter