Discussion :

[sims92.66]

Bonjour à tous,

Etant débutant en vba, je fais appel à votre expertise.

Je souhaite créer une macro permettant de chercher mes doublon dans une colonne et de les remplacer par 0.

J ai commencé à écrire ce code mais celui-ci supprime les doublons même = à 0.

Je vous remercie par avance pour votre aide.

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
Sub supprimeDoublons()
 
MaCellule = InputBox("Veuillez saisir l'adresse de la 1ere cellule à comparer")
 
Range(MaCellule).Select
 
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
 
donnee1 = ActiveCell
 
ActiveCell.Offset(1, 0).Select
 
While ActiveCell <> ""
 
If ActiveCell = donnee1 Then
 
ActiveCell.EntireRow.Delete
 
ActiveCell.Offset(-1, 0).Select
 
donnee1 = ActiveCell
 
ActiveCell.Offset(1, 0).Select

[Ozer45]

Salut,

Tu peux peut etre essayer ce topic ci dessous tu a des exemples pour la suppression des doublons:
http://excel.developpez.com/faq/?page=Doublon

[Theze]

Bonjour,

Une piste :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub supprimeDoublons()
 
    Dim Dico As Object
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer
 
    'création du dictionnaire
    Set Dico = CreateObject("Scripting.Dictionary")
 
    'sélection de la cellule par clic dans la feuille
    On Error Resume Next
    Set Cel = Application.InputBox("Veuillez saisir l'adresse de la 1ere cellule à comparer", , , , , , , 8)
 
    'si pas de sélection
    If Err.Number <> 0 Then
 
        MsgBox "Vous devez sélectionner une cellule !"
        Exit Sub
 
    End If
 
    'si plus d'une cellule
    If Cel.Count > 1 Then
 
        MsgBox "Seulement une cellule !"
        Exit Sub
 
    End If
 
    'défini la plage
    With ActiveSheet
 
        Set Plage = Cel.CurrentRegion
 
    End With
 
    'recherche les doublons
    For I = 1 To Plage.Count
 
 
        If Dico.Exists(Plage(I).Value) = False Then
 
            Dico.Add Plage(I).Value, Plage(I).Value
 
        Else
 
            Plage(I) = 0 'si doublon 0 dans la cellule
 
        End If
 
    Next I
 
End Sub

Hervé.

[sims92.66]

Bonsoir these,

ton code est super cependant il supprime les doublons sur toute la feuille.
Or j'aurai souhaité uniquement sur la colonne.

Merci encore pour ton aide

[sims92.66]

Super je viens de trouver la solution merci encore theze.

Bonne soirée à tous