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

Usine à gaz

XLDnaute Barbatruc
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

Usine à gaz

XLDnaute Barbatruc
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

Usine à gaz

XLDnaute Barbatruc
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

Usine à gaz

XLDnaute Barbatruc
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

  • lignes visibles selection.xlsm
    338.7 KB · Affichages: 4
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Microsoft 365 Ne lire que les lignes filtrées visibles d'un tableau structuré en vba
2
Réponses
24
Affichages
556
treza88
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
300
NONO14
N
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
543
Phil69970
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
582
Usine à gaz
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
529
Usine à gaz
  • Question
XL 2016 Ajuster les lignes au Contenu
Réponses
4
Affichages
467
KTM
  • Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
370
Jojo973
  • Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
1 K
Jouxte
B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
537
Compte Supprimé 979
C
  • Question
Microsoft 365 [VBA] Enchaîner déplacer lignes + supprimer les lignes vides.
Réponses
3
Affichages
795
ARMAEL
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…