Dédoublonnage

[benscofild]

Bonjour a Tous,


je cherche à identifier les doublons, sur une colonne (c:c) et a supprimer les doublons sans laisser de vide et surtout a garder les donnees sur C5:C:333333
je veux garder les même mise en forme sans rien déplacer.



merci pour vos réponses

 

[JCGL]

Re : Dédoublonnage

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Del_Doublonsc()
Dim X As Integer

Application.ScreenUpdating = 0

For X = Range("C65536").End(xlUp).Row To 1 Step -1
        If Application.CountIf(Range(Cells(X, 1), "A1"), Cells(X, 1)) > 1 Then
                Rows(X).Delete
        End If
Next X
End Sub

A+ à tous

 

[benscofild]

Re : Dédoublonnage

Merci JCGL

mais es que ce code me permet de supprimer toute la ligne là ou il y a le doublon ?

Merci encore pour ton aide

 

[JCGL]

Re : Dédoublonnage

Bonjour à tous,

Je viens de relire : c'est la colonne C

Option Explicit

Sub Del_Doublons()
Dim X As Integer

Application.ScreenUpdating = 0

For X = Range("C65536").End(xlUp).Row To 1 Step -1
        If Application.CountIf(Range(Cells(X, 3), "C5"), Cells(X, 3)) > 1 Then Rows(X).Delete
Next X
End Sub

A+ à tous

 

[benscofild]

Re : Dédoublonnage

Merci à Vous tous
merci au forum
merci aux créateures de ce site
merci à JCGL