Discussion :

[amazigh42]

Bonjour,

Cette macro efface les lignes à chaque fois qu'est détecté des doublons dans la colonne C.

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 supprimeDoublons()
MaCellule = ("C2")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
 
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub

J'aimerai adapter cette macro pour qu'elle efface une des 2 lignes si et seulement si elle trouve 2 doublons dans la colonne C ET la colonne F de 2 lignes différentes.

Merci de votre aide.

[Marc-L]

Bonjour,

le brouillard se dissiperait avec un exemple clair & précis …

[amazigh42]

A       B           C        D         E            F
batch   20/06/2013   215    1014       12      en_cours
batch   21/06/2013   220    8824       10      en_erreur
batch   27/06/2013   215    8339       11      en_cours

Ici la ligne 4 doit être supprimée car il y a doublon à la fois dans la colonne C (215) et F (en_cours)

[Marc-L]

Le tableau est déjà au préalable trié par ordre chronologique ?

C'est à dire la ligne la plus ancienne doit être conservée en cas de doublon ?


__________________________________________________________________________________________
Les seins des femmes sont la preuve qu'un homme peut se concentrer sur deux choses à la fois !

[amazigh42]

Le tableau est déjà au préalable trié par ordre chronologique ?

C'est à dire la ligne la plus ancienne doit être conservée en cas de doublon ?


__________________________________________________________________________________________
Les seins des femmes sont la preuve qu'un homme peut se concentrer sur deux choses à la fois !

Oui
Merci encore pour ton aide.

[Marc-L]

J'utilise aussi une collection ou un dictionnaire, notamment lors d'importation de fichiers,
mais comme dans ce cas les données se trouvent déjà dans une feuille,
la procédure requise étant de niveau débutant, ne voulant par faire doublon () avec le lien ci-dessus de Patrick,
je reste sur une approche classique et ce, sans aucun affreux Select ! …

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
Sub ElimineDoublons()
    With [A1].CurrentRegion
        If .Rows.Count < 3 Or .Columns.Count < 6 Then Exit Sub
        Application.ScreenUpdating = False
        .Sort .Cells(3), xlAscending, .Cells(6), , xlAscending, _
              .Cells(2), xlAscending, Header:=xlYes
 
        For R& = .Rows.Count To 3 Step -1
            If .Cells(R, 3) = .Cells(R - 1, 3) And .Cells(R, 6) = .Cells(R - 1, 6) Then _
                .Rows(R).Delete
        Next
 
        Application.ScreenUpdating = True
    End With
End Sub

S'il n'y a pas de titre de colonne, remplacer dans la ligne n°2 A1 par A2,

dans les lignes n°3 & 8 la valeur 3 par 2 et dans la ligne n°6 xlYes par xlNo …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Quand une femme offre son soutien, est-ce par sein-pathie ?!

[patricktoulon]

bonjour
selon ta version d'excel 2007 et plus la methode remove duplicate peut faire l'affaire

pour les autres
regarde un peu par la tu peut t'en inspirer

Au plaisir