Discussion :

[nonesofar]

Bonjour les amis,

J'ai un programme à éditer mais je m'embrouille les pinceaux.

Je dois supprimer des doublons jusque la vous allez me dire facile , mais la ou je cale c'est que je dois faire une suppression lorsqu'un cas précis se présente.

Ci-joint le fichier pour mieux vous éclairer.

La règle que je dois éditer :

Si doublon en colonne Q et col J la valeur de la cellule commence par "DZ" (cellule en rouge) et que la ligne en dessous i-1 il y à la valeur "FRMRS" (cellule en orange) alors on supprime la ligne qui commence par "DZ" et ainsi de suite.


Voila j’espère être clair. L'objectif est de supprimer les lignes qui contiennent les cellules en rouge dans la colonne J. Je préfère tester la macro sur un petit programme mais le fichier de travail fait 3000 lignes donc je vous épargne lancement de macro trop longue ,mais le programme doit quand être capable de traiter de grandes quantités de lignes

Merci d'avance,

Bonne fin de w-k.

[geogeo70]

bonsoir,

Si j'ai bien compris ton problème, voilà un code qui semble répondre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sub clearVbis()
    Dim numLigne As Long, nbLignes As Long
 
 
    nbLignes = Cells(Range("A:A").Count, 10).End(xlUp).Row
 
    For numLigne = 2 To nbLignes - 2
       If Left(Cells(numLigne, 10), 2) = "DZ" And Cells(numLigne + 1, 10) = Cells(numLigne, 10) And _
          Cells(numLigne + 2, 10) = "FRMRS" And Cells(numLigne, 17) = Cells(numLigne + 1, 17) Then
                                Rows(numLigne + 1).EntireRow.Delete
       End If
    Next numLigne
 
    End Sub

bien cordialement

geogeo

[casefayere]

Bonsoir geogeo70, nonesofar, le forum

geogeo70, sans regarder plus loin, quand tu proposes :

Code :

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

1
2
3
.......
For numLigne = 2 To nbLignes - 2
.....

si on supprime des lignes, on commence la boucle par la fin donc

Code :

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

1
2
3
.......
For  numLigne = nbLignes To 2 Step -1
.....

en consequence, le reste est à revoir
perso, je verrais le code comme ça

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
Sub clearV4()
Dim rebalayer As Boolean, Dcel As Long, x As Long, y As Long, Tb, Dbl As Object, Result()
Dim a As Long
Set Dbl = CreateObject("Scripting.Dictionary")
With Sheets("test") 'choisir la bonne feuille
  Dcel = .Range("Q" & .Rows.Count).End(xlUp).Row
  Tb = .Range("A2", "AA" & Dcel)
  For x = 1 To UBound(Tb)
    Dbl(Tb(x, 17)) = ""
  Next x
End With
ReDim Result(1 To Dbl.Count, 1 To UBound(Tb, 2))
y = 0
For x = 1 To UBound(Tb, 1) - 1
  If Tb(x, 17) = Tb(x + 1, 17) And Tb(x, 10) Like "DZ*" Then
  Else
    y = y + 1
    For a = 1 To UBound(Tb, 2)
      Result(y, a) = Tb(x, a)
    Next a
  End If
Next x
'ci=dessous, attention de bien choisir la feuille de destination
Sheets("test").Range("A2", "AA" & Dcel).Clear
Sheets("test").Range("A2").Resize(UBound(Result, 1), UBound(Result, 2)) = Result
End Sub

bonne nuit à tou(te)$

[Philippe Tulliez]

Bonjour,
Qu'il s'agisse d'exporter ou de supprimer des lignes d'une liste de données suivant critères, le filtre avancé peut être une excellente solution
Pour en savoir plus, lecture du tutoriel Les filtres avancés ou élaborés dans Excel

Donc, en utilisant le critère nommé
Sans VBA, la formule sera

Code :

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

=ET(NB.SI($Q$2:$Q$3000;Q2)>1;GAUCHE(J2;2)="DZ";J3="FRMRS")

Avec VBA et la méthode AdvancedFilter avec la même formule mais traduite. Soit

Code :

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

=AND(COUNTIF($Q$2:$Q$37,Q2)>1,LEFT(J2,2)="DZ",J3="FRMRS")

Un exemple Excel VBA – Supprimer des lignes suivant critères avec la méthode AdvancedFilter

[nonesofar]

Merci aux membres pour votre retour.

Je vais analyser vos propositions . En fait je fais déjà un filtre personnalisé avant la suppression des lignes. Pour avoir les doublons triés en colonne Q et en J. Afin d'avoir DZ au dessus de FRMRS, du coup ça doit se rapprocher de l'idée de Philippe Tulliez.

Merci à vous et bonne journée.

[nonesofar]

Bonjour,

J'ai testé les propositions qui fonctionnent toutes, mais je n'obtiens pas le résultat espéré.

Pour casefayere c'est efficace mais ça supprime tout les doublons alors que je souhaite en garder certains car je traite les autres cas dans une macro à part.

Pour geogeo70 il se trouve que le dernière cellule en rouge dans mon fichier d'exemple ne s'efface pas. Je sais pas pourquoi.

Mais j'ai profité de la formule

Code :

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

Left(Cells(numLigne, 10), 2) = "DZ"

pour faire un code qui me convient que voici.

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
Sub clearV2()
    Dim rebalayer As Boolean, numLigne As Long, nbLignes As Long, i As Long
 
    rebalayer = True
 
    While rebalayer
        nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
        rebalayer = False
        For numLigne = 2 To nbLignes
            For i = 2 To nbLignes
                If numLigne <> i Then
                    If Cells(numLigne, 17) = Cells(i, 17) And Left(Cells(i, 10), 2) = "DZ" Then
                        If Cells(numLigne, 10) = "FRMRS" Then
                                Rows(i).EntireRow.Delete
                                rebalayer = True
                                GoTo rebalayer
                        End If
                    End If
                End If
            Next i
        Next numLigne
rebalayer:
    Wend
    End Sub

[geogeo70]

Bonsoir,

Casafayere a raison, j'ai oublié de mettre à jour le n° de ligne quand on en enlève une donc l'idée de commencer par la fin est intéressante!
donc plutôt utiliser while...wend
cordialement

geogeo

une proposition avec while ... wend :

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
    Sub clearVbis()
    Dim numLigne As Long, nbLignes As Long
 
 
    nbLignes = Cells(Range("A:A").Count, 10).End(xlUp).Row
    numLigne = 2
    While numLigne < nbLignes - 1 'dernier doublon possible si reste 2 lignes
       If Left(Cells(numLigne, 10), 2) = "DZ" And Cells(numLigne + 1, 10) = Cells(numLigne, 10) And _
          Cells(numLigne + 2, 10) = "FRMRS" And Cells(numLigne, 17) = Cells(numLigne + 1, 17) Then
                                Rows(numLigne + 1).EntireRow.Delete
                                nbLignes = nbLignes - 1
       End If
       numLigne = numLigne + 1
    Wend
 
    End Sub

bonsoir

geogeo

[casefayere]

Bonjour,

Comme précisé par Dominique depuis le début de cette discussion, pour supprimer des lignes d'une liste de données il faut obligatoirement commencer par la dernière ligne et remonter vers la première. Pour supprimer des colonnes c'est la même chose, on part de la dernière colonne vers la première.

merci Philippe (un petit coucou au passage), j'avais l'impression que c'était resté lettre morte

Pour casefayere c'est efficace mais ça supprime tout les doublons alors que je souhaite en garder certains car je traite les autres cas dans une macro à part.

Pourtant j'ai respecté les conditions proposées avec

Code :

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

If Tb(x, 17) = Tb(x + 1, 17) And Tb(x, 10) Like "DZ*" Then

, suite à cette demande

Si doublon en colonne Q et col J la valeur de la cellule commence par "DZ" (cellule en rouge) et que la ligne en dessous i-1 il y à la valeur "FRMRS" (cellule en orange) alors on supprime la ligne qui commence par "DZ" et ainsi de suite.

je ne comprends pas

edit : j'ai oublié de préciser que la solution de Philippe avec les filtres avancés devrait répondre au problème