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