Supprimer les doublons

[Newbies]

Je demande encore de l'aide...

J'aimerai que dans ma colonne A supprimer les doublons texte.

Mais quand on supprime le doublon, il faut que ce soit toute la ligne qui disparaisse sinon cela décalle tout...

Il faut appliquer un filtre pour cela ?

Je patauge un peu...

Merci apr avance

 

[michel]

bonjour

j'espere que l'exemple joint pourra t'aider

bonne journée et bonnes fetes
michel

 

[Newbies]

merci

Merci beaucoup Michel, c'est absolument parfait )

Je te souhaite aussi d'excellentes fêtes

 

[Newbies]

Re

De retour

Cette macro fonctionne bien avec peu de cellules à filtrer, j'en ai environ 1000 par colonne avec environ 20 à 50 doublons et l amacro m'affiche une erreur :

Erreur d'exécution'6':
Dépassement de capacité

Quand je clique sur Debogage excel souligne M = M + 1

Peux t'on augmenter la "capacité" de cette macro ?

Merci par avance

 

[michel]

rebonjour

avec la variable Byte , tu es limité à 256 valeurs

essayes de remplacer
Dim M As Byte, U As Byte, N As Byte

par
...
Dim U As Byte, N As Byte
Dim M as integer
....

ps
étant donné le nombre de lignes à controler , ma méthode n'est sans doute pas la mieux adaptée

bonne journée
michel

 

[jacquesderyes]

Bonjour newbies ,Michel et les amis du forum

Ci dessous un bout de code que j'utilise pour supprimer les doublons et qui fonctionne bien.



Sub supdoublon()
Dim Cell As range

range("A13:U7900").Select
Selection.Sort Key1:=range("F13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

range("F13").Select ----->colonne ou se trouvent les doublons
For Each Cell In range("F13:F7900")
If ActiveCell.Offset(1, 0).Value <> "" And ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 5).Select ---------->revient à la colonne contenant les doublons

Else
ActiveCell.Offset(1, 0).Select
End If

Next Cell

End Sub


A toi d'adapter selon tes critères!

Bien amicalement
Jacques de ryes