Suppression doublon

[joums]

Bonjour,


Je souhaiterais supprimer sous forme de macro les doublons qui se trouvent dans une colonne A
(Ex : Si cellule A = cellule B alors supprimer cellule B)

J'ai opté pour une boucle for mais je bloque dessus

Est-ce qu'il y aurait une macro plus simple que les solutions effectuées sur les différents post.



Merci


Joums

 

[EricS]

RE

je ne sais pas ce que tu veux faire exactement

hypothèse 1 rendre les cellules doublons vides

'taille du tableau
der_ligne = Range("A65536").End(xlUp).Row
For i = 1 To der_ligne
Range("a" & i).Select
valeur = Range("a" & i).Value
j = i
While j < der_ligne
j = j + 1
If Range("a" & j).Value = Range("a" & i).Value Then
Range("a" & j).Value = ""
End If
Wend

Next i

hypothèse 2 effacer les lignes de doublons

remplacer Range("a" & j).Value = "" par

range("a" & j).entirerow.delete
der_ligne = der_ligne-1


A essayer, tiens moi au courant

A+

 

[joums]

re Eric,

Merci pour tes réponses, je vais m'en inspirer

Je cherche simplement à supprimer les doubons dans une colonne.
En attendant j'ai utilisé une boucle "Do While Not" qui me parait très simple d'utilisation.

Tu me diras ce que tu en penses.
Evidement la colonne est trier


Do While Not IsEmpty(Cellulecourante) = True
Set Cellulesuivante = Cellulecourante.Offset(1, 0)

If Cellulesuivante.Value = Cellulecourante.Value Then

Cellulecourante.Delete shift:=xlUp


End If
Set Cellulecourante = Cellulesuivante
Loop

 

[EricS]

RE

personnellement je préfèrerais une écriture comme suit :

Range("a1").Select
Do While Not IsEmpty(ActiveCell) = True
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
ActiveCell.Delete shift:=xlUp
Else: ActiveCell.Offset(1, 0).Select
End If
Loop

car moins j'ai de variables mieux je me porte. Par contre il faut faire attention au moment où on doit décaler le curseur (seulement si on n'a pas effacé de cellule

le désavantage global de la méthode est le tri à faire mais tout dépend de ton application

A+
Eric