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

XL pour MAC Supprimer les lignes supplémentaires identiques

KamalB

XLDnaute Nouveau
Bonjour,
Dans le fichier test ci-joint, vous pouvez voir qu'il y a des entreprises qui existent plusieurs fois (car plusieurs numéros de siret). J'aimerais supprimer les doublons qui ont le même nom d'entreprise et la même adresse (rue). Est-ce qu'il existe un moyen?

Je connais la fonction Supprimer les Doublons. En fait, il s'agit de réduire à 1 ligne celles qui ont le même nom de société et la même adresse. Je me demande s'il ne faut pas une macro pour ça.

Merci d'avance.
Kamal
 

Pièces jointes

  • Fichier test.xlsx
    13 KB · Affichages: 21

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Kamal,
Un essai en PJ avec :
VB:
Sub SupprimerLignes()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    DL = .Range("A65500").End(xlUp).Row         ' dernière ligne
    .Columns(1).EntireColumn.Insert             'insère une colonne auxiliaire
    With ActiveSheet.Range("A2:A" & DL)         ' sur toute la plage utile
        .FormulaR1C1 = "=IF(SUMPRODUCT((RC[5]:R[998]C[5]=RC[5])*(RC[10]:R[998]C[10]=RC[10])*(RC[11]:R[998]C[11]=RC[11]))>1,1,"""")"
        .Value = .Value                         'supprime les formules, mets les valeurs
        .EntireRow.Sort .Cells, xlDescending    'tri pour regrouper et accélérer
        On Error Resume Next                    'si aucune SpecialCell
        .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
        .EntireColumn.Delete                    'supprime la colonne auxiliaire
    End With
End With
With ActiveSheet.UsedRange: End With            'actualise les barres de défilement
End Sub
Pour lancer la macro faire ALT+F8 et exécuter SupprimerLignes

Par contre la macro ne touche pas à "LE KALLISTE" car les 2 premières adresses sont différentes, et les deux dernières villes ne sont pas Bastia.
 

Pièces jointes

  • Fichier test (4).xlsm
    23.8 KB · Affichages: 7

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

La méthode employée se base sur le dernier mot de l'adresse. On pourrait imaginer qu'une société a deux établissements dans la même rue de la même ville. Comme on ne peut résoudre ce dilemme (erreur ou non), on permet à l'utilisateur de conserver ou non les propositions de suppression.
La méthode est forcément un peu plus compliquée.
  • cliquer sur le bouton vert "Détecter doublons" qui va détecter les doublons à supprimer et les marquer d'un X
  • choisir les doublons à conserver (effacer le X en bout de ligne)
  • cliquer sur le bouton orange "Supprimer doublons" pour effacer les lignes marquées d'un X
 

Pièces jointes

  • KamalB- Fichier test- v1b.xlsm
    32.2 KB · Affichages: 10
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…