Discussion :

[Jeyjey1]

Bonjour,

J'ai une colonne C et je doit comparer chaque cellule de cette colonne à la colonne A, si je trouve un doublon je supprime la cellule active de ma colonne C.Mon probleme est que le code ne reconnait pas les doublons.Auriez vous une idée?.Merci

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
 
Worksheets("feuil2").Activate
'TRI DOUBLONS COLONNE C AVEC A
Dim rngTrouve As Range
Dim strChaine As String
Range("C1").Select
strChaine = ActiveCell.Value
Set rngTrouve = ActiveSheet.Columns("A:A").Cells.Find(what:=strChaine)
 
While ActiveCell.Value <> ""
If rngTrouve Is Nothing Then
ActiveCell.Offset(1, 0).Select
Else
   ActiveCell.Delete
   ActiveCell.Offset(1, 0).Select
'Cells.Find(what:=strChaine).Activate
End If
 
Set rngTrouve = Nothing
Wend

[ouskel'n'or]

Regarde là, tu as vraiment tout ce qu'il te faut. Tu as plusieurs méthodes. Y'a juste à adapter.
Une question tout de même : Tu tiens à "supprimer" la cellule (Delete -> qui fait remonter toutes les cellules du dessous) ou à l'effacer (ClearContents) ?
A+

[Jeyjey1]

Merci pour le lien!, oui effectivement je veux supprimer et faire remonter les cellules c'est juste une liste.
Par contre j'ai regardé ton lien, et j'ai retrouvé un peu l'idée de mon code, mais je comprends toujours pas pourquoi il n'arrive pas a reconnaitre la donnée que je lui demande demandée tout en sachant qu'il boucle dessus, un truc de fou

[fring]

Ola la Cie,
Une petite variante à tout ce qui a été proposé (à condition qu'on ne doit pas tenir compte de la Case, sinon marche pô)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim i%, j%
For i = Range("C65535").End(xlUp).Row To 1 Step -1
    For j = 1 To Range("A65535").End(xlUp).Row
        If Cells(i, 3) = Cells(j, 1) Then
        Cells(i, 3).Delete Shift:=xlUp
        End If
    Next j
Next i
End Sub

[ouskel'n'or]

Hello fring,
Juste une remarque : Si tu n'as que 2000 lignes, ok, mais si tu en as 40000, là tu vas voir la différence et termes de temps d'exécution...
Toujours pour t'embêter, comme d'ab'

[fring]

Hello fring,
Juste une remarque : Si tu n'as que 2000 lignes, ok, mais si tu en as 40000, là tu vas voir la différence et termes de temps d'exécution...
Toujours pour t'embêter, comme d'ab'

+1 mais...après avoir testé sur 40000 lignes, ma solution à un avantage, elle m'a permis d'aller boire un café et tailler une bavette avec la réceptionniste en attendant que la procédure soit terminée

Rectification : j'aurais même eu le temps d'aller tondre son gazon (euh...sans jeu de mot)