GADENSEB
XLDnaute Impliqué
Hello Le Forum,
Je cherche à faire un filtre avancé à partir d'une bdd inclue dans l'onglet "COMPTES"
en récupérant les données jusqu'a la derniére ligne non vide dans la colonne A
du coup je me fais un "lastligne" mais cela beug ici
qqn aurait une idée ?
je pense que c'est dans la formulation que cela cloche
Bon am
Seb
Je cherche à faire un filtre avancé à partir d'une bdd inclue dans l'onglet "COMPTES"
en récupérant les données jusqu'a la derniére ligne non vide dans la colonne A
du coup je me fais un "lastligne" mais cela beug ici
Code:
Sheets("COMPTES").[A1:N&LastLigne].AdvancedFilter _
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastLigne As Integer
LastLigne = Sheets("COMPTES").Range("a65536").End(xlUp).Row
Sheets("COMPTES").[A1:N&LastLigne].AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:GN2"), _
CopyToRange:=Range("D6:I6"), _
Unique:=False
Range("a7:n & LastLigne").Sort key1:=Range("f6"), order1:=xlAscending
End Sub
qqn aurait une idée ?
je pense que c'est dans la formulation que cela cloche
Bon am
Seb