VBA - identification doublons problèmes de caractères

Bonjour à tous,

Je cherche à identifier et supprimer des doublons sur une clé que j'ai créé en colonne 164 (à partir de deux autres colonnes de mon fichier): nom&prénom

Dans mon code vba:

1. je trie par ordre alphabétique

2. puis identifie les doublons

3. et supprime les doublons.

Mon code fonctionne, cependant j'identifie seulement les doublons:

> MARTINERIC et MARTIN ERIC

> et non MartinEric et MARTINERIC

comment faire pour ne pas tenir compte des majuscules?

Merci pour votre aide!

Dim i As Long

With Sheets("BDD")

Sheets("BDD").Select

For i = 2 To .Range("W" & Rows.Count).End(xlUp).Row

If .Cells(i, 164) = .Cells(i + 1, 164) And .Cells(i, 164) <> "" Then

.Cells(i + 1, 164).EntireRow.Delete

i = i - 1

End If

Next i

End With

Bonjour

vincennnnnt a écrit :

Mon code fonctionne, cependant j'identifie seulement les doublons:

> MARTINERIC et MARTIN ERIC

Est tu sur de cela : L'espace ne gène pas ?

Transformes tout en majuscule

Pour des suppression de ligne c'est plus simple de partir de la fin

Sub test()
Dim i As Long
  With Sheets("BDD")
    For i = .Range("W" & Rows.Count).End(xlUp).Row To 3 Step -1
      If UCase(.Cells(i, 164)) = UCase(.Cells(i - 1, 164)) And .Cells(i, 164) <> "" Then
        .Rows(i).Delete
      End If
    Next i
  End With
End Sub

EDIT

Tu as Excel 2007 : Pourquoi ne pas utiliser l'outil de suppression des doublons

oui erreur de frappe pour l'espace, mais avec le u case cela fonctionne!

merci!!

Rechercher des sujets similaires à "vba identification doublons problemes caracteres"