Discussion :

[mammmy]

Salut,
j'ai un souci avec une macro vba excel.
Je veux supprimer les doublons de mon fichier excel mais de la manière suivante:
je dois comparer les données des cellules d'une seule colonne, si 2 cellules sont identiques alors il doit me supprimer toute la ligne.
Voici mon code mais je n'arrive pas à l'éxécuter, à chaque fois que je l'éxecute, je suis obligé d'arrêter le processus excel pour continuer à travailler sur mon poste.
Je crois qu'il y a une erreur quelque part. Mais je n'arrive pas à la trouver. Est ce que quelqu'un peut m'aider?

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
Sub supprimeDoublons()
MaCellule= "B5"
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 
End If 
Wend 
End Sub

Merci d'avance

[mayekeul]

bonjour,

essaie comme ça pour voir.

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
Sub supprimeDoublons()
 
MaCellule= "B5"
Range(MaCellule).Select 
Activecell.currentregion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
 
ActiveCell.Offset(1, 0).Select
i=0
While range(macellule).offset(i,0) <>""
    with range(macellule)
        if .offset(i,0).value=.offset(i+1,0) then .offset(i+1,0).entirerow.delete
        i=i+1
    end with
Wend 
 
End Sub

[mammmy]

Il me met une erreur de débogage:

Erreur d'éxecution 1004 : erreur définie par l'application ou par l'objet

Et la ligne est :

Code :

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

While Range(macellule).End(xlDown).Offset(I, 0) <> ""

[mammmy]

Merci pour vos réponse.
Pour les 2 derniers bouts de code de Le Pierre et Mayekeul, j'arrive à les éxecuter mais j'ai pas le résultat que je veux.
Je vous donne un exemple:
j'ai fichier excel qui contient plusieurs, dans la colonne B de ce fichier, j'ai des doublons, moi je veux axer ma suppression de doublons sur cette colonne, si il y a des doublons sur la colonne B, il supprime toute la ligne.

[Le Pierre]

bonjour

d'après ton code initial tu supprimais toute la ligne.

Pour ne supprimer qu'une cellule remplace :

Code :

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

ActiveCell.EntireRow.Delete

par :

Code :

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

ActiveCell.Delete

à plus

[mammmy]

Bonjour,
Merci pour vos réponses.

[Le Pierre]

bonjour

essaye ce code rectifié :

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
Sub supprimeDoublons()
    MaCellule = "B5"
    Range(MaCellule).Select
    ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
    donnee1 = ActiveCell
    While ActiveCell <> ""
        ActiveCell.Offset(1, 0).Select
        If ActiveCell = donnee1 Then
            ActiveCell.EntireRow.Delete
            ActiveCell.Offset(-1, 0).Select
            donnee1 = ActiveCell
        Else
            donnee1 = ActiveCell
        End If
    Wend
End Sub

à plus