XL 2019 DOUBLONS

P

PRUDHOMME12

XLDnaute Nouveau

• 1 Juillet 2021

• #2

DÉSOLÉ DANS MA DEMANDE IL EN MANQUE UN PEU, JE VOUDRAIS SUPPRIMER LES DOUBLONS

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Juillet 2021

• #3

bonsoir
fait simplement un removeduplicate

 

Vote positif 0 Vote négatif

P

PRUDHOMME12

XLDnaute Nouveau

• 1 Juillet 2021

• #4

Ca je peux le faire mais ce n'est pas automatique je pense

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 1 Juillet 2021

• #5

Bonjour PRUDHOMME12, Patrick,

sur "Feuil2", tu peux voir que la colonne J est vide ; va sur la feuille "FM", et fais Ctrl e

VB:

Option Explicit

Sub Tri()
  Dim n&
  With Worksheets("FM")
    n = .Cells(Rows.Count, 1).End(xlUp).Row: If n < 3 Then Exit Sub
    Application.ScreenUpdating = 0: n = n - 1: .[A2].Resize(n).Copy
  End With
  With Worksheets("Feuil2")
    .Select: [J2].PasteSpecial xlPasteValues
    With Selection
      .Sort .Cells(1), 1: .RemoveDuplicates 1, 2
    End With
    [A1].Select
  End With
End Sub

soan

 

Pièces jointes

• Essai perso.PFC.2.xlsm

  117.9 KB · Affichages: 10

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 1 Juillet 2021

• #6

@PRUDHOMME12

si tu essayes mon fichier précédent, tu verras que la macro trie d'abord les données qui ont été copiées, puis en supprime les doublons ➯ la colonne J contient seulement des valeurs uniques.

si tu te demandes pourquoi sur la feuille "FM" j'ai inversé les 2 "FER" et les 2 "MAIN", c'est pour que tu puisses voir l'effet du tri en "Feuil2", colonne J : il y a bien "FER" avant "MAIN".​

soan

 

Vote positif 0 Vote négatif

P

PRUDHOMME12

XLDnaute Nouveau

• 1 Juillet 2021

• #7

Oui comme d'habitude ça marche nickel
Merci

 

Vote positif 0 Vote négatif

P

PRUDHOMME12

XLDnaute Nouveau

• 1 Juillet 2021

• #8

On pourrait se passer deu Ctrl + e

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 1 Juillet 2021

• #9

PRUDHOMME12 à dit:

On pourrait se passer du Ctrl + e

Cliquez pour agrandir...

fichier précédent sans Ctrl e

sur la feuille "FM" ou sur "Feuil2", fais Alt F8 puis Entrée.

soan

 

Pièces jointes

• Essai perso.PFC.2.xlsm

  114.4 KB · Affichages: 5

Dernière édition: 1 Juillet 2021

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 1 Juillet 2021

• #10

@PRUDHOMME12

autre version : sur "Feuil2", clique sur la forme en fond jaune clair. ​

soan

 

Pièces jointes

• Essai perso.PFC.2.xlsm

  119.5 KB · Affichages: 5

Vote positif 0 Vote négatif

P

PRUDHOMME12

XLDnaute Nouveau

• 1 Juillet 2021

• #11

Merci Soan pour toutes ces réponses rapides et justes. Ca fonctionne nickel et c'est mieux que le ctrl + e

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 1 Juillet 2021

• #12

merci pour ton retour d'infos.

 

Vote positif 0 Vote négatif