Discussion :

[AliochaBada]

Bonjour
Je galere pas mal pour supprimer des lignes dont la colonne H ne contient pas la Valeur1 ou la Valeur2.
Option 1 (If...Then...)
J'avais commencé par un IF ne contient pas THEN supprime la ligne,
mais le code met trop longtemps pour tester les conditions sur plusieurs dizaines de milliers de lignes.
Option 2 (Filtre et supprimer lignes masquees)
J'aimerais alors essayer de filtrer les données des lignes contenant cette fois Valeur1 et valeur2, recuperer leur nombre pour mon historique et controle, et supprimer ensuite ces memes lignes.
J'ai un souci pour recuperer le nombre de lignes contenant Valeur1 et Valeur2 et le mettre dans une variable. J'utilise SubTotal mais j'aimerais enregistrer les sous totaux dans une variable, et pas les afficher au milieu des lignes...Je ne vois pas comment faire.
Mon code est comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   'Filtrer les lignes au statut Annulé et Rejeté
 
        'Appliquer le filtre automatique si desactivé
        Worksheets("Request").Activate
        If Worksheets("Request").AutoFilterMode = False Then
        Worksheets("Request").Range("A6:AO6").AutoFilter
        End If
        MsgBox ("Le filtre automatique est actif")
 
        'Trier les lignes par Statut
        Worksheets("Request").Range("A6:AO6").AutoFilter Field:=10, Criteria1:="Rejetée", Operator:=xlOr, Criteria2:="Annulée"
 
        'Selectionne les lignes filtrées
        Worksheets("Request").Range("A6:AO6").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Subtotal 10, xlCount, 10, True, , xlSummaryBelow

Je suis pas sure de bien m'y prendre, quelqu'un saurait me dire comment recuperer ces sous totaux dans une variable ?
D'avance merci beaucoup

[AliochaBada]

Bon j'ai laissé tomber, c'etait pas la bonne maniere de faire je crois.
Trop galere de recuperer le dernier sous total (somme des autres sous totaux).

Je me suis contenté de recupere le nombre d'occurence pour chaque valeur avant d'appliquer le filtre avec Application.CountIf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 'Recuperer le N de la derniere ligne de requests
    Range("A7").Select
    Range(Selection, Selection.End(xlDown)).Select
    DerLigReqVar = Selection.Rows.Count
    DerLigReqVar = DerLigReqVar + 6
 
 'Recuperer le NB de lignes au statut 'Annulée ou 'Rejetée
    Range("J7:J" & DerLigReqVar).Select
    SsTotLigAnnuleeVar = Application.CountIf(Selection, "Annulée")
    MsgBox ("Le nombre de lignes au statut Annulée est de : " & SsTotLigAnnuleeVar)
    SsTotLigRejeteeVar = Application.CountIf(Selection, "Rejetée")
    MsgBox ("Le nombre de lignes au statut Rejetée est de : " & SsTotLigRejeteeVar)
    SsTotLigFiltrVar = SsTotLigAnnuleeVar + SsTotLigRejeteeVar