Doublons dans Excel
oalba
Messages postés
3
Date d'inscription
mardi 16 décembre 2003
Statut
Membre
Dernière intervention
9 mai 2005
-
18 déc. 2003 à 10:20
ld40 Messages postés 336 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 22 février 2019 - 18 déc. 2003 à 19:37
ld40 Messages postés 336 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 22 février 2019 - 18 déc. 2003 à 19:37
3 réponses
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
18 déc. 2003 à 11:06
18 déc. 2003 à 11:06
1)Fais un Sort sur ta colonne, suffit d'enregistrer la macro pour avoir la syntaxe.
2) La boucle, 1 minute pour l'ecrire:
Sub Supprimedoublons()
Dim cel As Range
Set cel = Range("a2")
While Not IsEmpty(cel)
Set cel = cel.Offset(1, 0)
If cel.Offset(-1, 0) = cel.Offset(-2, 0) Then
cel.Offset(-1, 0).EntireRow.Delete
End If
Wend
End Sub
BruNews, ciao...
2) La boucle, 1 minute pour l'ecrire:
Sub Supprimedoublons()
Dim cel As Range
Set cel = Range("a2")
While Not IsEmpty(cel)
Set cel = cel.Offset(1, 0)
If cel.Offset(-1, 0) = cel.Offset(-2, 0) Then
cel.Offset(-1, 0).EntireRow.Delete
End If
Wend
End Sub
BruNews, ciao...
Arsena
Messages postés
190
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005
18 déc. 2003 à 11:25
18 déc. 2003 à 11:25
supprimer les doublons de la colonne
sub doublons
'Ce code efface tout les doublons de la colonne A
Dim i, j, DBL, NBV
NBV = Application.CountA(Columns("A"))
For i = 1 To NBV
DBL = Cells(i, "A")
For j = i + 1 To NBV If LCase(Cells(j, "A")) LCase(DBL) Then Cells(j, "A") ""
Next j
Next i
End Sub
Bonne prog et
A+
MD
sub doublons
'Ce code efface tout les doublons de la colonne A
Dim i, j, DBL, NBV
NBV = Application.CountA(Columns("A"))
For i = 1 To NBV
DBL = Cells(i, "A")
For j = i + 1 To NBV If LCase(Cells(j, "A")) LCase(DBL) Then Cells(j, "A") ""
Next j
Next i
End Sub
Bonne prog et
A+
MD
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
18 déc. 2003 à 19:37
18 déc. 2003 à 19:37
comme je vois que chacun y met du siens , je propose moi aussi:
'Depuis une colonne A:A, extraire dans la colonne B:B les données débarassées de leur doublons
'Depuis une colonne A:A, extraire dans la colonne B:B les données débarassées de leur doublons
Columns("A:A").Select
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( _
"B:B"), Unique:=True
