A
AL
Guest
Bonjour le forum
J' ai une feuille de calcul sur laquelle il y a 1038 enregistrements B2 a AC1038, et j' aimerais faire une suppression des lignes doublonner.
Le point de depart serait la colonne B, mais la recherche de doublons doit prendre en compte les minuscules majuscules et les Espaces ainsi que les Accents, car les noms sont de stiles " La chèvre de Mr Seguin" où "la Chevre de Monsieur seguin"
J' ai essayé cette ùacro que j' avais trouvé sur le forum
Sub SupprimerLignesDoublons()
'http://www.excel-downloads.com/html/French/forum/messages/1_62749_62749.htm
'michel
'le 24.12.2003
Dim Cell As Range
Dim Ligne As Integer, i As Integer
Dim M As Byte, U As Byte, N As Byte
Dim Tableau(), Tableau2()
Dim Resultat As String
Ligne = Range("A65536").End(xlUp).Row ' derniere ligne non vide colonne A
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne A
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons
For Each Cell In Range("A1:A" & Ligne)
U = 0
For i = 1 To M
If Cell = Tableau(i - 1) Then '
Tableau2(N - 1) = Cell.Row ' recupere numero de ligne quand un doublon est detecté
N = N + 1
ReDim Preserve Tableau2(N)
U = 1
End If
Next i
If Tableau(M - 1) = "" And U = 0 Then
Tableau(M - 1) = Cell ' remplissage tableau si pas de doublon détecté
M = M + 1
ReDim Preserve Tableau(M)
End If
Next Cell
For i = N - 1 To 1 Step -1 ' boucle pour supprimer les lignes de doublons
Rows(Tableau2(i - 1)).Delete
Next i
End Sub
Le Pb en la modifiant et en mettant B2 j' ai un plantage a M= M+1
en inserant une colonne pour comprendre le pourquoi, j' ai toujours le blocage à "M=M+"
merci a celui qui pourra m' aider à comprendre le pourquoi ?
AL
J' ai une feuille de calcul sur laquelle il y a 1038 enregistrements B2 a AC1038, et j' aimerais faire une suppression des lignes doublonner.
Le point de depart serait la colonne B, mais la recherche de doublons doit prendre en compte les minuscules majuscules et les Espaces ainsi que les Accents, car les noms sont de stiles " La chèvre de Mr Seguin" où "la Chevre de Monsieur seguin"
J' ai essayé cette ùacro que j' avais trouvé sur le forum
Sub SupprimerLignesDoublons()
'http://www.excel-downloads.com/html/French/forum/messages/1_62749_62749.htm
'michel
'le 24.12.2003
Dim Cell As Range
Dim Ligne As Integer, i As Integer
Dim M As Byte, U As Byte, N As Byte
Dim Tableau(), Tableau2()
Dim Resultat As String
Ligne = Range("A65536").End(xlUp).Row ' derniere ligne non vide colonne A
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne A
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons
For Each Cell In Range("A1:A" & Ligne)
U = 0
For i = 1 To M
If Cell = Tableau(i - 1) Then '
Tableau2(N - 1) = Cell.Row ' recupere numero de ligne quand un doublon est detecté
N = N + 1
ReDim Preserve Tableau2(N)
U = 1
End If
Next i
If Tableau(M - 1) = "" And U = 0 Then
Tableau(M - 1) = Cell ' remplissage tableau si pas de doublon détecté
M = M + 1
ReDim Preserve Tableau(M)
End If
Next Cell
For i = N - 1 To 1 Step -1 ' boucle pour supprimer les lignes de doublons
Rows(Tableau2(i - 1)).Delete
Next i
End Sub
Le Pb en la modifiant et en mettant B2 j' ai un plantage a M= M+1
en inserant une colonne pour comprendre le pourquoi, j' ai toujours le blocage à "M=M+"
merci a celui qui pourra m' aider à comprendre le pourquoi ?
AL