Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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...
🙂
 
Trier par date Trier par votes
Ce qu'il me reste à faire est de l'intégrer à ce 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
Ce que je ne sais pas faire pour l'instant 😡
🙂
 
Vote positif 0 Vote négatif
Mais peut-être que le code de mon fichier du #post2 est suffisant ?
VB: 
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 🙂
 
Vote positif 0 Vote négatif
Mais je ne suis pas "personne" lol 🤪
Et voilà, c'est fait et ça fonctionne :
VB: 
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
🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
488
telemarrk
T
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
642
Usine à gaz
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
594
Usine à gaz
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
695
Compte Supprimé 979
C
L
  • Question Question
XL 2016 Trier les lignes
Réponses
5
Affichages
481
labombola46
L
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
418
oguruma
  • Question Question
Microsoft 365 [VBA] Enchaîner déplacer lignes + supprimer les lignes vides.
Réponses
3
Affichages
858
ARMAEL
A
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
1 K
halecs93
D
  • Question Question
Microsoft 365 Dupliquer des lignes dans une autre feuille avec une condition
2
Réponses
26
Affichages
2 K
de_hanstrapp
D
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
S
  • Question Question
Microsoft 365 Erreur d'exécution '91'
Réponses
11
Affichages
780
Staple1600
L
  • Question Question
XL 2019 Excel - utilisation des unbound pour grande base de donnees
Réponses
11
Affichages
912
Lordpeter
L
  • Question Question
XL 2019 Supprimer lignes après échéance
Réponses
2
Affichages
682
KTM
  • Question Question
Microsoft 365 VBA: Filtrer et copier les données
Réponses
10
Affichages
1 K
VBA_dev_Anne_Marie
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
893
MickaeL_D
M
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
  • Résolu(e)
Microsoft 365 Tri sur colonnes définies
Réponses
3
Affichages
604
Usine à gaz
  • Question Question
Microsoft 365 tri trop long
Réponses
14
Affichages
1 K
Usine à gaz
  • Résolu(e)
Microsoft 365 tri feuille
2
Réponses
29
Affichages
3 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…