Extraire valeurs uniques d'une colonne

Dormeur74

XLDnaute Occasionnel

• 24 Octobre 2012

• #2

Re : Extraire valeurs uniques d'une colonne

Si une macro peut faire l'affaire, pas de problème. Code expliqué dans les remarques. C'est bourrin, mais ça marche.

 

Pièces jointes

• doublons.xls

  176.5 KB · Affichages: 237
• doublons.xls

  176.5 KB · Affichages: 283
• doublons.xls

  176.5 KB · Affichages: 287

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 24 Octobre 2012

• #3

Re : Extraire valeurs uniques d'une colonne

Oups ! Mal lu, j'ai retiré les doublons. J'y retourne.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 24 Octobre 2012

• #4

Re : Extraire valeurs uniques d'une colonne

Bjr Pascal

Est-il nécessaire d'identifier les numéros solitaires dans une autre colonne, ou les supprimer purement et simplement ?
Est-ce qu'il faut garder les numéros en double, ou une ligne de ces numéros suffit ?

Cordialement, Gérard

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 24 Octobre 2012

• #5

Re : Extraire valeurs uniques d'une colonne

Corrigé, faudrait que j'aille chez optique 2000 !

 

Pièces jointes

• doublons.xls

  196 KB · Affichages: 184
• doublons.xls

  196 KB · Affichages: 216
• doublons.xls

  196 KB · Affichages: 224

Vote positif 0 Vote négatif

P

pascalmatthys

XLDnaute Nouveau

• 24 Octobre 2012

• #6

Re : Extraire valeurs uniques d'une colonne

natorp à dit:

Bjr Pascal

Est-il nécessaire d'identifier les numéros solitaires dans une autre colonne, ou les supprimer purement et simplement ?
Est-ce qu'il faut garder les numéros en double, ou une ligne de ces numéros suffit ?

Cordialement, Gérard

Cliquez pour agrandir...

Bonjour Gérard,

il s'agit en effet de supprimer simplement les numéros "solitaires".

Merci

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 24 Octobre 2012

• #7

Re : Extraire valeurs uniques d'une colonne

Re

Voici une solution inspirée du site de M. Boisgontier : Formation Excel VBA JB

Code:

Sub sup()
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   For i = [A65000].End(xlUp).Row To 2 Step -1
   If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Delete
   Next i
   Application.Calculation = xlCalculationAutomatic
End Sub

A voir si cela convient
Cordialement, Gérard

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 24 Octobre 2012

• #8

Re : Extraire valeurs uniques d'une colonne

#natorp

Je crois que leprofesseur avait besoin de virer les numéros de contrat non répétés. Sauf erreur de ma part, cet algorithme vire les doublons.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 24 Octobre 2012

• #9

Re : Extraire valeurs uniques d'une colonne

Dormeur

Il supprime la ligne si les cellules comparées sont différentes :
If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Delete

par contre il ne ré-écrit qu'une seule fois le doublon

et chez moi ça marche...

Cordialement, Gérard

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 24 Octobre 2012

• #10

Re : Extraire valeurs uniques d'une colonne

Alors j'ai bien fait d'écrire "sauf erreur de ma part". 🙂

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 24 Octobre 2012

• #11

Re : Extraire valeurs uniques d'une colonne

Bonjour,
apparemment, tu veux une formule. Le problème est que tu dois utiliser une matricielle et vu la dimension de ta plage à traiter, cela est très long.
Une méthode te permettant de réduire considérablement le temps de calcul :
- sélectionner en colonne B une plage de dimension identique à cella de la colonne A, soit dans ton exemple B2:B1425
- rentrer la formule suivante :

Code:

=SIERREUR(INDEX(A$2:A$1425;PETITE.VALEUR(SI(NB.SI(A$2:A$1425;A$2:A$1425)=1;LIGNE(INDIRECT("1:"&LIGNES(A$2:A$1425))));LIGNE(INDIRECT("1:"&LIGNES(A$2:A$1425)))));"")

- la valider en matriciel.
Le temps de recalcul est très court pour une formule matricielle.

Maintenant, il est possible de passer par VBA (et là différentes possibilités existent).
A+

 

Vote positif 0 Vote négatif

P

pascalmatthys

XLDnaute Nouveau

• 24 Octobre 2012

• #12

Re : Extraire valeurs uniques d'une colonne

merci pour toute vos réponses, je teste...

Euh, comment valide-t-on en "matricielle" ?

 

Vote positif 0 Vote négatif

P

pascalmatthys

XLDnaute Nouveau

• 24 Octobre 2012

• #13

Re : Extraire valeurs uniques d'une colonne

Je croyais en fait qu'il y'avait une solution plus simple, moi je veux juste qu'Excel me montre les valeurs uniques, que je puisse les supprimer via un filtre par ex...

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 24 Octobre 2012

• #14

Re : Extraire valeurs uniques d'une colonne

Re

Euh, comment valide-t-on en "matricielle" ?

Cliquez pour agrandir...

Appui simultané sur les touches Ctrl, Maj eet entrée du clavier.

Je croyais en fait qu'il y'avait une solution plus simple, moi je veux juste qu'Excel me montre les valeurs uniques, que je puisse les supprimer via un filtre par ex..

Cliquez pour agrandir...

Dans ce cas :

Code:

=NB.SI(A$2:A$1425;A2)=1

à tirer vers le bas. Tu n'auras plus qu'à filtrer sur VRAI pour obtenir les valeurs présentes une seule fois.
A+

 

Vote positif 0 Vote négatif

P

pascalmatthys

XLDnaute Nouveau

• 24 Octobre 2012

• #15

Re : Extraire valeurs uniques d'une colonne

impecc David84 !!!

Et merci à tous !!!

 

Vote positif 0 Vote négatif