Microsoft 365 Filtrage colonne

DavidMM

XLDnaute Nouveau
Bonjour,

Je souhaiterai faire un filtrage par colonne et avoir la ligne juste au dessus.

1 J'ai mon fichier actuel - Onglet n°2
Je voudrai filtrer la colonne F (que les X)

2 j'obtiens l'onglet n°3: Filtrage Col F

3 Ce que je veux c'est le filtrage Col F avec la ligne au dessus
Onglet n°4 Resultat

4 Si possible d'avoir le meme filtrage avec la ligne au dessus pour la meme operation (colonne i)
Les celulles vertes avec une croix
Onglet n°5 resultat
 

Pièces jointes

  • Planning Paris(1).xlsm
    53.9 KB · Affichages: 11
Solution
Les macros ne sont pas très rapides car les lignes sont copiées une par une pour copier les formats.

Pour tester j'ai copié la plage A2:N490 du tableau source sur 4890 lignes.

Chez moi sur Win 11 - Excel 2019 les macros s'exécutent en 2,6 et 1,8 seconde.

job75

XLDnaute Barbatruc
Bonsoir DavidMM,

Votre fichier en retour avec cette macro dans le code de la feuille "n°4 Resultat" :
VB:
Private Sub Worksheet_Activate()
Dim col%, i&, n&
col = 6 'colonne F des critères, à adapter
Application.ScreenUpdating = False
Range("A2:N" & Rows.Count).Delete xlUp 'RAZ
With Sheets("n°2  mon ficher actuel").[A1].CurrentRegion
    For i = 2 To .Rows.Count
        If .Cells(i, col) <> "" Then
            If i > 2 And .Cells(i - 1, col) = "" Then
                n = n + 2 'avec 1 ligne de séparation
                .Rows(i - 1).Copy Cells(n, 1) 'copie la ligne précédente
            End If
            n = n + 1
            If n = 1 Then n = 2 'sécurité
            .Rows(i).Copy Cells(n, 1) 'copie la ligne courante
        End If
    Next
End With
End Sub
Elle se déclenche quand on active la feuille.

Macro identique dans la feuille "n°5 resultat" avec col = 9.

A+
 

Pièces jointes

  • Planning Paris(1).xlsm
    60.1 KB · Affichages: 10
Dernière édition:

job75

XLDnaute Barbatruc
Les macros ne sont pas très rapides car les lignes sont copiées une par une pour copier les formats.

Pour tester j'ai copié la plage A2:N490 du tableau source sur 4890 lignes.

Chez moi sur Win 11 - Excel 2019 les macros s'exécutent en 2,6 et 1,8 seconde.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG