Ptobleme doublons sur excel Fermé

Question

Bonjour,
Je récupère un grand nombre d'information avec beaucoup de doublons dans une colonne.
Je "supprime" les doublons en les remplaçant par "" et en ne gardant que les éléments uniques dans une autre colonne.
J'aimerais utiliser cette colonne pour créer une liste déroulante, mais les éléments marqués comme doublons (champs vides) apparaissent également dans la liste..
Y a t il une solution pour éviter d'avoir ces champs vides?

Exemple :
------A1------------- B1-------
13831A14-06   13831A14-06
13831A14-06
13831A14-06
13837A13-07   13837A13-07
13837A13-07
13831A14-06

eriiic · Answer

Bonsoir,

Sélectionne tes valeurs (avec un titre de colonne et sans enlever les doublons) puis menu 'données / filtrer / filtre élaboré...'
Choisir 'copier vers un autre emplacement' et 'extraction sans doublon', remplir 'Copier dans' et OK
Tu auras au maximum 1 cellule vide à supprimer.

Sinon tu gardes ta technique et tu tries la plage ensuite...

eric

eriiic · Answer

Ah ben m..., 6 clics et c'est trop !!! Je rêve là...
Ben garde ton automatisme Je "supprime" les doublons en les remplaçant par "" puis... alors.
C'est quoi que tu appelles automatique ?
Tu regardes l'écran et il devine ce que tu veux ?

Mike-31 · Answer

Salut à tous,

Exactement la même discussion avec les mêmes critères à été menée sur ce forum le 5 mai 2009 (hier) voir le lien

http://www.commentcamarche.net/forum/affich 12315804 liste deroulane et doublons?#14

Bonne soirée

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re tous,

S'il n'y avait qu'une discussion d'entrée avec un problème clairement posé, ça éviterai de faire bosser des bénévoles inutilement, et de les respecter. Un problème bien posé est souvent réglé en un ou deux posts.
Pour automatiser la suppression des doublons de la plage A1 à A250 par exemple avec un seul clic sur un bouton il n'y a que le VBA

Sub SupRapide()
    Application.ScreenUpdating = False
    Range("A2:A250").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    For i = [A65000].End(xlUp).Row To 2 Step -1
      If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 3) = Cells(i - 1, 3) Then
        Rows(i).Delete
      End If
    Next i
End Sub

S'il n'y a pas de titre de colonne, Range("A2:A250"). peut être remplacé par [A1] et la sélection se fera sur l'ensemble de la colonne

A+

Un problème sans solution est un problème mal posé  (Einstein)