Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer des doublons non triés sur une colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Kernoz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

Kernoz

XLDnaute Occasionnel
Bonjour à tous !

Je cherche depuis 3 plombes à faire un petit bout de code mais j'ai beau essayer je n'y arrive pas ...

J'ai une macro qui ajoute des données à la suite d'un tableau existant en fonction de dates.
Je voudrais, si par exemple un utilisateur active la macro pour une date deja renseignée ou si les données de cette date ont changées :
* supprimer les anciennes valeurs ( les plus hautes dans le range ) et garder celles qui viennent d'être collées ( les plus basses ).

J'ai essayé avec "RemoveDuplicates" mais cela supprime la ligne la plus basse ...
J'ai essayé en triant mais la ligne basse reste en dessous ...
J'ai essayé avec Application.CountIf mais ca ne marche pas ...
J'ai entendu parler de l'objet dictionary mais je ne connais pas du tout ...

Bref, il me faut un coup de main 😛 J'ai mis un exemple en PJ.

Merci d'avance !
 

Pièces jointes

Trier par date Trier par votes
Re : Supprimer des doublons non triés sur une colonne

Bonsoir.

Une idée de code :
Code: 
Sub sansdoublon()
Dim d As Object, ds As Object
Dim dligne As Long, ligne As Long
Set d = CreateObject("scripting.dictionary"): Set ds = CreateObject("scripting.dictionary")
dligne = [b65000].End(xlUp).Row
For ligne = dligne To 7 Step -1
    If Not d.exists(Cells(ligne, 6).Value) Then
        d(Cells(ligne, 6).Value) = ""
            Else: ds(Cells(ligne, 6).Value) = ligne
    End If
Next
For Each c In ds.items
    Rows(c).Delete
Next
End Sub

Bonne soirée.
 
Vote positif 0 Vote négatif
Re : Supprimer des doublons non triés sur une colonne

bonjour tous🙂🙂

si pas trop de lignes on peut ecrire comme cela aussi !!

Code: 
Dim m As Object, i As Long
   Set m = CreateObject("Scripting.Dictionary")
   For i = Cells.Find("*", , , , , xlPrevious).Row To 7 Step -1
   If m.Exists(Cells(i, 6).Value) Then _
   Rows(i).Delete Else m.Add Cells(i, 6).Value, Cells(i, 6).Value
   Next i
 
Vote positif 0 Vote négatif
Re : Supprimer des doublons non triés sur une colonne

Désolé de cette réponse tardive mais j'ai eu trop peu de temps pour me replonger dans ce probleme ...

Ca marche super ! Merci beaucoup pour votre réponse 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
589
Jojo973
A
  • Question Question
XL pour MAC Peut on mettre plusieurs données de différentes lignes sur une seule ?
Réponses
5
Affichages
1 K
chris
L
  • Question Question
XL 2016 Supprimer les doublons (avec 4 colonnes) et ne garder que la ligne la plus ancienne (colonne A)
2 3 4
Réponses
46
Affichages
4 K
ChTi160
N
  • Question Question
XL 2019 Aide sur fonction Rang avec une exclusion de certaines valeurs
Réponses
2
Affichages
791
Nyco129
N
G
  • Question Question
Microsoft 365 Problème concatenation des données sur une seule ligne
Réponses
7
Affichages
1 K
vgendron
D
  • Question Question
XL 2019 Redimensionner et supprimer des colonnes tableau (VBA)
Réponses
4
Affichages
2 K
sylvanu
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
2
Réponses
19
Affichages
2 K
soan
S
D
  • Question Question
Microsoft 365 Comment Additionner des valeurs d'une colonnes basées sur leurs dates dans une autre colonne
Réponses
5
Affichages
1 K
desto
D
S
  • Question Question
XL 2019 fonctions COUNTIF and COUNTIFS sur une plage de données filtrée en vba
Réponses
2
Affichages
1 K
Hasco
M
  • Question Question
XL 2019 Créer une VBA pour copier des valeurs de plusieurs lignes d'une feuille sur une même ligne d'une autre feuille
2
Réponses
19
Affichages
2 K
marco22
M
B
  • Résolu(e)
Microsoft 365 Obtenir le numéro de ligne de la prochaine cellule non vide dans une colonne
2
Réponses
17
Affichages
3 K
soan
S
S
  • Question Question
XL 2016 Somme si ens (critere sur des lignes et non sur des colonnes)
Réponses
1
Affichages
2 K
CISCO
M
  • Question Question
XL 2013 Formule pour reprendre la plus grosse valeur sur une colonne
Réponses
2
Affichages
816
danielco
D
S
  • Question Question
XL 2016 Injecter les items d'une listbox dans une meme ligne mais une colonne sur 3 à partir d'une colonne précise
Réponses
2
Affichages
782
Sparfell29
S
N
  • Question Question
reporter automatiquement sur un planning de production
Réponses
4
Affichages
2 K
neim
N
B
  • Question Question
inserer une ligne en-dessous d'une ligne en fonction des valeurs de leurs cellules respectives
Réponses
2
Affichages
1 K
benabdelouahed mohamed
B
A
  • Question Question
Macro copier des lignes sur une feuille pour les dispatcher sur d'autres feuilles
Réponses
10
Affichages
2 K
adad
A
P
  • Question Question
Dans un Tableau croisé dynamique, impossible de trier ET de grouper des dates
Réponses
5
Affichages
11 K
pruvieros
P
A
  • Question Question
Extraire des données d'une feuille sur une autre avec un critere
Réponses
14
Affichages
2 K
alainca31
A
P
  • Question Question
Supprimer des doublons sur critères
Réponses
7
Affichages
2 K
pajude
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…