Extraction sans doublon d'une liste avec des cellule vide

R@chid

XLDnaute Barbatruc

• 27 Mars 2016

• #2

Re : Extraction sans doublon d'une liste avec des cellule vide

Bonsoir,
je ne vois pas de doublons sur ton fichier,
en AO2 :

Code:

=SIERREUR(INDEX(AH$2:AH$17;PETITE.VALEUR(SI(AH$2:AH$17<>"";LIGNE(INDIRECT("1:"&LIGNES(AH$2:AH$17))));LIGNES($2:2)));"")

@ valider par Ctrl+Shift+Enter
@ tirer vers le bas

Si on a toujours 2 cellules vides, on peut faire avec une formule classique :

Code:

=DECALER(AH$2;(LIGNES($2:2)-1)*3;)&""

@ tirer vers le bas

@ + +

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 28 Mars 2016

• #3

Re : Extraction sans doublon d'une liste avec des cellule vide

Bonsoir,

Proposition en VBA :

VB:

Sub Copie()
Dim i As Single, j As Single
For i = 1 To Cells(Rows.Count, 34).End(xlUp).Row
If Cells(i, 34) <> "" Then
j = j + 1
Cells(j, 41) = Cells(i, 34)
End If
Next i
End Sub

A+

 

Dernière édition: 28 Mars 2016

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Mars 2016

• #4

Re : Extraction sans doublon d'une liste avec des cellule vide

Bonjour, creolia, R@chid , Calvus , le Forum,

Une autre possibilité :

Code:

Option Explicit
Sub Zéro_doublon()
    Range("ao3") = ""
    Columns(34).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("ao3"), Unique:=True
    Range("ao3:ao" & Rows.Count).Sort Range("ao3"), xlAscending, Header:=xlYes
End Sub

A bientôt

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 28 Mars 2016

• #5

Re : Extraction sans doublon d'une liste avec des cellule vide

Bonjour le forum,

Bonjour 00 !

Tu veux faire un concours de qui a la plus courte ? Et bien tu as gagné !

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 28 Mars 2016

• #6

Re : Extraction sans doublon d'une liste avec des cellule vide

Re de suite,

J'avais oublié, dans mes pérégrinations nocturnes, que ça devait commencer en AO3 !
Ce n'est pas que j'avais oublié en fait, mais que j'ai été coincé par :

Range("AO3:AO" & Range("AO" & Rows.Count).End(xlUp).Rows(2)) = Cells(i, 34)

Ca fonctionne pour la 1erre occurrence, puis ça plante? Peux tu me dire pourquoi ?

A bientôt

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Mars 2016

• #7

Re : Extraction sans doublon d'une liste avec des cellule vide

Re-bonjour,

Calvus à dit:

... concours de qui a la plus courte ?...

Cliquez pour agrandir...

Nn, M'Sieur : concours de qui sait économiser l'encre !

Calvus à dit:

... Range("AO3:AO" & Range("AO" & Rows.Count).End(xlUp).Rows(2)) = Cells(i, 34)

Ca fonctionne pour la 1erre occurrence, puis ça plante? Peux tu me dire pourquoi ?...

Cliquez pour agrandir...

Nn, M'Sieur : concours de qui saura nous en expliquer la raison !

A bientôt

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 28 Mars 2016

• #8

Re : Extraction sans doublon d'une liste avec des cellule vide

REUHHHHHH

DoubleZero à dit:

Nn, M'Sieur : concours de qui sait économiser l'encre !

Cliquez pour agrandir...

Ça y est !!! J'ai la preuve !!! Tu es une vraie blonde

Il y avait celles qui utilisaient le typex pour effacer sur l'écran, et il y a maintenant celles qui utilisent de l'encre pour écrire sur leur PC !!!

Ah ha ha ! Trop bon !! Merci 00 )

A bientôt et sans rancune

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Mars 2016

• #9

Re : Extraction sans doublon d'une liste avec des cellule vide

Re-bonjour,

Calvus à dit:

... sans rancune...

Cliquez pour agrandir...

Le cryez-vus, M'Sieur ?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 28 Mars 2016

• #10

Re : Extraction sans doublon d'une liste avec des cellule vide

Bonsoir à tous,

une autre façon (par vba)

Code:

Sub UnikSansLesVides()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Range("ah1", [Ah65000].End(xlUp))
  If C <> "" Then MonDico(C.Value) = ""
Next C
[AO1].Resize(MonDico.Count) = Application.Transpose(MonDico.Keys)
End Sub

P.

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 28 Mars 2016

• #11

Re : Extraction sans doublon d'une liste avec des cellule vide

Bonsoir à tous,

Pas vu de doublons dans l'exemple

VB:

Sub copier()
    Columns(34).SpecialCells(xlCellTypeConstants).Copy Range("AO1")
End Sub

klin89

 

Vote positif 0 Vote négatif