J
jean michel
Guest
bonsoir a tous
Suite a une idee de MichelXLD pour recuperer les critere de tri choisis lors d'un tri automatique j'ai modifie son code pour avoir les criteres dans les cellule.
Dans l'exemple joint ca marche tres bien mais lorsque je mets mon code sur mon application ,ce code ne veut pas changer de ligne il reste sur ligne 2,
est ce que le code ci dessous est correct ou quelques choses d'autre
merci pour vos reponses
jean michel
Sub Filtre2()
Dim i As Byte
Dim Ligne As Integer
For i = 1 To Feuil1.AutoFilter.Filters.Count
Ligne = ActiveSheet.Range("a5").End(xlUp).Row + 1
If Feuil1.AutoFilter.Filters.Item(i).On = True Then _
Range("a" & Ligne) = Feuil1.AutoFilter.Filters.Item(i).Criteria1
Next i
End Sub
Suite a une idee de MichelXLD pour recuperer les critere de tri choisis lors d'un tri automatique j'ai modifie son code pour avoir les criteres dans les cellule.
Dans l'exemple joint ca marche tres bien mais lorsque je mets mon code sur mon application ,ce code ne veut pas changer de ligne il reste sur ligne 2,
est ce que le code ci dessous est correct ou quelques choses d'autre
merci pour vos reponses
jean michel
Sub Filtre2()
Dim i As Byte
Dim Ligne As Integer
For i = 1 To Feuil1.AutoFilter.Filters.Count
Ligne = ActiveSheet.Range("a5").End(xlUp).Row + 1
If Feuil1.AutoFilter.Filters.Item(i).On = True Then _
Range("a" & Ligne) = Feuil1.AutoFilter.Filters.Item(i).Criteria1
Next i
End Sub