Ptobleme doublons sur excel

GHadd -  
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

4 réponses

  • Votes
  • Date
  • Date décroissante
  1. eriiic Contributeur
    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
    1. Djambo
      Non cette méthode ne marche pas car elle n'est pas automatique.
      Merci quand même
  2. eriiic Contributeur
    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 ?
    2. Mike-31
      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)