XL pour MAC Supprimer les lignes supplémentaires identiques

KamalB · 7 Janvier 2021

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

sylvanu · 7 Janvier 2021

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.

mapomme · 8 Janvier 2021

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

XL pour MAC Supprimer les lignes supplémentaires identiques

KamalB

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires