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
🙂