suppression de doublons dans une plage de cellule

[eduraiss]

Bonjour le forum

j'ai poste un message hier mais je crois que je n'était pas sur le bon forum.

voici mon problème dans une plage de cellules de a6:a399 , j'ai des doublons que je voudrais enlever mais sans que cela face le trie.
il me faudrait un code VBA que je déclencherais a l'aide d'un bouton

je joins un fichier pour une meilleur compréhension


merci de votre aide

 

[nat54]

Re : suppression de doublons dans une plage de cellule

Bonjour,

Je n'ai pas regardé le fichier

[FONT=Arial]Sub ENLEVER_DOUBLONS()[/FONT]
[FONT=Arial]ListeValUniques Range("A2:A5000"), Range("E1")   [/FONT][COLOR=teal][FONT=Arial]‘ on met la liste en colonne 1, la liste épurée se colle en colonne E[/FONT][/COLOR][FONT=Arial][/FONT]
[FONT=Arial]End Sub[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]Sub ListeValUniques(PlageSrc As Range, CellDest As Range)[/FONT]
[COLOR=teal][FONT=Arial]'Extrait les valeurs uniques d'une colonne et les renvoie[/FONT][/COLOR]
[COLOR=teal][FONT=Arial]'dans une autre, à partir de CellDest[/FONT][/COLOR][FONT=Arial][/FONT]
[FONT=Arial]Dim Arr1, Elt, Arr2(), Coll As New Collection[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]If PlageSrc.Columns.Count > 1 Then Exit Sub[/FONT]
[FONT=Arial]Arr1 = PlageSrc.Value[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]For Each Elt In Arr1[/FONT]
[FONT=Arial]On Error Resume Next[/FONT]
[FONT=Arial]Coll.Add Elt, CStr(Elt)[/FONT]
[FONT=Arial]If Err.Number = 0 Then[/FONT]
[FONT=Arial]ReDim Preserve Arr2(1 To Coll.Count)[/FONT]
[FONT=Arial]Arr2(Coll.Count) = Elt[/FONT]
[FONT=Arial]End If[/FONT]
[FONT=Arial]On Error GoTo 0[/FONT]
[FONT=Arial]Next[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]CellDest.Resize(Coll.Count).Value = _[/FONT]
[FONT=Arial]Application.Transpose(Arr2)[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]End Sub[/FONT]

Clic droit sur le bouton
Affecter une macro

 

[porcinet82]

Re : suppression de doublons dans une plage de cellule

Salut,

En un peu plus simple que mon amie Nat, je te propose le code suivant qui fonctionne sur ton exemple :

Sub test()
Dim i%, k%
For i = 6 To 399
    For k = 7 To 399
        If Cells(i, 1).Value = Cells(k, 1).Value And i <> k Then
            Cells(k, 1).ClearContents
        End If
    Next k
Next i
End Sub

@+

 

[nat54]

Re : suppression de doublons dans une plage de cellule

Bonjour Romain,

En fait cette macro je l'ai récupérée de qq, et je l'utilise toujours LOL

 

[porcinet82]

Re : suppression de doublons dans une plage de cellule

re,

Il me semble bien que ce n'est pas la première fois que tu proposes ce code 😛

Au plaisir,

@+

 

[Nevil]

Re : suppression de doublons dans une plage de cellule

Tout en étant dans le ressemblance de Porcinet82:

Sub dbl()

Dim i As Integer
Dim a As String

For i = 6 To 399

a = Cells(i, 1).Value


For i2 = i + 1 To 399

If Cells(i2, 1).Value = a Then
Cells(i2, 1).ClearContents

End If
Next i2


Next i

End Sub

 

[porcinet82]

Re : suppression de doublons dans une plage de cellule

re,

Rhoooo, le copieur, en plus il a oublié de déclarer une variable (Dim i2 As Integer) 😀 😀 😀

@+

 

[Nevil]

Re : suppression de doublons dans une plage de cellule

Mdr a oui, j'ai pas testé donc bon, erreur de noobie =) j'avoue.

Alala, la déclaration de variable, quelle facilité d'erreur

En gros, meme idée que la tienne, mais la tienne sans erreur 😉.


+

 

[nat54]

Re : suppression de doublons dans une plage de cellule

re,

Il me semble bien que ce n'est pas la première fois que tu proposes ce code 😛

Au plaisir,

@+

Exact, puisque je l'ai dans mon fichier word "macros utiles" 😀 😉

 

[eduraiss]

Re : suppression de doublons dans une plage de cellule

merci a tous pour vos réponses

le code fonctionne mais il est relativement long
si vous pouvez m'aider encore une fois

Merci a vous

 

[porcinet82]

Re : suppression de doublons dans une plage de cellule

Bonjour a tous,

Qu'est ce que tu appels long, plusieurs minutes?? Et de quel code parles-tu ???

@+

 

[eduraiss]

Re : suppression de doublons dans une plage de cellule

bonsoir et merci pour ta réponse.

en effet le code est relativement long il supprime tres vite mais appreé il boucle sur pas mal de temps

le code est celui que tu m'a donner
Sub test()
Dim i%, k%
For i = 6 To 399
For k = 7 To 399
If Cells(i, 1).Value = Cells(k, 1).Value And i <> k Then
Cells(k, 1).ClearContents
End If
Next k
Next i
End Sub


une petite erreur de ma part, la plage est en b6:b399 et les codes sont identifiés de cette maniere

6aa3
6z9
6d8
6u7

je ne sais pas comment transposer ton code sur cette colonne

Merci de ton aide et de m'avoir répondu

eric

 

[porcinet82]

Re : suppression de doublons dans une plage de cellule

Salut,

Tu peux esayer le code suivant qui a l'air de tourner moins longtemps :

Sub test()
Dim i%, k%
For i = 6 To 399
    For k = i + 1 To 399
        If IsEmpty(Cells(i, 2).Value) = False And Cells(i, 2).Value = Cells(k, 2).Value And i <> k Then Cells(k, 2).ClearContents
    Next k
Next i
End Sub

Sinon, il faut passer par un tri. Tu rajoutes une colonne dans laquelle tu mets un numéro que tu incrémentes de 1 à 394 et ensuite tu fais un tri sur la colonne sur laquelle tu veux supprimer des valeurs. Un petit code permet ensuite simplement de supprimer les valeurs je pense plus rapidement.
Si ca peux t'interesser, tiens moi au courant.

@+

 

[eduraiss]

Re : suppression de doublons dans une plage de cellule

Bonjour le forum

Merci Romain le code va nettement plus vite c'est Ok pour moi.

Bonne journée l'ensemble des forumeur