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

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

  • Test suppression doublon.xlsm
    70.1 KB · Affichages: 13
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

Hasco

XLDnaute Barbatruc
Repose en paix
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

  • Test suppression doublon.xlsm
    78.1 KB · Affichages: 2
Vote positif 0 Vote négatif
A

antonerty

XLDnaute Nouveau
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

Hasco

XLDnaute Barbatruc
Repose en paix
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

Hasco

XLDnaute Barbatruc
Repose en paix
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.

Discussions similaires

T
  • Question Question
Microsoft 365 Garder les doublons dans une liste déroulante
Réponses
3
Affichages
364
djidji59430
B
  • Question Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
291
Blafi
B
L
  • Question Question
XL 2019 Créer des dossiers et sous dossiers avec VBA
2
Réponses
19
Affichages
351
patricktoulon
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
293
ma6me
M
M
  • Question Question
XL 2010 Supprimer les doublons contenant une valeur zéro avec trois conditions
Réponses
2
Affichages
470
Mody200
M
M
  • Question Question
Microsoft 365 conditions SI et cellule filtrée
Réponses
1
Affichages
281
sylvanu
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
661
Helios77
H
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
461
Magis
M
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
227
aeca
A
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
342
Dubuyz1
D
M
  • Question Question
Microsoft 365 Somme.Si en enlevant les doublons
Réponses
3
Affichages
376
DJunqueira
D
C
  • Question Question
XL 2019 Distribuer des équipes en poules selon force et établissement
Réponses
2
Affichages
250
carlos
C
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
556
DJunqueira
D
P
  • Question Question
Microsoft 365 Supprimer sous-totaux négatifs dans une liste
Réponses
10
Affichages
540
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
1 K
Banbara
B
P
  • Question Question
XL 2010 Fonction Alea.entre.bornes et les doublons .....
Réponses
5
Affichages
765
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
550
NONO14
N
N
  • Question Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
532
Neofalken
N
N
  • Question Question
Microsoft 365 SOMME.PROD avec condition de type NB.SI
Réponses
10
Affichages
656
ALS35
A
  • Question Question
XL 2016 Transfert de données d'un tableau en différenciant les libellés
Réponses
8
Affichages
478
Magnio
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…