XL 2019 DOUBLONS

[PRUDHOMME12]

BONJOUR A TOUS
DÉCIDEMENT JE N'Y ARRIVE PAS SANS VOUS, JE VOUDRAIS SUPPRIMER AUTOMATIQUEMENT SITUÉS DANS LA FEUILLE 4 COLONNE A.
JE JONT MON FICHIER.
MERCI A TOUS

 

[PRUDHOMME12]

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

 

[patricktoulon]

bonsoir
fait simplement un removeduplicate

 

[PRUDHOMME12]

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

 

[soan]

Bonjour PRUDHOMME12, Patrick,

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

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

 

[soan]

@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

 

[PRUDHOMME12]

Oui comme d'habitude ça marche nickel
Merci

 

[PRUDHOMME12]

On pourrait se passer deu Ctrl + e

 

[soan]

On pourrait se passer du Ctrl + e

fichier précédent sans Ctrl e

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

soan

 

[soan]

@PRUDHOMME12

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

soan

 

[PRUDHOMME12]

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

 

[soan]

merci pour ton retour d'infos.