Discussion :

[nzamata]

Bonjour à tous.

Mon petit problème est le suivant : soit une champ dans une feuille de clacul excel. Dans ce champ, il y a des lignes en double ou plus et des lignes simples. Il n'y a pas de ligne vide ; la champ est déjà trié

Je souhaite ne conserver que les lignes simples. Le problème est légèrement différent de celui de l'élimination des doublons. Je précise :


Avant traitement :


AAA
AAA
AAA
BBB
BBB
CCC
DDD
EEE
EEE
FFF

Ce que je souhaite avoir, après traitement :

CCC
DDD
FFF

Alors que la simple élimination des doublons me donnerait :

AAA
BBB
CCC
DDD
EEE
FFF

Comment puis-je faire cela en visual basic excel ?

Version excel : excel 2003 - windows xp r3 - le champ à triter peut contenir 15000 lignes.

Merci par avance de vos éventuelles réponses.

[Gorfael]

Salut nzamata et le forum
Moi, je procéderais en deux temps :
- repérer les doublons et mettre un X dans une colonne à droite
- supprimer (en partant de la dernière et en remontant) toutes les lignes ayant un X
A+

[Krovax]

Bonjour dans ce cas il te suffit de rajouter une variable pour vérifier si la ligne a fait partie d'un doublon et la supprimer le cas echéant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Long, DerniereLigne As Long
Dim flag As Boolean
DerniereLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
flag = False
For i = DerniereLigne To 2 Step -1
    If Cells(i - 1, 1) = Cells(i, 1) Then
        flag = True
        Rows(i).Delete
    ElseIf flag Then
        Rows(i).Delete
        flag = False
    End If
Next i
If flag Then Rows(1).Delete

Je travail sur la colonne A sans entête
Si tu as des entête dans la boucle tu doit t'arrêter a 3 et non 2 et a la fin ce nest pas la ligne 1 mais la 2 que tu supprime

Edit Bonjour Gorfael, j'ai mis trois plomb a écrire le code et j'ai oublié de rafraichir . Le coup des X est pratique mais l'algo moins amusant

[nzamata]

Excellent. Testé ce code qui donne satisfaction. Merci infiniment.