Discussion :

[skystef]

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) ?)

Merci d'avance...

[cwain]

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

Cwain

[tangjuncn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir


ci joint d'autre possiblités


pour recréer une liste sans doublons:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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