Discussion :

[psylo24]

Bonjour,

j'ai un fichier Exel composé d'une feuille suite à une importation d'une table d'un fichier Access et je voudrais faire du tri dans mes lignes.

Je voudrais faire une macro qui me permette de supprimer les lignes entières dans ma feuille si la cellule de la colonne "VISIBLE" = FAUX et également supprimer les lignes entières dont la valeur de la cellule de la colonne COMMUNE = "Corréze" ou "Charente", ou "Charente Maritime".

Vous trouverez le fichier ici :

Dans mon fichier il n'y a que quelques lignes, or ma feuille contient entre 1000 et 1500 lignes.

Merci d'avance.

[AbsolutAlex]

Bonjour,

J'ai fais le code ci-dessous avec les hypothèses suivantes :
- La colonne VISIBLE est la colonne A
- La colonne COMMUNE est la colonne B
- Le département de la Corrèze est réellement écrit avec un 'é' dans ton fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub sup_lignes()
 
For a = 2 To Range("A10000").End(xlUp).row
    If Range("A" & a) = "FAUX" Then
        Range(a & ":" & a).Select
        Selection.Delete Shift:=xlUp
    ElseIf Range("B" & a) = "Corréze" Or "Charente" Or "Charente-Maritime" Then
        Range(a & ":" & a).Select
        Selection.Delete Shift:=xlUp
    End If
Next
 
End Sub

Il y a peu être plus efficace, car passer sur 1000 ou 1500 lignes, c'est un peu long. Mais le plus facile c'est de faire ça.

A+
Alex

[Kimy_Ire]

Voici le code que je te propose. Pour ma part, celui-ci cherche automatiquement le numéro de colonne sur la ligne 1 qui possède VISIBLE ou COMMUNE.

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
17
18
19
20
Sub Delete()
Dim Tbl(1 To 2) As String
Dim test As Range
 
Tbl(1) = "VISIBLE"
Tbl(2) = "COMMUNE"
 
With Worksheets("Feuil1")
    For i = 1 To UBound(Tbl)
        Set test = .Rows(1).Find(Tbl(i), LookIn:=xlFormulas, lookat:=xlWhole)
        For j = 1 To .Columns(test.Column).Find("*", , , , xlByColumns, xlPrevious).Row
            If UCase(test.Offset(j, 0).Value) = "FAUX" Or test.Offset(j, 0) = "Corrèze" Or test.Offset(j, 0) = "Charente" Or test.Offset(j, 0) = "Charente Maritime" Then
                test.Offset(j, 0).EntireRow.Delete
            End If
        Next j
    Next i
 
End With
 
End Sub

Dis nous si l'un des deux codes te convient !

[psylo24]

Bonjour,

Trés bien vos codes !! j'ai utilisé le second car il cherche automatiquement la bonne colonne qui est plus adapté dans mon cas car j'importe une BDD access donc les colonnes ne sont pas toujours au même endroit !

Encore Merci à vous