Bonjour,
Je reviens vers vous avec le problème suivant :
Mon filtre avancé fonctionne en ce basant sur les numéros des feuilles en Annexe et arrive donc à fonctionner, afin de me rapporter les donner de tout les échéanciers dans un tableau de relance. Selon le critères réglé="Non". Mais voilà lorsque je déclenche la Macro les informations de relance tel que les numéros, les commentaire ect... ( Les 4 dernières colonnes du tableau ) , qui sont des données qui ne sont pas transférer par la macro et qui sont donc "définitivent" s'effacent.
Y a t-il un moyen de faire en sorte que ces données ne puissent pas s'effacer?
Voici le Code de la Macro :
Sub FILTREAVANCE()
Application.ScreenUpdating = False
Dim cellule As Variant, plage As Range, i As Integer, Nbfeuilles As Integer
Set plage = Feuil7.Range("A1", Feuil7.Range("G" & Rows.Count).End(xlUp)).Rows
Nbfeuilles = Feuil8.Range("K16").CurrentRegion.Count
For i = 1 To 1
Sheets("RELANCE 1").Select
Sheets(i).Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
("ANNEXE").Range("A1:A2"), CopyToRange:=plage, Unique _
:=False
Next
For i = 2 To Nbfeuilles
cellule = Feuil7.Range("A" & Rows.Count).End(xlUp).Rows(2).Address
Feuil7.Range("A1:K1").Copy Feuil7.Range(cellule)
Sheets(i).Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _
("ANNEXE").Range("A1:A2"), CopyToRange:=Range(cellule & ":G60"), Unique _
:=False
Range(cellule).EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub
Je vous joins le Fichier .
Je débute tout juste en VBA et visiblement on n'apprend pas à coder en une journée xD... Enfin du coup j'ai eu de l'aide sur un Forum d'ou ce code générer.
Merci d'avance de votre aide