doublon sur une feuille

Le
STEPH B
Bonjour

Je dispose d une feuille où il y a des nombre en colonne A de 1 à infini

et je voudrais si possible avoir une macro qui me vérifie les doublons qui
sont en format texte sidoublon alors supprime valeur et remonte d'une ligne

merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #22253681
Bonjour,

... supprime valeur et remonte d'une ligne


'------------------
Sub jj()
With Sheets("feuil1") '****adapter le nom de la feuille
For i = .Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If Application.CountIf(.Range("a1:a" & .Cells(Rows.Count, 1).End(3).Row), .Cells(i, 1)) > 1 Then
.Rows(i).Delete
End If
Next
End With
End Sub
'-------------------

--
Salutations
JJ


"STEPH B" 4c15df37$0$27598$
Bonjour

Je dispose d une feuille où il y a des nombre en colonne A de 1 à infini

et je voudrais si possible avoir une macro qui me vérifie les doublons qui sont en format texte sidoublon
alors supprime valeur et remonte d'une ligne

merci d'avance


Publicité
Poster une réponse
Anonyme