[VBA-E] Enlever les doublons dans un tableau et regarder si une variable y est..

Version imprimable

19/03/2007, 11h58
skystef

[VBA-E] Enlever les doublons dans un tableau et regarder si une variable y est..

Bonjour,

J'ai deux questions sur les tableaux en vba.

J'ai une fonction qui remplit un tableau avec des chaines de caratcères. Une fois rempli le tableau contient forcément des doublons. Existe-t-il un moyen simple pour les supprimer.

Deuxième question :

Je lis une valeur dans une cellule excel. Comment vérifier que la valeur de la cellule est présente dans un tableau. Je pourrais parcourir pour chaque valeur lu le tableau du début à la fin mais il y a peut-être un moyen plus simple et plus performant que 1000 tours de boucles (un genre de IN(montab) ?) :aie:

Merci d'avance...
19/03/2007, 12h03
cwain

Bonjour,
Pour la deuxième question, tu peux essayer Find , ça devrait convenir
Pour la première, je n'en connais pas personnellement :lol:

Cwain

Pour le 1er, si tu as tous tes élts ds un tableau de variant ou collection, tu peux le trier et après éliminer les doublons.
t'as des algos ici selon ton besoin http://docvb.free.fr/vbplus/Tris/Tri.php#Tri5

Si tu l'as dans un worksheet, tu peux utiliser la fonction "sort" pour les trier
Code:

1 2 3 4 5 6 'sort les indices par la ponderation en % de leur composants Range("Y1:AD" & Range("A1").End(xlDown).Row).Select Selection.Sort Key1:=Range("Y1"), Order2:=xlDescending _ , Header:=xlNo, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom
ici un petit exemple, après avoir trier ta table, la vie sera tranquille pour éliminer les doublons :)

bonsoir

ci joint d'autre possiblités

pour recréer une liste sans doublons:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub FiltreDoublons()
    Dim Cell As Range
    Dim i As Integer
    Dim Un As New Collection
 
    On Error Resume Next
        'Recherche les doublons dans la plage A1:A15
        For Each Cell In Range("A1:A15")
            'Utilise la propriété "Key" des collections qui
            'n'acceptent que des valeurs uniques.
            Un.Add Cell, CStr(Cell)
        Next Cell
    On Error GoTo 0
 
    For i = 1 To Un.Count
        'Afiche le résultat sans doublon dans la colonne B
        Cells(i, 2) = Un.Item(i)
    Next i
End Sub

Vérifier l'existence d'une donnée dans une plage:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub VerifieExistenceDonnee()
    Dim Plage As Range
    Dim i As Integer
 
    Set Plage = Range("A1:A15")
 
    On Error Resume Next
    i = Application.Match("mimi", Plage, False)
    On Error GoTo 0
 
    If i = 0 Then
        MsgBox "Pas trouvé"
        Else
        MsgBox "Trouvé sur la ligne: " & i
    End If
End Sub

michel