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

XL 2016 trier liste et supprimer les doublons avec conditions

Créer une discussion

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
A

antonerty

XLDnaute Nouveau
Bonjour,

je débute dans le VBA et j'aimerais avoir quelques conseils.

Je voudrais extraire des données d'une liste , mais en respectant les lignes et en supprimant les doublons .

c'est à dire qu'un numéro correspond à un seul libellé mais peut avoir un seul ou plusieurs sous numéro.

voici ce que j'ai réussi à faire mais , je n'arrive pas à extraire les sous numéros.
 

Pièces jointes

Solution
Re,

Même macro améliorée, avec colonnes aux bons endroits et tri sur colonne 1
VB: 
Public Sub Créermaliste()
    Dim shSource As Worksheet, shDest As Worksheet
    
    '
    ' Définitions des feuille source et destination
    Set shSource = ThisWorkbook.Sheets("Données")
    Set shDest = ThisWorkbook.Sheets("Critères TB")
    '
    ' Supprimer les données déjà existantes dans la destination
    shDest.Range("A1").CurrentRegion.ClearContents
    '
    ' importer les données
    With shSource.Range("A1").CurrentRegion
        .Columns(2).Copy shDest.Range("A1")
        .Columns(3).Copy shDest.Range("B1")
        .Columns(1).Copy shDest.Range("C1")
    End With

    '
    '
    With shDest
        MsgBox "Lignes avant suppression des...
Trier par date Trier par votes
Bonjour,

Il me semble que vous voulez supprimer les doublons sur trois colonnes ? Si oui, la macro suivante le fait :
VB: 
Public Sub Créermaliste()
    With ThisWorkbook.Sheets("Critères TB")
        '
        ' Supprimer les données déjà existantes
        .Range("A1").CurrentRegion.ClearContents
        '
        ' importer les données
        ThisWorkbook.Sheets("Données").Range("A1").CurrentRegion.Copy .Range("A1")
        '
        '
        MsgBox "Lignes avant suppression des doublons : " & .Range("A1").CurrentRegion.Rows.Count - 1, vbInformation, "Suppression des doublons"
        '
        ' supprimer les doublons de la nouvelle région
        .Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
        '
        '
        MsgBox "Lignes après suppression des doublons : " & .Range("A1").CurrentRegion.Rows.Count - 1, vbInformation, "Suppression des doublons"
    End With
End Sub

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
merci pour votre réponse,

mais en fait un numéro correspond à un seul libellé mais peut avoir un ou plusieurs sous numéro .Supprimer les doublons ne correspond pas à ce que je cherche

en fait voici ce que je recherche
ex : le Numéro OPE-2020-0106 correspond aux libellé SAPHI et au sous -numéro 1780
mais il peut y avoir le Numéro OPE-2019-0153 qui correspond au libellé MCO 2 avec plusieurs sous numéro 1731, 1811,1821 etc


Je sais pas si c'est très clair ce que je dis.
 
Vote positif 0 Vote négatif
Re,

N'est-ce pas ce qu'obtient la macro donnée, après tri :



Et la même chose pour tous les numéros.

Cela peut se faire avec powerquery également.

Si cela ne convient pas, faites un exemple manuellement du résultat que vous souhaitez, avec explications.

Cordialement
 
Vote positif 0 Vote négatif
Re,

Même macro améliorée, avec colonnes aux bons endroits et tri sur colonne 1
VB: 
Public Sub Créermaliste()
    Dim shSource As Worksheet, shDest As Worksheet
    
    '
    ' Définitions des feuille source et destination
    Set shSource = ThisWorkbook.Sheets("Données")
    Set shDest = ThisWorkbook.Sheets("Critères TB")
    '
    ' Supprimer les données déjà existantes dans la destination
    shDest.Range("A1").CurrentRegion.ClearContents
    '
    ' importer les données
    With shSource.Range("A1").CurrentRegion
        .Columns(2).Copy shDest.Range("A1")
        .Columns(3).Copy shDest.Range("B1")
        .Columns(1).Copy shDest.Range("C1")
    End With

    '
    '
    With shDest
        MsgBox "Lignes avant suppression des doublons : " & .Range("A1").CurrentRegion.Rows.Count - 1, vbInformation, "Suppression des doublons"
        '
        ' supprimer les doublons de la nouvelle région
        .Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
        '
        ' Trier sur colonne 1
        .Range("A1").CurrentRegion.Sort key1:=.Columns(1).Cells(2, 1), Order1:=xlDescending, Header:=xlYes

        '
        MsgBox "Lignes après suppression des doublons : " & .Range("A1").CurrentRegion.Rows.Count - 1, vbInformation, "Suppression des doublons"
    End With

End Sub

Cordialement
 
Vote positif 0 Vote négatif
Solution
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

Z
  • Résolu(e)
Microsoft 365 Suppression des doublons et lignes vide
Réponses
6
Affichages
243
zilio
Z
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
204
Blackfwolf
B
T
  • Question Question
Microsoft 365 Garder les doublons dans une liste déroulante
Réponses
3
Affichages
486
djidji59430
S
  • Question Question
XL 2016 Comment attribuer des classes avec trois conditions?
Réponses
7
Affichages
249
TooFatBoy
B
  • Question Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
573
Blafi
B
G
  • Résolu(e)
Microsoft 365 Recherche avec 2 critères pour non vide et somme
Réponses
5
Affichages
212
gpion
G
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
513
ma6me
M
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
233
elgringo123456
E
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
267
Altfkat
A
M
  • Question Question
XL 2010 Supprimer les doublons contenant une valeur zéro avec trois conditions
Réponses
2
Affichages
545
Mody200
M
H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
954
Helios77
H
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
653
Dubuyz1
D
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
360
aeca
A
C
  • Question Question
XL 2019 Distribuer des équipes en poules selon force et établissement
Réponses
2
Affichages
389
carlos
C
J
  • Question Question
Microsoft 365 Liste à choix multiple avec contenu variable
Réponses
4
Affichages
401
jny
J
P
  • Question Question
Power Pivot Filtrer une somme en fonction de filtres sur un graphique
Réponses
2
Affichages
497
Pierre111
P
P
  • Question Question
Microsoft 365 Supprimer sous-totaux négatifs dans une liste
Réponses
10
Affichages
619
djidji59430
B
  • Résolu(e)
XL 2021 Séparer les adresses (Rue et N°) en 2 cellules avec un macro
2
Réponses
20
Affichages
2 K
Banbara
B
  • Question Question
XL 2016 Transfert de données d'un tableau en différenciant les libellés
Réponses
8
Affichages
592
Magnio
B
  • Question Question
Microsoft 365 [RESOLU] Supprimer Ligne rapidement et avec plusieurs conditions
Réponses
5
Affichages
461
BENAM69
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…