Discussion :

[isarian]

Bonjour,

J'ai une feuille excel avec 7 colonnes et des milliers de lignes, au tant dire que verifier une par une les lignes pour supprimer la ligne précedente si un test est "ok" ce n'est pas faisable.

les lignes contiennent une adress un numero et un index, (entre autre) je dois supprimer toutes les lignes d'une adresse avec le même numéro si et seulement si elle a une ligne contenant un index vide.

Exemple:
Rue de l'enfant 3 N
Rue de l'enfant 3 1 N
Rue de l'enfant 3 A000 N
Rue de l'enfant 3 B000 Y

je dois supprimer toutes ces lignes.

par contre si j'ai

Rue de l'enfant 25 A001
Rue de l'enfant 25 B002
Rue de l'enfant 25 C003
Rue de l'enfant 25 C004
Rue de l'enfant 25 D005

je ne dois pas supprimer. au contraire faut que je traite rue de l'enfant apres dans un autre programme. Donc si possible mettre un marqueur ou autre.

dans le fichier c'est trier par rue (qui est en fait la colonne c) et par numéro et par index (respectivement colonne d et e).

Est ce que c'est faisable?

Merci de votre aide.

[Michel_M]

Bonjour

essaies ces lignes

Code :

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

1
2
fin = Cells(Cells.Rows.Count, 5).End(xlUp).Row
Range("E1:E" & fin).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[isarian]

Cela efface bien les lignes où les index sont null mais cela efface pas les lignes suivant si le numero de la rue est le même

[Michel_M]

Merci pour le temps passé à me répondre

[isarian]

Je viens de voir un autre message via mail je ne l'ai pas vu désoler

Par contre je l'essayerais demain pour voir si cela marche.

En fait la colonne A c'est le code postal
colonne Ble code rue
Colonne C la rue
colonne D le numéro
Colonne E l'index
colonne F y/n
Colonne G c'est une date

Voilà je ne sais pas si cela peut vous aider plus.

Merci déjà beaucoup pour l'aide apporter

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Code :
---------
Option Explicit
Option Base 1
Const dep As Byte = 2
 
Sub selectionner()
Dim plage As Range
Dim fin As Long, c_in As Long, c_out As Long
Dim T_in, T_out
ReDim T_out(3, 1)
 
'mémorisation du tableau à traiter
With Sheets(1)
    fin = .Cells(.Cells.Rows.Count, 3).End(xlUp).Row
    Set plage = .Range(.Cells(dep, 3), .Cells(fin, 5))
End With
T_in = plage
'formation du tableau de restitution
For c_in = 1 To UBound(T_in)
    If Not IsEmpty(T_in(c_in, 3)) Then
        c_out = c_out + 1 'si il existe un index
        ReDim Preserve T_out(3, c_out)
        T_out(1, c_out) = T_in(c_in, 1)
        T_out(2, c_out) = T_in(c_in, 2)
        T_out(3, c_out) = T_in(c_in, 3)
    End If
Next
 
Application.ScreenUpdating = False
With Sheets(2)
    .Cells(dep, 2).Resize(c_out, 3) = Application.Transpose(T_out)
    .Activate
End With
End Sub
---------