Voir le flux RSS

joe.levrai

[VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères

Noter ce billet
par , 07/11/2016 à 23h10 (432 Affichages)
Sujet initial : http://www.developpez.net/forums/d16...-aide-d-macro/

Sur Feuil1, les données commencent en ligne 2 car la ligne 1 contient des en-têtes.
La plage A à F est contigüe.

1) on cherche la première ligne dont la cellule de la colonne C commence par "401" dans la valeur de la cellule.

2) de cette ligne là incluse, et pour toutes les lignes du dessous, on supprime chaque ligne où la cellule de la colonne F est différente des valeurs R et F à la fois.

La fonction Find permet de trouver la cellule de (1).

Le filtre automatique placé en colonne F, utilisant les 2 Criterias en association va masquer les lignes contenant R et F (2).

On part de la cellule du premier point, on sélectionne tout ce qui est en dessous et qui est "visible" sur la feuille, pour en supprimer les lignes intégrales (2 Bis).

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim Cell As Range
    With Feuil1.Cells(1, 1).CurrentRegion
        Set Cell = .Columns(3).Find("401*", , , xlPart)
        If Not Cell Is Nothing Then
            .AutoFilter: .AutoFilter 6, "<>R", xlAnd, "<>F"
            If .Offset(1, 0).SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then
                .Offset(Cell.Row - 1, 0).Resize(.Rows.Count - Cell.Row + 1, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            End If
            .AutoFilter
        End If
    End With
End Sub

Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Viadeo Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Twitter Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Google Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Facebook Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Digg Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Delicious Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog MySpace Envoyer le billet « [VBA-EXCEL]Détection d'une cellule puis suppression des lignes en dessous suivant 2 critères » dans le blog Yahoo

Mis à jour 17/08/2017 à 14h13 par Malick (Ajout balises code)

Catégories
Sans catégorie

Commentaires