critere de tri

[jean michel]

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

 

[Lord Nelson]

Salut J-Michel,

Essaie ça :

Ligne = ActiveSheet.Range("A65536").End(xlUp).Row + 1

A+
Horatio

 

[jean michel]

bonsoir Lord Nelson

merci pour ta reponse ,mais ce n'ai pas la solution

je ne vois vraiment pas ou ca cloche et je ne peux joindre l'appli 400k

 

[Lord Nelson]

Re J-Michel,

Désolé, je n'avais pas vu ta pièce jointe...
Là ça devrait marcher :

Sub Filtre2()
Dim i As Byte
Dim Ligne As Integer
Dim Temp As String
Range("A1:A5").ClearContents
For i = 1 To Feuil1.AutoFilter.Filters.Count
If Feuil1.AutoFilter.Filters.Item(i).On = True Then
Ligne = ActiveSheet.Range("A5").End(xlUp).Row + 1
Temp = "'" & Feuil1.AutoFilter.Filters.Item(i).Criteria1
If Feuil1.AutoFilter.Filters.Item(i).Operator = 1 Then
Temp = Temp & " et " & Feuil1.AutoFilter.Filters.Item(i).Criteria2
ElseIf Feuil1.AutoFilter.Filters.Item(i).Operator = 2 Then
Temp = Temp & " ou " & Feuil1.AutoFilter.Filters.Item(i).Criteria2
End If
Range("A" & Ligne) = Temp
End If
Next i
End Sub

A+
Horatio

 

[jean michel]

merci beaucoup LORD NELSON de ta collaboration ,mais je viens de trouver mon erreur

je vidais les cellules ou je recuperais les valeurs des criteres en employant ce codeRange("A1:A5")="" au lieu de Range("A1:A5").ClearContents


bonne soiree à toi et au forum