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
VB:
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...
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.
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
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
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é.