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]

Toutafé, et c'est parfait ainsi !



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

Moi aussi je "mes p'tites papattes".....
J'ai compris le pourquoi...
J'ai remplacé ce matin le cognac par le café au lait

 

[TooFatBoy]

J'ai remplacé ce matin le cognac par le café au lait

C'est dommage, mais ça semble terriblement efficace !

 

[Usine à gaz]

C'est dommage, mais ça semble terriblement efficace !

Oui, j'me sens "nostalgique" mais les idées sont claires

 

[Usine à gaz]

Bon...
Il faut quand même que je vous dise.
Depuis 12 ans, Mon cher Gérard et les autres m'ont donné tellement de codes que je fini par avoir pas mal de sujets traités.
Je conserve tout et j'en ai pour un total d'environ 30Go.
Sans tout ces codes que j'ai appris à "bricoler", je ne pourrais pas travailler.

Je ne sais même plus comment dire merci

 

[Usine à gaz]

Bon, ben... Ce ne sera pas le fil le plus court sniff

 

[TooFatBoy]

Je conserve tout et j'en ai pour un total d'environ 30Go.

30 Go de codes proposés !?!

Mais t'es un dingue man !

 

[Usine à gaz]

30 Go de codes proposés !?!

Mais t'es un dingue man !

C'est possible lol

 

[Usine à gaz]

Pendant la guerre, maman remplissait ses armoires dès qu'elle pouvait.
J'ai gardé cette habitude

 

[TooFatBoy]

Bon, ben... Ce ne sera pas le fil le plus court sniff

Arf, dommage. Je voulais tellement y croire (et là c'est pas une joke du samedi soir).

Suis déçu, mais je sais que tu vas trouver une solution.
Je te souhaite sincèrement bonne chance mon Yoyo.


Tschüss

 

[Usine à gaz]

Arf, dommage. Je voulais tellement y croire (et là c'est pas une joke du samedi soir).

Suis déçu, mais je sais que tu vas trouver une solution.
Je te souhaite sincèrement bonne chance mon Yoyo.


Tschüss

Merci à toi

 

[job75]

Bon moi aussi j'ai testé.

Et je (re)découvre que dans un tri les lignes masquées ne sont pas triées.

Qu'elles soient masquées par un filtre ou par une hauteur de ligne nulle.

Il n'y a donc rien de spécial à faire, seules les lignes visibles sont triées.

 

[Usine à gaz]

Re-Bjr gérar
C'est bizarre car je viens de refaire un test sans le code
"ActiveSheet.Range("A3:zz" & Range("a65536").End(xlUp).Row).SpecialCells(xlVisible).Select"
avant ton code de tri.
Et ça ne tri pas.
Très curieux.
C'est d'ailleurs pour cela que j'ai cherché un code pour ne trier que les lignes visibles

 

[job75]

Mon post #26 est très clair mais relis-le soigneusement.

 

[Usine à gaz]

Re-Gérard
Oui j'ai bien lu mais bizarrement, dans mon fichier de travail, ça ne tri pas les lignes visibles.
Je regarderai encore d'où ça peut bien provenir dans mon Usine à Gazoline

 

[TooFatBoy]

Et je (re)découvre que dans un tri les lignes masquées ne sont pas triées.

Effectivement, maintenant que tu le dis, je crois me rappeler que j'avais rencontré ce problème (pour moi c'était un problème), que j'étais donc obligé de défiltrer, trier, puis refiltrer. Du coup j'avais été obligé de chercher comment sauvegarder les critères de filtrages de toutes les colonnes, et je ne sais même plus si j'avais réussi mais ce qui est sûr c'est que j'avais galéré.