doublon et lignes à supprimer

[emanu]

bonjour à tous,
xls composé de 4 colonnes et 1000 lignes.
exercice: la macro cherche les doublons dans la colonne B supprime toutes les lignes comportant des doublons.

je bloque sur un VB qu'un autre costaud de la Macro, et dont j'ai omis le pseudo, à réalisé. J'ai utilisé ce code sans aucun problèmes jusqu'à ce que Error d'execution '6' Dépassement de capacité
Cette erreur apparait lorsque je dépasse 260 lignes.

ps: l'outil Doublons de Excel ne fonctionne pas aussi précisemment et j'ai donc des erreurs.


bonjour à tous,
xls composé de 4 colonnes et 1000 lignes.
exercice: la macro cherche les doublons dans la colonne B supprime toutes les lignes comportant des doublons.

je bloque sur un VB qu'un autre costaud de la Macro, et dont j'ai omis le pseudo, à réalisé. J'ai utilisé ce code sans aucun problèmes jusqu'à ce que Error d'execution '6' Dépassement de capacité
Cette erreur apparait lorsque je dépasse 260 lignes.

ps: l'outil Doublons de Excel ne fonctionne pas aussi précisemment et j'ai donc des erreurs.


Option Explicit

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

 

[Guest]

Re : doublon et lignes à supprimer

Bonjour,

Change les Variables Byte en Long.

Pour travailler sur des numéros lignes excel aiment bien les 'long'

Dim M As Long, U As Long, N As Long

Utilise l'éditeur de discussion avancé et son bouton '#' pour transmettre tes codes.

A+

 

[MJ13]

Re : doublon et lignes à supprimer

Bonjour Emanu, Ges

Sinon, une adaptation du superbe code de Laetitia .

 

[emanu]

Re : doublon et lignes à supprimer

Trop cool Hasco,
c'était si simple.
ça fonctionne impec, merci boucou