Discussion :

[Alaindhu]

Classeur4.xlsx

Bonjour,

Je cherche à supprimer des lignes en doublons. Jusque là c'est "très" simple.
Le problème que je rencontre est que les lignes identifiées en doublons et qui doivent être supprimées sont celles qui n'ont jamais de date(s) renseignée(s) entre les colonnes A et D... je veux par contre conserver les lignes avec des dates.
Avez vous des idées?

ci-joint le fichier sans code.
Ci-après mon code source:

merci de votre aide!!

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
Option Base 1
 
 
Sub SupprimeDoublons()
Dim Plage As Range, Cell As Range
Dim Un As Collection
Dim Tableau() As Long
Dim x As Integer
 
 
Set Un = New Collection
 
Set Plage = Worksheets("Feuil1").Range("E1:E12")
 
For Each Cell In Plage
    On Error Resume Next
    'Alimente la collection de données sans doublons.
    Un.Add Cell, CStr(Cell)
 
    'Une erreur survient si l'élément existe dans la collection.
    'La procédure enregistre le numéro de ligne correspondant dans un tableau.
    If Err.Number <> 0 Then
        x = x + 1
        ReDim Preserve Tableau(x)
        Tableau(x) = Cell.Row
        Cell(x, x).Select
    End If
Next Cell
 
 
'On sort de la procédure s'il n'y a pas de doublons.
If x = 0 Then Exit Sub
 
'Permet de figer l'écran pendant la suppression des lignes.
Application.ScreenUpdating = False
 
'boucle sur le tableau pour supprimer les lignes contenant les doublons.
 
For x = UBound(Tableau) To LBound(Tableau) Step -1
 
        Worksheets("Feuil1").Rows(Tableau(x)).EntireRow.Delete
 
Next x
 
Application.ScreenUpdating = True
MsgBox "Terminé."
 
Set Un = Nothing
End Sub

[halaster08]

Bonjour,

doivent être supprimées sont celles qui n'ont jamais de date(s) renseignée(s) entre les colonnes A et D

Tu peux ajouter une condition avant la suppression de la ligne

Code :

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

1
2
3
4
For x = UBound(Tableau) To LBound(Tableau) Step -1
    If IsDate(Range("A" & Tableau(x) )) or IsDate(Range("B" & Tableau(x))) or IsDate(Range("C" & Tableau(x))) or IsDate(Range("D" & Tableau(x))) then Worksheets("Feuil1").Rows(Tableau(x)).EntireRow.Delete
 
Next x

[Alaindhu]

merci de ta réponse rapide.
En effet, mais j'ai testé et cela me supprime les lignes avec des dates alors qu'il faut que je parvienne à supprimer la ligne en doublon qui elle n'a pas de date.
En gros, si j'ai deux lignes identiques sans date = il me supprime une des deux (n'importe laquelle)
Si j'ai deux lignes identiques:
- Une avec une ou plusieurs date sur la plage A
- Une sans date
==> je conserve celle qui a des dates.
[EDIT] sachant que je peux avoir trois ou quatre lignes en doublons et que je veux toujours conserver celles qui ont des dates..

J'ai testé également cela mais sans succès:

Code :

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

If (Range("A" & Tableau(x))) = "" And (Range("B" & Tableau(x))) = "" And (Range("C" & Tableau(x))) = "" And (Range("D" & Tableau(x))) = "" Then Worksheets("Feuil1").Rows(Tableau(x)).EntireRow.Delete

Ce code me supprime les lignes dans l'ordre...
As-tu d'autres idées?
merci encore..

[halaster08]

j'ai testé et cela me supprime les lignes avec des dates

J'ai oublié le not ...

Code :

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

1
2
3
4
For x = UBound(Tableau) To LBound(Tableau) Step -1
    If not(IsDate(Range("A" & Tableau(x) )) or IsDate(Range("B" & Tableau(x))) or IsDate(Range("C" & Tableau(x))) or IsDate(Range("D" & Tableau(x)))) then Worksheets("Feuil1").Rows(Tableau(x)).EntireRow.Delete
 
Next x

J'ai testé sur une plage test sans le tableau des doublons ça ne me supprime bien que les lignes sans date

J'ai testé également cela mais sans succès:

If (Range("A" & Tableau(x))) = "" And (Range("B" & Tableau(x))) = "" And (Range("C" & Tableau(x))) = "" And (Range("D" & Tableau(x))) = "" Then Worksheets("Feuil1").Rows(Tableau(x)).EntireRow.Delete

Pourtant ce code m'a l'air correct, tu devrais faire afficher le résultat de chaque test dans le log (ex: debug.print Range("B" & Tableau(x))) = "" ) et en mode pas à pas vérifier chaque condition pour comprendre d'où vient le problème.

[Alaindhu]

Effectivement avec not cela fonctionne.
Il me reste un dernier problème, c'est que le code me supprime les lignes en doublon sans dates situées après la ligne qui a des dates.. Toutes celles avant ne sont pas supprimées.
Je continue de faire des essais.

[halaster08]

Peut être un problème avec ton tableau de doublons ?
Je n'ai pas regardé comment tu le construit.
Tu es sur d'avoir toutes tes lignes dedans ?