Effacer les doublons

phlaurent55

Nous a quittés en 2020

Repose en paix

• 4 Septembre 2014

• #2

Re : Effacer les doublons

Bonjour François,

une solution par macro

à+
Philippe

 

Pièces jointes

• 111.xlsm

  17.2 KB · Affichages: 31
• 111.xlsm

  17.2 KB · Affichages: 28
• 111.xlsm

  17.2 KB · Affichages: 26

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 4 Septembre 2014

• #3

Re : Effacer les doublons

Re,


Pour un grand nombre de lignes à traitre, il vaut mieux figer l'affichage
avec ce code:

Code:

Sub Macro1()
Application.ScreenUpdating = False
For i = Range("A65535").End(xlUp).Row To 2 Step -1
    If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) > 1 And Cells(i, 2) = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2014

• #4

Re : Effacer les doublons

Notre ami sait poser les questions.

Sait-il également répondre aux propositions qui lui sont faites ?
https://www.excel-downloads.com/threads/recherche-exacte.223546/

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 4 Septembre 2014

• #5

Re : Effacer les doublons

Salut Patrick,

Victor21 à dit:

Notre ami sait poser les questions.

Sait-il également répondre aux propositions qui lui sont faites ?
https://www.excel-downloads.com/threads/recherche-exacte.223546/

Cliquez pour agrandir...

Effectivement, en faisant une retour en arrière sur ses fils de discussion, je vois que très (trop) souvent, il n'y a pas de retour de sa part

BlackListe = BlackListe + 1

à+
Philippe

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 4 Septembre 2014

• #6

Re : Effacer les doublons

Bonjour,

SVP, n'y voyez pas de malice de ma part. Depuis quelques jours, je cours...

Merci,

François

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 4 Septembre 2014

• #7

Re : Effacer les doublons

Bonjour,

Il me semble pourtant que je reviens sur la plupart des courriels que je reçois.

Merci,

François

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 4 Septembre 2014

• #8

Re : Effacer les doublons

Bonjour,

Il semble y avoir un problème avec votre code. Peut-être mon explication était-elle incorrecte. Je vais donc reformuler.
Il faut dire que dans mon post mon exemple à l'écran a mal sortie...

La dernière colonne contient des nos d'ordinateurs (dernière colonne). Dans votre exemple, cette colonne est vide.
J'ai des ordinateurs qui peuvent avoir des éléments (colonne A) qui sont redondants. Ma différence est dans la version. En effet, lorsque redondant, il y aura un vide dans la colonne version. Donc lorsqu'il y a une redondance pour un ordinateur, on doit supprimer la ligne avec le no de version vide.

Attention, un élément avec un no de version vide mais pas de redondance doit être conservée.
Dans l'exemple que je rejoins avec votre macro: Poireau 5 est retiré alors qu'il devrait demeurer, de même pour laitue 6.

Merci,

François

 

Pièces jointes

• test.xlsm

  17.2 KB · Affichages: 17
• test.xlsm

  17.2 KB · Affichages: 24
• test.xlsm

  17.2 KB · Affichages: 23

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 5 Septembre 2014

• #9

Re : Effacer les doublons

Bonjour,

D'après Microsoft, la fonction que vous utilisez est disponible avec Excel 2013. Je suis avec Excel 2007.

Merci,

François

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 5 Septembre 2014

• #10

Re : Effacer les doublons

Bonjour,

Il semble qu'une formule tel: =SOMMEPROD(($B$1:$B1395=$B1396)*($G$1:$G1395=$G1396)*($B1396<>"")*($C1396="")) pourrait régler mon problème. Toutefois, je m'interroge sur l'effet qu'elle aura sur la performance du classeur. Ici la formule représente ce qu'elle aura l'air à la ligne 1396. Donc à la ligne 1, cela sera rapide mais à la ligne 20 000...

Je vais la transcrire en vba et on verra à moins d'une meilleure proposition.

Merci,

François

 

Vote positif 0 Vote négatif