XL 2021 Feuille filtrée, ne trier que les lignes visibles

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un bon WE

La petite que samedi lol

Ma feuille est filtrée et je n'arrive pas à "placer .SpecialCells (xlCellTypeVisible)"
pour ne trier que les lignes visibles

Voici le code

    With ActiveSheet 'Appels 'CodeName
        If .FilterMode Then .ShowAllData 'si la feuille est filtrée
            With .Rows("7:" & .Range("a65536").End(xlUp).Row)
            If .Row < 7 Then Exit Sub 'sécurité
            .Sort .Columns(10), xlAscending, Header:=xlNo
            End With
    End With

Pourriez-vous me dire où placer le ".SpecialCells (xlCellTypeVisible)" ?
Si besoin, je ferai un p'tit fichier test.

Merci à toutes et à tous
Je continue mes tâtonnements...

 

[Usine à gaz]

Re-Vjr
J'ai avancé sur mon besoin.
Voici le fichier test

 

[Usine à gaz]

Ce qu'il me reste à faire est de l'intégrer à ce code :

With ActiveSheet 'Appels 'CodeName
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .Rows("7:" & .Range("a65536").End(xlUp).Row)
If .Row < 7 Then Exit Sub 'sécurité
.Sort .Columns(10), xlAscending, Header:=xlNo
End With
End With

Ce que je ne sais pas faire pour l'instant

 

[job75]

Bonjour Lionel,

Là tu te lances dans un truc merdouillard, quelle en est la raison ???

A+

 

[Usine à gaz]

Bjr Gérard

Dans mon fichier de travail "feuilles filtrée", j'ai besoin de ne trier que les lignes visibles.

 

[Usine à gaz]

Mais peut-être que le code de mon fichier du #post2 est suffisant ?

Sub lignesVisibles()
Feuil2.Range("A3:zz" & Range("a65536").End(xlUp).Row).SpecialCells(xlVisible).Select: Selection.Copy
'Selection.SpecialCells(xlCellTypeVisible).Select
End Sub

En enlevant le "Selection.Copy" et à complèter pour trier...
Je testerai dès que je peux

 

[job75]

Bjr Gérard

Dans mon fichier de travail "feuilles filtrée", j'ai besoin de ne trier que les lignes visibles.

Personne ne fait ce genre de chose.

 

[Usine à gaz]

Mais je ne suis pas "personne" lol
Et voilà, c'est fait et ça fonctionne :

Sub lignesVisibles()
Feuil2.Range("A3:zz" & Range("a65536").End(xlUp).Row).SpecialCells(xlVisible).Select
With ActiveSheet 'Appels 'Code de Gérard
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .Rows("3:" & .Range("a65536").End(xlUp).Row)
If .Row < 3 Then Exit Sub 'sécurité
.Sort .Columns(2), xlAscending, Header:=xlNo
End With
End With
[a1].Select
End Sub

Fichier joint

 

[TooFatBoy]

Bonjour,

[joke du samedi soir]

Là tu te lances dans un truc merdouillard, quelle en est la raison ???

Ah oui, c'est étonnant de sa part.
Espérons que personne ne va l'encourager dans cette mauvaise voie.
[/joke du samedi soir]

 

[Usine à gaz]

Bonjour,

[joke du samedi soir]

Ah oui, c'est étonnant de sa part.
Espérons que personne ne va l'encourager dans cette mauvaise voie.
[/joke du samedi soir]

oui mais j'y suis arrivé, ça fonctionne et sans modifier le code de Gérard

 

[TooFatBoy]

Mais je ne suis pas "personne" lol

Toutafé, et c'est parfait ainsi !

Et voilà, c'est fait et ça fonctionne

Tu m'épates mon Yoyo !
Félicitations !!!

 

[job75]

Bah Lionel le code que tu montres affiche tout avant de trier.

Maintenant si les lignes visibles sont toutes jointives on peut toujours faire un tri dessus

Salut TooFatBoy.

 

[Usine à gaz]

Toutafé, et c'est parfait ainsi !



Tu m'épates mon Yoyo !
Félicitations !!!

Y'en a (et avec de bonnes raisons) qui vont se demander où je les entraîne encore une fois lol
Mais NON, cette fois-ci, je pense que c'est tout.
Le fil le plus court de mes fils, enfin j'espère lol

 

[Usine à gaz]

Bah Lionel le code que tu montres affiche tout avant de trier.

Maintenant si les lignes visibles sont toutes jointives on peut toujours faire un tri dessus

Dans mon fichier de travail, elles ne le sont pas mais je vais aussi tester dès que j'ai un moment et je reviens rendre compte

 

[Usine à gaz]

ReBjr Gérard,
Test fait et.....
et....
Nickel ça fonctionne du tonnerre
Youpy de chez Youpy.
Bon sang, je me demande ce qui va me tomber sur la tête lol