Discussion :

[tomy7]

Bonjour j ai le code sur les doublons que l on peut trouver sur le FAQ:

Lorsque je l utilise, il me supprime toutes les valeurs. alors que je n ai que deux ou trois doublons sur 7 lignes ou meme lorsque j en ai aucun.

alors j aimerai comprendre ce code pour l adapter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
  Dim Plage As Range, Cell As Range
    Dim Un As New Collection
    Dim Tableau() As Integer
    Dim x As Integer
 
 
    'Définit la plage de cellules pour la recherche de doublons
 
 Set Plage = Worksheets("Prim").Range(Cells(1, 3), Cells(LineCounter, ColumnCounter))
 
    On Error Resume Next
    'Boucle sur les cellules de la plage cible
    For Each Cell In Plage
        'Création d'une collection de données uniques (sans doublons)
        Un.Add Cell, CStr(Cell)
 
        'Une erreur survient si l'élément existe dans la collection.
        'La procédure enregistre le numéro de ligne correspondant dans un tableau.
        If Err.Number <> 0 Then
            x = x + 1
            ReDim Preserve Tableau(1 To x)
            Tableau(x) = Cell.Row
            Err.Clear
        End If
    Next Cell
    On Error GoTo 0
 
    'On sort si aucun doublon n'a été trouvé.
    If x = 0 Then Exit Sub
 
    'Fige l'écran pendant la suppression des lignes
    Application.ScreenUpdating = False
 
    'Boucle sur le tableau pour supprimer les lignes contenant des doublons.
    For x = UBound(Tableau) To LBound(Tableau) Step -1
        Worksheets("Prim").Rows(Tableau(x)).EntireRow.Delete
    Next x
    Application.ScreenUpdating = True

clicquez sur le toggle button puis sur primavera pour tester Pièce jointe 28563

merci
Tom

[AlainTech]

Si tu observais ton code tourner (Espions, Variables locales) tu verrais que ta plage contient les 256 (ou plus si 2007) colonnes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ColumnCounter = Sheet2.Cells(1, Columns.Count).End(xlUp).Column

Relis ce que tu as écrit, ça devrait te sauter aux yeux.

[tomy7]

merci...
ouai j ai vu mon annerie...
C est pour sa que je deleste...

Bonne journee
Cdt
Tom