Discussion :

[Gllou06]

Bonjour à tous
Pour commencer, sachez que je ne suis pas un pro de la macro ni un habitué des forums mais voilà deux jours que je cherche une solution sur les sites sans trouver vraiment une réponse à mon problème !

Aujourd'hui, je tente de faire une boucle sur une colonne pour effacer les doublons en (conservant le premier) : tout se passe bien au niveau de l'action mais je dois faire une erreur puisque ma boucle "For each" ne s'arrête pas à la fin de ma liste. Quelqu'un peut-il me dire où est cette erreur ? (mon code -ci-joint- n'est peut-être pas "très propre" non plus... !).

Je suis preneur de toutes vos suggestions et vous remercie par avance.

[clementmarcotte]

Bonjour,

Le plus simple c'est de laisser Excel se débrouiller avec les doublons :

Tu utilises un Filtre avancé (élaboré) avec Extraction sans doublon avec copie sur autre feuille.

D'une manière plus générale, la seule manière d'effacer des lignes par VBA, c'est de la faire de bas en haut.

[Gllou06]

Bonjour et merci pour cette réponse.
Ce tableau (aujourd'hui 6882 lignes / 284 colonnes) n'est pas destiné à être ouvert par un utilisateur c'est pourquoi il me faut le traiter en VBA.

[Alex70]

Bonjour,

N'ouvrant pas les pj je ne vois pas ton code donc voila une proposition de solution.

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
Sub test()
 
'On trouve la dernière ligne lors du lancement.
derligne = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 1 To derligne
 
'on récupère ici A1
variable = Cells(i, 1)
 
'la premiere ligne A = "" sortira de la boucle.
'je n'ai pas de ligne vide dans ma colonne mais comme je vais supprimer des lignes
'la ligne de fin va bouger
If variable = "" Then Exit Sub
 
'Je fais un index pour reprendre là ou la boucle s'arrete quand je supprime une ligne
IndexJ = 1
 
'utilisation de Goto... on pourrait utiliser While index < XXXX mais bon...
line1:
 
'je refais mon caclule de la derniere ligne ici car ça bouge lors des suppressions.
derligne2 = Range("A" & Rows.Count).End(xlUp).Row
 
 
    For j = IndexJ To derligne2
 
    'Si I=J je sors, sinon il pourrait supprimer la valeur lors de la première rencontre
    If j <> i And Cells(j, 1).Value = variable Then
        Range("" & j & ":" & j & "").Select
        Selection.Delete Shift:=xlUp
        IndexJ = j
        GoTo line1 'on relance la boucle "J" en reprenant en départ la ligne que je viens de supprimer
    End If
 
    Next j
 
 
Next i
 
End Sub

Bon le code n'est pas terrible et devrait être utilisé avec un While.... Wend... au lieu du GoTo.

[vinc_bilb]

Bonjour,

Franchement, à part l'aspect apprentissage VBA de ce type de code, ça va être lent et assez difficile à maintenir. Donc oui, je supporte un point de vue plus structuré pour ce type de demande:

1. Passer par un filtre (cf réponse du Maître)
2. Utiliser nativement le removedupplicate du VBA (le faire par Excel et enregistrement macros si besoin)

C'est en général un facteur 10 à 30 en terme de rapidité.

[Philippe Tulliez]

Bonjour,
Je ne peux qu'abonder dans le sens de Clément et Vinc_bilb

Petit exemple de code qui copie la colonne 9 de la liste de données commençant en cellule A1 de la feuille nommée db vers la 2ème colonne à droite de la liste et ce en conservant les valeurs uniques.

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 With rng ' Filtre sur la 9ème colonne
 .Columns(9).AdvancedFilter xlFilterCopy, copytorange:=.Offset(0, .Columns.Count + 1).Resize(1, 1), Unique:=True
 End With
End Sub

[Menhir]

Est-ce que tu n'aurais pas copier un truc dans toute la colonne G qui fasse que le End(xlUp) ne chope que la dernière case (et le traitement d'un million de cellules, ça peut être long, surtout avec des Select partout et une boucle à l'intérieur).

Un autre truc très bizarre dans ton code : tu utilises Cell comme variable de ton For Each mais tu n'utilises nulle part cette variable à l'intérieur.

[Gllou06]

Merci à tous de votre participation.

Je me permets de vous transférer le code (Merci à Roger2327) (beaucoup plus clean que le mien) qui fait exactement ce que je veux :

Code :

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

1
2
3
4
5
6
Sub EffaceDoublons()
Dim Cell As Range, donnée1 As String
    For Each Cell In Sheets("Feuil1").Range("F6:F" & Range("G1048576").End(xlUp).Row)
        If Cell.Value = donnée1 Then Cell.Clear Else donnée1 = Cell.Value
    Next
End Sub

Bonne journée.

ps : Je voudrais bien marquer ce post comme "résolu" mais je ne vois pas de bouton me permettant de le faire à partir de cette fenêtre