Doublons sur Excel

durden35 -  
Salut!

J'ai ce genre de données sous excel :

A
A
A
B
B
B
B
ZZ
ZZ
ZZ

Je voudrais savoir si qqun sait comment je peux copier dans une autre colonne ces valeurs mais sans doublons

Merci par avance!
Configuration: Windows XP
Internet Explorer 6.0

4 réponses

  • Votes
  • Date
  • Date décroissante
  1. locmare
    Merci beaucoup sa peu m'aider pour mon probléme aussi.
    A la seul différence j'ai des valeurs avant et aprés la colonne A et B.
    BOn je sais remplacer les colonne et j'en créer une autre c'est pas trés difficile, mais j'aimerais simplement que la line en doublons soit elle aussi suppprimée. Pourriez-vous modifier le code afin que cela ce fasse...
    En vous remerciant.
    1. Landoltp
      salut,

      faut que t'aille dans le menu Outils, puis dans Macro et tu clique sur Visual Basic Editor. Une fois que t'as fait ça tu double clique sur la feuille à laquelle (à gauche dans Visual Basic Editor) tu veux affecter la macro et tu recopie le code dedans.
      ensuite pour lancer la macro il te suffit de cliquer sur Macros (sous Macro dans le menu Outils) et tu clique sur la macro que tu viens de créer.
      normalement ça devrait marcher.
      2. didier09
        Salut,
        Si tes données sont dans la colonne A et que tu veut les copier sans doublons dans la colonne B, écrit la procédure suivante.

        Sub SuppressionDoublons()
        'Efface le contenue de la colonne B
        Columns("B:B").Select
        Selection.ClearContents
        'Sélectionne la plage de la première à la dernière cellule non vide
        Range("A1", Range("A1").End(xlDown)).Select
        'copie la plage sélectionnée et la colle à partir de B1
        Selection.Copy
        Range("B1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        'Trie la plage collée par ordre alphabétique
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        Range("B1").Select
        'Suppression des doublons
        'Déclaration des variables
        Dim CelluleCourante As Range
        Dim CelluleSuivante As Range
        Set CelluleCourante = Range("B1")
        'Boucle effectuée jusqu'à cellule vide
        Do While Not IsEmpty(CelluleCourante) = True
        Set CelluleSuivante = CelluleCourante.Offset(1, 0)
        If CelluleSuivante.Value = CelluleCourante.Value Then
        CelluleCourante.Select
        Selection.Delete Shift:=xlUp
        End If
        Set CelluleCourante = CelluleSuivante
        Loop

        End Sub