Supprimer des lignes qui commencent par une donnée précise à l'aide d'une macro

**DINA-Geek** · 07/11/2016, 21h42

Bonjour,

je veux faire une macro qui me permettra de supprimer des lignes sous deux conditions:
condition 1 : les données de la colonne C qui commencent par 401
condition 2 : les données de la colonne F qui sont différente de F et R
Pourriez vous m'aider SPV ?
Mercii d'avance

**joe.levrai** · 07/11/2016, 22h19

Bonjour,

il manque quelques éléments pour bien comprendre
en l'état, je subodore que les données commencent en ligne 2 car la ligne 1 contient des en-têtes et que:

1) on cherche la première ligne dont la cellule de la colonne C commence par "401" (une chiffre ou une chaine de caractère ? dans une formule ou dans une valeur ? J'opte pour la chaine dans une valeur de 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 de R et de F à la fois

La fonction FIND permet de trouver la cellule du premier point

Le filtre automatique placé en colonne F, utilisant les 2 Criteria en association va masquer les lignes contenant R et F
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

Code :

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

Bonne adaptation, c'est très brut

EDIT : une petite sécurité si aucun résultat lors de la phase 2

**DINA-Geek** · 08/11/2016, 08h47

Bonjour
merci pour votre réponse
mais je crois que j'ai mal exprimé ce que je veux
en fait la macro doit supprimer les lignes sur lesquelles les cellules de la colonnes C commmencent par "401" et les cellules de colonnes F ou leurs valeur est différene de R et F