suppression doublon suite de caracteres

[knaekes]

Bonjour,

après avoir créé une suite de caractères:
ex: 1;2;2;3;1;3
je souhaite supprimer les doublons de cette suite et obtenir
ex: 1;2;3;
puis je souhaite écrire insérer chaque élément (distinct) dans une suite de cellules
Ensuite je souhaite réitérer cette opération à l'aide d'une boucle.

Je parviens à effectuer l'opération pour une seule boucle. Le problème est que lors de l'exécution de la boucle celle-ci écrase les données écrites précédemment

Ci-joint le fichier excel sur lequel je travaille

Merci d'avance pour votre aide

 

[ROGER2327]

Re : suppression doublon suite de caracteres

Bonjour knaekes

Je ne comprends pas le fonctionnement de votre classeur. (A quoi sert UserForm1 ? Je n'ai pas trouvé le moyen de l'activer...)
Pour ce qui est de traiter la zone A1:H2 et afficher le résultat du traitement, voici un code possible :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&
Dim oDat, oColl As New Collection, s
   With Sheets("Feuil1")
      oDat = .Range("A1:H2").Value
      On Error Resume Next
      For i = 1 To UBound(oDat, 2)
         oColl.Add oDat(2, i) & "/" & oDat(1, i), oDat(2, i) & "/" & oDat(1, i)
      Next i
      On Error GoTo 0
      ReDim oDat(1 To oColl.Count, 1 To 2)
      For i = 1 To oColl.Count
         s = Split(oColl(i), "/")
         oDat(i, 1) = s(0)
         oDat(i, 2) = s(1)
      Next i
      With .Range("E6").Resize(oColl.Count, 2)
         .Value = oDat
         .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Key2:=.Cells(1, 2) _
            , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
            False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
            :=xlSortNormal
      End With
   End With
End Sub[/B][/COLOR]

Voyez le classeur joint.​

ROGER2327
#2914